Branch Coverage

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


line true false branch
41 1 0 unless defined ${^GLOBAL_PHASE} and ${^GLOBAL_PHASE} eq 'DESTRUCT'
46 0 2 ref $_[-1] eq 'CODE' ? :
51 3 10 ref $_[-1] eq 'CODE' ? :
55 3 10 if $cb
70 0 0 $_[1] ? :
76 0 1 unless (ref $_[-1] eq 'CODE')
117 0 1 $tls ? :
4 1 $self->port ? :
136 2 2 if $_[1]
146 1 0 if $self
147 0 0 if $self
150 0 0 if $self
151 0 5 $tls ? :
158 5 0 unless my $queue = $self->{'queue'}
189 1 3 if $err
190 2 1 unless $res->[0]{'ret'}
199 3 1 $self->new_login ? :
212 1 24 unless my $r = $self->{'requests'}{delete $_->{'.tag'}}
214 15 9 if %$_ and not $r->{'subscription'}
216 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') { }
233 5 16 unless $self->{'handle'}
250 1 17 if $r->{'subscription'}