File Coverage

blib/lib/FusionInventory/Agent/SNMP.pm
Criterion Covered Total %
statement 18 23 78.2
branch 1 2 50.0
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 26 33 78.7


line stmt bran cond sub pod time code
1             package FusionInventory::Agent::SNMP;
2              
3 6     6   2127547 use strict;
  6         11  
  6         160  
4 6     6   17 use warnings;
  6         7  
  6         171  
5              
6 6     6   2928 use Encode qw(encode);
  6         45363  
  6         430  
7 6     6   958 use English qw(-no_match_vars);
  6         4868  
  6         74  
8              
9 6     6   2524 use List::Util qw(first);
  6         6  
  6         1084  
10              
11             our $VERSION = '1.1';
12              
13             sub get_first {
14 16     16 1 16 my ($self, $oid) = @_;
15              
16 16         20 my $values = $self->walk($oid);
17 16 50       36 return unless $values;
18              
19             my $value =
20 0     0     first { $_ }
21 0           map { $values->{$_} }
22 0           sort { $a <=> $b }
  0            
23             keys %$values;
24              
25 0           return $value;
26             }
27              
28             1;
29             __END__