Condition Coverage

blib/lib/Net/Telnet/Netgear.pm
Criterion Covered Total %
condition 12 54 22.2


and 3 conditions

line !l l&&!r l&&r condition
75 1 0 1 defined &Scalar::Util::blessed($packetinfo{'instance'}) and $packetinfo{'instance'}->isa('Net::Telnet::Netgear::Packet')
115 7 0 6 defined $packet && $packet->can('get_packet')
150 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'
162 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'
175 0 0 14 defined $NETGEAR_DEFAULTS{$k} and $self->can($k)
222 0 28 38 exists $conf{'new'} and defined $conf{'new'}
289 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()
377 0 0 0 $v and $self->packet_send_mode ne 'udp'
413 0 0 0 $v and $$s{'netgear_defaults'}

or 2 conditions

line l !l condition
120 1 12 $packetinfo{'delay'} // 0.3
121 1 11 $packetinfo{'wait_timeout'} || 1
305 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
58 14 0 0 $2 || $1
261 0 0 0 @_ < 3 || $_[2] ne -'nowarnings'
273 0 0 0 !defined($nfound) || $nfound < 0
328 0 0 0 $^O ne 'MSWin32' || -S $self