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   3019954 use strict;
  6         21  
  6         276  
4 6     6   47 use warnings;
  6         13  
  6         378  
5              
6 6     6   6035 use Encode qw(encode);
  6         75369  
  6         524  
7 6     6   1544 use English qw(-no_match_vars);
  6         8357  
  6         99  
8              
9 6     6   3923 use List::Util qw(first);
  6         11  
  6         1590  
10              
11             our $VERSION = '1.1';
12              
13             sub get_first {
14 12     12 1 21 my ($self, $oid) = @_;
15              
16 12         30 my $values = $self->walk($oid);
17 12 50       42 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__