File Coverage

blib/lib/FusionInventory/Agent/Task/Inventory/Generic/Environment.pm
Criterion Covered Total %
statement 12 18 66.6
branch n/a
condition 0 3 0.0
subroutine 4 6 66.6
pod 0 2 0.0
total 16 29 55.1


line stmt bran cond sub pod time code
1             package FusionInventory::Agent::Task::Inventory::Generic::Environment;
2              
3 1     1   105314508 use English qw(-no_match_vars);
  1         8  
  1         26  
4              
5 1     1   616 use strict;
  1         1  
  1         35  
6 1     1   3 use warnings;
  1         37  
  1         59  
7              
8 1     1   391 use FusionInventory::Agent::Tools;
  1         3  
  1         209  
9              
10             sub isEnabled {
11 0     0 0   my (%params) = @_;
12              
13             return
14             # We use WMI for Windows because of charset issue
15             $OSNAME ne 'MSWin32' &&
16 0   0       !$params{no_category}->{environment};
17             }
18              
19             sub doInventory {
20 0     0 0   my (%params) = @_;
21              
22 0           my $inventory = $params{inventory};
23              
24 0           foreach my $key (keys %ENV) {
25             $inventory->addEntry(
26             section => 'ENVS',
27             entry => {
28             KEY => $key,
29 0           VAL => $ENV{$key}
30             }
31             );
32             }
33             }
34              
35             1;