File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Win32/Modems.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	25	48.0

package FusionInventory::Agent::Task::Inventory::Win32::Modems;

use strict;
use warnings;

use FusionInventory::Agent::Tools::Win32;

sub isEnabled {
    my (%params) = @_;
    return 0 if $params{no_category}->{modem};
    return 1;
}

sub doInventory {
    my (%params) = @_;

    my $inventory = $params{inventory};

    foreach my $object (getWMIObjects(
        class      => 'Win32_POTSModem',
        properties => [ qw/Name DeviceType Model Description/ ]
    )) {

        $inventory->addEntry(
            section => 'MODEMS',
            entry   => {
                NAME        => $object->{Name},
                TYPE        => $object->{DeviceType},
                MODEL       => $object->{Model},
                DESCRIPTION => $object->{Description},
            }
        );
    }
}

1;