Branch Coverage

blib/lib/SNMP/Trapinfo.pm
Criterion Covered Total %
branch 65 66 98.4


line true false branch
15 15 197 if $attr =~ /^DESTROY$/
16 45 152 if (@_) { }
25 1 15 unless $data
44 0 3 if ($_[0] and ref \$_[0] eq 'SCALAR')
48 2 1 if ref $_[0] eq 'HASH'
50 2 1 if ($opts->{'hide_passwords'})
76 1 72 unless defined $string
81 37 42 if ($action and $line) { }
1 41 elsif ($key eq 'DUMP') { }
3 38 elsif ($key eq 'TRAPNAME') { }
1 37 elsif ($key eq 'HOSTIP') { }
83 9 28 unless (defined $newval)
95 7 30 if ($key =~ /\*/) { }
97 1 6 unless (defined $newval)
102 4 26 unless (defined $newval)
130 4 18 if ($@) { }
133 12 6 $rc ? :
142 52 57 unless @possible == @parts
144 9 65 if $parts[$i] eq '*'
145 50 15 if ($parts[$i] ne $possible[$i])
158 75 65 if ($string =~ /^[A-Za-z].*\:\:[A-Za-z].*$/)
160 69 6 unless ($string =~ /\d\.\d+$/)
171 3 12 if (ref \$data eq 'GLOB') { }
10 2 elsif (ref \$data eq 'REF') { }
180 2 10 if ($opts->{'hide_passwords'})
196 5 99 if ($within_quotes)
199 1 4 if $quotes % 2 == 0
207 2 97 if $quotes % 2 == 1
213 11 1 if $within_quotes == 0
219 1 11 unless @packet
234 3 74 unless defined $key
236 66 8 if ($key ne 'SNMPv2-MIB::snmpTrapOID')
249 1 1 if ($self->trapname =~ /\.\d+$/) { }