Branch Coverage

blib/lib/Net/SNMPTrapd.pm
Criterion Covered Total %
branch 0 108 0.0


line true false branch
122 0 0 if (@_ == 1) { }
128 0 0 if (/^-?localport$/i) { }
0 0 elsif (/^-?localaddr$/i) { }
0 0 elsif (/^-?family$/i) { }
0 0 elsif (/^-?timeout$/i) { }
133 0 0 if ($cfg{$_} =~ /^(?:(?:(:?ip)?v?(?:4|6))|${\2;}|$AF_INET6)$/) { }
134 0 0 if ($cfg{$_} =~ /^(?:(?:(:?ip)?v?4)|${\2;})$/) { }
137 0 0 unless ($HAVE_IO_Socket_IP)
142 0 0 if ($^O ne 'MSWin32')
151 0 0 if ($cfg{$_} =~ /^\d+$/) { }
164 0 0 if (my $udpserver = $class->SUPER::new(%params)) { }
183 0 0 if $key =~ /^\_.+\_$/
188 0 0 if (@_ == 1) { }
195 0 0 if (/^-?(?:max)?size$/i) { }
0 0 elsif (/^-?timeout$/i) { }
196 0 0 if ($args{$_} =~ /^\d+$/) { }
0 0 elsif ($args{$_} =~ /^rfc$/i) { }
0 0 elsif ($args{$_} =~ /^rec(?:ommend)?(?:ed)?$/i) { }
197 0 0 if ($args{$_} >= 1 and $args{$_} <= 65467)
210 0 0 if ($args{$_} =~ /^\d+$/) { }
224 0 0 if ($Timeout != 0)
230 0 0 unless (select $rout = $rin, undef, $eout = $ein, $Timeout)
237 0 0 if ($udpserver->recv($datagram, $datagramsize))
257 0 0 if ($self eq $class and $class eq 'Net::SNMPTrapd')
263 0 0 if ($class ne 'Net::SNMPTrapd')
272 0 0 if (@_ != 1)
276 0 0 if (/^-?data(?:gram)?$/i or /^-?pdu$/i) { }
0 0 elsif (/^-?noresponse$/i) { }
280 0 0 if ($args{$_} =~ /^\d+$/ and $args{$_} > 0)
288 0 0 unless (defined($trap = $snmpasn->decode($self->{'_TRAP_'}{'datagram'})))
289 0 0 defined $snmpasn->error ? :
295 0 0 if ($trap->{'version'} > 1)
307 0 0 if ($pdutype eq 'trap') { }
0 0 elsif ($pdutype eq 'inform_request') { }
0 0 elsif ($pdutype eq 'snmpv2_trap') { }
314 0 0 if ($RESPONSE)
315 0 0 if ((my $r = _InformRequest_Response(\$self, $trap, $pdutype)) ne 'OK')
326 0 0 if ($trap->{'version'} == 0) { }
0 0 elsif ($trap->{'version'} == 1) { }
346 0 0 if (defined $trap->{'pdu_type'}{$pdutype}{'varbindlist'}[$i]{'value'}{$_}) { }
348 0 0 if ($_ eq 'ipaddr') { }
0 0 elsif ($_ eq 'null') { }
376 0 0 if (defined $arg and $arg >= 1) { }
406 0 0 if (defined $arg and $arg >= 1) { }
426 0 0 if (defined $arg and $arg >= 1) { }
473 0 0 if ($self eq $class and $class eq 'Net::SNMPTrapd')
479 0 0 if ($class ne 'Net::SNMPTrapd')
486 0 0 if (defined $self->{'_TRAP_'}{'datagram'}) { }
511 0 0 unless (defined $$self->{'_UDPSERVER_'})
518 0 0 unless (defined $buffer)
534 0 0 if ('Version'->parse($Socket::VERSION) >= 'Version'->parse(1.94)) { }
536 0 0 if (length $addr == 4) { }
542 0 0 if (defined $address) { }
549 0 0 if (length $addr == 4) { }