Condition Coverage

blib/lib/Net/Telnet/Netgear.pm
Criterion Covered Total %
condition 12 51 23.5


and 3 conditions

line !l l&&!r l&&r condition
73 1 0 1 defined &Scalar::Util::blessed($packetinfo{'instance'}) and $packetinfo{'instance'}->isa('Net::Telnet::Netgear::Packet')
113 7 0 6 defined $packet && $packet->can('get_packet')
148 0 0 0 (caller)[0] eq 'Net::Telnet::Netgear' and @_ > 0
0 0 0 (caller)[0] eq 'Net::Telnet::Netgear' and @_ > 0 and $_[0] eq -'callparent'
160 0 0 0 (caller)[0] eq 'Net::Telnet::Netgear' and @_ > 0
0 0 0 (caller)[0] eq 'Net::Telnet::Netgear' and @_ > 0 and $_[0] eq -'callparent'
173 0 0 14 defined $NETGEAR_DEFAULTS{$k} and $self->can($k)
220 0 28 38 exists $conf{'new'} and defined $conf{'new'}
287 0 0 0 not $DIE_ON_SELECT_UNAVAILABLE and $should_warn
0 0 0 not $DIE_ON_SELECT_UNAVAILABLE and $should_warn and warnings::enabled()
367 0 0 0 $v and $self->packet_send_mode ne 'udp'
403 0 0 0 $v and $$s{'netgear_defaults'}

or 2 conditions

line l !l condition
118 1 12 $packetinfo{'delay'} // 0.3
119 1 11 $packetinfo{'wait_timeout'} || 1
303 0 0 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'udp') || (return $self->error("Error while creating the UDP socket for ${host}:${port}: $!"))

or 3 conditions

line l !l&&r !l&&!r condition
56 14 0 0 $2 || $1
259 0 0 0 @_ < 3 || $_[2] ne -'nowarnings'
271 0 0 0 !defined($nfound) || $nfound < 0