| line |
true |
false |
branch |
|
38
|
10 |
5 |
if (@_ > 1) { } |
|
|
0 |
5 |
elsif (@_ == 1) { } |
|
44
|
14 |
0 |
if (/^-? # Match keys starting with '-', optionally.
( # Match either keys that begin with 'packet_' and
packet_(
# are one of the following,
mac|username|password|content|base64|instance|wait_timeout|delay|send_mode
)|
# Or keys that do not start with 'packet_' and are one of the following.
host|fhopen
)$
/xi) { } |
|
|
0 |
0 |
elsif (/^-?(netgear_defaults|exit_on_destroy)$/i) { } |
|
57
|
14 |
0 |
defined $2 ? : |
|
73
|
2 |
8 |
if (exists $packetinfo{'instance'}) { } |
|
|
3 |
5 |
elsif (exists $packetinfo{'mac'}) { } |
|
|
1 |
4 |
elsif (exists $packetinfo{'content'}) { } |
|
|
1 |
3 |
elsif (exists $packetinfo{'base64'}) { } |
|
75
|
1 |
1 |
unless defined &Scalar::Util::blessed($packetinfo{'instance'}) and $packetinfo{'instance'}->isa('Net::Telnet::Netgear::Packet') |
|
98
|
1 |
8 |
if (exists $packetinfo{'send_mode'}) |
|
115
|
6 |
7 |
defined $packet && $packet->can('get_packet') ? : |
|
123
|
0 |
11 |
if (exists $removed_keys{'fhopen'}) { } |
|
|
0 |
11 |
elsif (exists $removed_keys{'host'}) { } |
|
125
|
0 |
0 |
unless $self->fhopen($removed_keys{'fhopen'}) |
|
130
|
0 |
0 |
unless $self->open |
|
141
|
1 |
11 |
if $self->exit_on_destroy |
|
150
|
0 |
0 |
if (caller)[0] eq 'Net::Telnet::Netgear' and @_ > 0 and $_[0] eq -'callparent' |
|
162
|
0 |
0 |
if (caller)[0] eq 'Net::Telnet::Netgear' and @_ > 0 and $_[0] eq -'callparent' |
|
172
|
2 |
2 |
if @_ > 1 |
|
175
|
14 |
0 |
if defined $NETGEAR_DEFAULTS{$k} and $self->can($k) |
|
222
|
38 |
28 |
if (exists $conf{'new'} and defined $conf{'new'}) |
|
224
|
36 |
2 |
if (exists $conf{'sanitizer'}) |
|
238
|
4 |
25 |
unless /^-?\d+(?:\.\d+)?$/ |
|
248
|
2 |
1 |
unless grep {$_ eq $val;} 'auto', 'tcp', 'udp' |
|
265
|
0 |
0 |
if ($$net_telnet{'select_supported'}) { } |
|
273
|
0 |
0 |
$nfound ? : |
|
|
0 |
0 |
!defined($nfound) || $nfound < 0 ? : |
|
283
|
0 |
0 |
$DIE_ON_SELECT_UNAVAILABLE ? : |
|
288
|
0 |
0 |
if $DIE_ON_SELECT_UNAVAILABLE |
|
289
|
0 |
0 |
if not $DIE_ON_SELECT_UNAVAILABLE and $should_warn and warnings::enabled() |
|
311
|
0 |
0 |
unless $sock->send($$s{'packet'}) |
|
325
|
0 |
0 |
unless (exists *$self->{'net_telnet'}{'select_supported'}) |
|
328
|
0 |
0 |
$method eq 'open' ? : |
|
333
|
0 |
0 |
if (defined $$s{'packet'}) |
|
337
|
0 |
0 |
if ($self->packet_send_mode eq 'auto') { } |
|
|
0 |
0 |
elsif ($self->packet_send_mode eq 'udp') { } |
|
347
|
0 |
0 |
if (@params == 1) { } |
|
|
0 |
0 |
elsif (@params >= 2) { } |
|
356
|
0 |
0 |
if (/^-?(host|port)$/i) |
|
376
|
0 |
0 |
unless defined $$s{'packet'} |
|
377
|
0 |
0 |
if ($v and $self->packet_send_mode ne 'udp') { } |
|
|
0 |
0 |
elsif ($$s{'packet_send_mode'} eq 'auto') { } |
|
382
|
0 |
0 |
if ($can_read == 0) { } |
|
|
0 |
0 |
elsif ($can_read == -1) { } |
|
391
|
0 |
0 |
unless $self->$method(@params) |
|
393
|
0 |
0 |
if _can_read($self, $$s{'timeout'}, -'nowarnings') != 1 |
|
413
|
0 |
0 |
if $v and $$s{'netgear_defaults'} |