Branch Coverage

blib/lib/MikroTik/API.pm
Criterion Covered Total %
branch 0 126 0.0


line true false branch
70 0 0 if ($self->get_autoconnect and $self->get_host)
72 0 0 if ($self->get_username and defined $self->get_password)
96 0 0 unless ($self->get_host)
100 0 0 if ($self->get_use_ssl) { }
122 0 0 unless ($self->get_socket)
147 0 0 if (not $self->get_username and defined $self->get_password)
150 0 0 unless ($self->get_socket)
159 0 0 unless defined $retval
160 0 0 if ($retval > 1)
165 0 0 if (exists $results[0]{'ret'})
177 0 0 unless defined $retval
178 0 0 if ($retval > 1)
182 0 0 if ($self->get_debug > 0)
229 0 0 if (defined $attrs_href->{$attr}) { }
272 0 0 defined $attrs_href->{$attr} ? :
274 0 0 if (defined $queries_ref)
275 0 0 if (ref $queries_ref eq 'HASH') { }
0 0 elsif (ref $queries_ref eq 'ARRAY') { }
277 0 0 if (defined $queries_ref->{$query}) { }
306 0 0 unless defined $retval
307 0 0 if ($retval > 1)
314 0 0 if ($attr eq $id)
318 0 0 if ($key)
443 0 0 if ($self->get_probe_before_talk)
450 0 0 if ($@)
451 0 0 if ($self->get_reconnect_after_failed_probe) { }
468 0 0 if ($reply[0] eq '!done') { }
0 0 elsif ($reply[0] eq '!re') { }
0 0 elsif ($reply[0] eq '!trap') { }
0 0 elsif ($reply[0] eq '!fatal') { }
480 0 0 if (my($key, $value) = $line =~ /^=([^=]+)=(.*)/s)
484 0 0 if keys %dataset
485 0 0 if $reply[0] eq '!done'
487 0 0 unless (@reply)
506 0 0 if ($reply[0] eq '!done') { }
0 0 elsif ($reply[0] eq '!re') { }
0 0 elsif ($reply[0] eq '!trap') { }
0 0 elsif ($reply[0] eq '!fatal') { }
518 0 0 if $reply[0] eq '!done'
527 0 0 $self->get_use_ssl ? :
0 0 $self->_get_port ? :
542 0 0 if ($self->get_debug > 2)
560 0 0 if ($len < 128) { }
0 0 elsif ($len < 16384) { }
0 0 elsif ($len < 2097152) { }
0 0 elsif ($len < 268435456) { }
599 0 0 unless $word
601 0 0 unless $word =~ /^!/
605 0 0 if ($self->get_debug > 2)
619 0 0 unless defined $len
620 0 0 if ($len > 0)
621 0 0 if ($self->get_debug > 3)
628 0 0 if not defined $line or $line eq ''
632 0 0 if length $ret_line != $len
641 0 0 if ($self->get_debug > 4)
647 0 0 if (($len & 128) == 0) { }
0 0 elsif (($len & 192) == 128) { }
0 0 elsif (($len & 224) == 192) { }
0 0 elsif (($len & 240) == 224) { }
0 0 elsif (($len & 248) == 240) { }
648 0 0 if ($self->get_debug > 4)
684 0 0 if ($self->get_debug > 4)
695 0 0 if not defined $line or length $line != 1