Branch Coverage

blib/lib/MikroTik/Client.pm
Criterion Covered Total %
branch 35 48 72.9


line true false branch
37 1 0 unless defined ${^GLOBAL_PHASE} and ${^GLOBAL_PHASE} eq 'DESTRUCT'
42 0 2 ref $_[-1] eq 'CODE' ? :
47 3 10 ref $_[-1] eq 'CODE' ? :
51 3 10 if $cb
66 0 0 $_[1] ? :
72 0 1 unless (ref $_[-1] eq 'CODE')
113 0 1 $tls ? :
4 1 $self->port ? :
128 2 2 if $_[1]
138 1 0 if $self
139 0 0 if $self
142 0 0 if $self
143 0 5 $tls ? :
150 5 0 unless my $queue = $self->{'queue'}
180 1 3 if $err
181 2 1 unless $res->[0]{'ret'}
190 3 1 $self->new_login ? :
203 1 24 unless my $r = $self->{'requests'}{delete $_->{'.tag'}}
205 15 9 if %$_ and not $r->{'subscription'}
207 1 23 if ($type eq '!re' and $r->{'subscription'}) { }
8 15 elsif ($type eq '!done') { }
7 8 elsif ($type eq '!trap' or $type eq '!fatal') { }
224 5 16 unless $self->{'handle'}
241 1 17 if $r->{'subscription'}