Branch Coverage

blib/lib/Ham/APRS/DeviceID.pm
Criterion Covered Total %
branch 36 60 60.0


line true false branch
111 0 0 defined $result_messages{$errcode} ? :
115 0 0 if defined $val
117 0 0 if ($debug > 0)
130 0 0 if ($debug > 0)
131 0 0 defined $result_messages{$errcode} ? :
0 0 defined $val ? :
164 0 0 if ($dval) { }
230 99 258 if ($tocall =~ /^[A-Z0-9]+$/) { }
258 0 elsif ($tocall =~ /^([A-Z0-9]+)([n\?\*]+)([A-Z0-9]*)$/) { }
265 0 3 unless (defined $c)
304 258 0 if ($regexp =~ /^([^\(]{2,5})(\(.*)$/) { }
305 255 3 if (not defined $regexp_prefix{$1}) { }
339 0 21 unless defined $$p{'format'}
340 0 21 unless defined $$p{'dstcallsign'}
342 17 4 if ($$p{'format'} eq 'mice')
345 0 17 unless (defined $$p{'comment'})
348 2 15 if ($$p{'comment'} =~ s/^>(.*)=$/$1/) { }
2 13 elsif ($$p{'comment'} =~ s/^>//) { }
1 12 elsif ($$p{'comment'} =~ s/^\](.*)=$/$1/) { }
2 10 elsif ($$p{'comment'} =~ s/^\]//) { }
3 7 elsif ($$p{'comment'} =~ s/^`(.*)_\s*$/$1/) { }
7 0 elsif ($$p{'comment'} =~ /^([`\'])(.*)(..)$/) { }
363 7 0 if (defined $mice_codes{$code}) { }
370 4 3 if $b eq '`'
373 17 0 if ($$p{'deviceid'})
374 10 7 if $$p{'deviceid'}{'messaging'}
381 2 2 if (defined $fixed_dstcalls{$$p{'dstcallsign'}})
388 2 3 if (defined $regexp_prefix{$prefix})
392 2 1 if ($$p{'dstcallsign'} =~ /$compiled/)
397 0 2 if ($$response{'version_regexp'})