Branch Coverage

blib/lib/Ham/APRS/DeviceID.pm
Criterion Covered Total %
branch 33 60 55.0


line true false branch
103 0 0 defined $result_messages{$errcode} ? :
107 0 0 if defined $val
109 0 0 if ($debug > 0)
122 0 0 if ($debug > 0)
123 0 0 defined $result_messages{$errcode} ? :
0 0 defined $val ? :
156 0 0 if ($dval) { }
961 252 0 if ($regexp =~ /^([^\(]{2,5})(\(.*)$/) { }
962 240 12 if (not defined $regexp_prefix{$1}) { }
995 0 21 unless defined $$p{'format'}
996 0 21 unless defined $$p{'dstcallsign'}
998 17 4 if ($$p{'format'} eq 'mice')
1002 0 17 unless (defined $$p{'comment'})
1005 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/) { }
2 5 elsif ($$p{'comment'} =~ s/^`(.*)_"$/$1/) { }
2 3 elsif ($$p{'comment'} =~ s/^`(.*)_#$/$1/) { }
1 2 elsif ($$p{'comment'} =~ s/^\'(.*)\|3$/$1/) { }
2 0 elsif ($$p{'comment'} =~ s/^\'(.*)\|4$/$1/) { }
0 0 elsif ($$p{'comment'} =~ s/^[`\'](.*)\*[0-9]$/$1/) { }
0 0 elsif ($$p{'comment'} =~ s/^[`\'](.*)^.$/$1/) { }
0 0 elsif ($$p{'comment'} =~ s/^[`\'](.*)~.$/$1/) { }
1030 17 0 if ($resp)
1037 2 2 if (defined $fixed_dstcalls{$$p{'dstcallsign'}})
1044 2 3 if (defined $regexp_prefix{$prefix})
1048 2 1 if ($$p{'dstcallsign'} =~ /$compiled/)
1053 2 0 if ($$response{'version_regexp'})