Branch Coverage

blib/lib/Net/TcpDumpLog.pm
Criterion Covered Total %
branch 16 42 38.1


line true false branch
47 0 1 if (defined $bits and $bits == 64) { }
1 0 elsif (defined $bits and $bits == 32) { }
55 0 1 if (defined $skip and $skip > 0)
76 0 1 unless open TCPDUMPFILE, "$file"
82 0 1 if $length < 24
87 0 0 unless ($ident =~ /^\241\262\303\324/ or $ident =~ /^\324\303\262\241/ or $ident =~ /^\241\262\315\064/ or $ident =~ /^\064\315\262\241/)
95 1 0 if ($ident =~ /^\241\262\303\324/)
107 0 1 if ($ident =~ /^\324\303\262\241/)
118 0 1 if ($ident =~ /^\241\262\315\064/)
129 0 1 if ($ident =~ /^\064\315\262\241/)
157 0 186 if ($$self{'bits'} == 64) { }
186 0 elsif ($$self{'bits'} == 32) { }
166 0 0 if $length < 24
181 1 185 if $length < 16
184 185 0 if ($$self{'bigendian'}) { }
204 0 0 if $length < $$self{'sizeint'} * 2 + 8
207 0 0 if ($$self{'sizeint'} == 4) { }
208 0 0 if ($$self{'bigendian'}) { }
218 0 0 if ($$self{'bigendian'}) { }
232 0 185 if ($$self{'style'} =~ /^modified/)
237 0 185 if (defined $$self{'skip'})