File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Generic/PCI/Sounds.pm
Criterion Covered Total %
statement 17 25 68.0
branch 2 4 50.0
condition 1 3 33.3
subroutine 5 7 71.4
pod 0 2 0.0
total 25 41 60.9


line stmt bran cond sub pod time code
1             package FusionInventory::Agent::Task::Inventory::Generic::PCI::Sounds;
2              
3 2     2   122337029 use strict;
  2         8  
  2         65  
4 2     2   9 use warnings;
  2         3  
  2         73  
5              
6 2     2   392 use FusionInventory::Agent::Tools;
  2         4  
  2         248  
7 2     2   719 use FusionInventory::Agent::Tools::Generic;
  2         4  
  2         410  
8              
9             sub isEnabled {
10 0     0 0 0 my (%params) = @_;
11 0 0       0 return 0 if $params{no_category}->{sound};
12 0         0 return 1;
13             }
14              
15             sub doInventory {
16 0     0 0 0 my (%params) = @_;
17              
18 0         0 my $inventory = $params{inventory};
19 0         0 my $logger = $params{logger};
20              
21 0         0 foreach my $sound (_getSounds(logger => $logger)) {
22 0         0 $inventory->addEntry(
23             section => 'SOUNDS',
24             entry => $sound
25             );
26             }
27             }
28              
29             sub _getSounds {
30 1     1   8 my @sounds;
31              
32 1         20 foreach my $device (getPCIDevices(@_)) {
33 24 100       42 next unless $device->{NAME} =~ /audio/i;
34             push @sounds, {
35             NAME => $device->{NAME},
36             MANUFACTURER => $device->{MANUFACTURER},
37 1   33     9 DESCRIPTION => $device->{REV} && "rev $device->{REV}",
38             };
39             }
40              
41 1         3 return @sounds;
42             }
43              
44             1;