File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Generic/PCI/Modems.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	2	0.0
total	16	38	42.1

package FusionInventory::Agent::Task::Inventory::Generic::PCI::Modems;

use strict;
use warnings;

use FusionInventory::Agent::Tools;
use FusionInventory::Agent::Tools::Generic;

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

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

    my $inventory = $params{inventory};
    my $logger    = $params{logger};

    foreach my $modem (_getModems(logger => $logger)) {
        $inventory->addEntry(
            section => 'MODEMS',
            entry   => $modem
        );
    }
}

sub _getModems {
    my @modems;

    foreach my $device (getPCIDevices(@_)) {
        next unless $device->{NAME} =~ /modem/i;
        push @modems, {
            DESCRIPTION => $device->{NAME},
            NAME        => $device->{MANUFACTURER},
        };
    }

    return @modems;
}

1;