Branch Coverage

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


line true false branch
76 0 0 if ($self->get_autoconnect and $self->get_host)
78 0 0 if ($self->get_username and defined $self->get_password)
102 0 0 unless ($self->get_host)
106 0 0 if ($self->get_use_ssl) { }
127 0 0 unless $socket
151 0 0 unless ($self->get_socket)
176 0 0 if (not $self->get_username and defined $self->get_password)
179 0 0 unless ($self->get_socket)
188 0 0 unless defined $retval
189 0 0 if ($retval > 1)
194 0 0 if (exists $results[0]{'ret'})
206 0 0 unless defined $retval
207 0 0 if ($retval > 1)
211 0 0 if ($self->get_debug > 0)
258 0 0 if (defined $attrs_href->{$attr}) { }
302 0 0 defined $attrs_href->{$attr} ? :
304 0 0 if (defined $queries_ref)
305 0 0 if (ref $queries_ref eq 'HASH') { }
0 0 elsif (ref $queries_ref eq 'ARRAY') { }
307 0 0 if (defined $queries_ref->{$query}) { }
337 0 0 unless defined $retval
338 0 0 if ($retval > 1)
345 0 0 if ($attr eq $id)
349 0 0 if ($key)
421 0 0 defined $_ ? :
481 0 0 if ($self->get_probe_before_talk)
488 0 0 if ($@)
489 0 0 if ($self->get_reconnect_after_failed_probe) { }
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 (my($key, $value) = $line =~ /^=([^=]+)=(.*)/s)
522 0 0 if keys %dataset
523 0 0 if $reply[0] eq '!done'
525 0 0 unless (@reply)
544 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') { }
556 0 0 if $reply[0] eq '!done'
565 0 0 $self->get_use_ssl ? :
0 0 $self->_get_port ? :
580 0 0 if ($self->get_debug > 2)
598 0 0 if ($len < 128) { }
0 0 elsif ($len < 16384) { }
0 0 elsif ($len < 2097152) { }
0 0 elsif ($len < 268435456) { }
637 0 0 unless $word
639 0 0 unless $word =~ /^!/
643 0 0 if ($self->get_debug > 2)
657 0 0 unless defined $len
658 0 0 if ($len > 0)
659 0 0 if ($self->get_debug > 3)
666 0 0 if not defined $line or $line eq ''
670 0 0 if length $ret_line != $len
679 0 0 if ($self->get_debug > 4)
685 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) { }
686 0 0 if ($self->get_debug > 4)
722 0 0 if ($self->get_debug > 4)
733 0 0 if not defined $line or length $line != 1