Condition Coverage

blib/lib/Net/Traces/TSH.pm
Criterion Covered Total %
condition 17 40 42.5


and 3 conditions

line !l l&&!r l&&r condition
647 6 7 11 $_ = shift() and /(\d{10})/
1111 0 0 0 4 < $dscp and $dscp < 20
1300 0 0 0 $Trace{'unidirectional'} and exists $senders{$if}{"$dst,$dst_port,$src,$src_port"}
1375 0 1 0 close TCPDUMP and progress "TCP activity stored in text format in $options{'tcpdump'}\n"
1379 5 0 0 $Trace{'Transport'}{'TCP'}{'Concurrent Segments'} and wantarray
1523 0 0 3 ref $FH eq 'GLOB' and ref $href eq 'HASH'
1746 0 0 1 $Trace{'IP'}{'Total'}{'Bytes'} and $Trace{'IP'}{'Total'}{'Packets'}
0 0 1 $Trace{'IP'}{'Total'}{'Bytes'} and $Trace{'IP'}{'Total'}{'Packets'} and $Trace{'ends'}

or 2 conditions

line l !l condition
991 0 5 date_of($Trace{'filename'}) || date_of($t_sec) || 'Unknown'
1007 4985 15 $iana_protocol_numbers{oct "0b$protocol"} || 'Unknown'

or 3 conditions

line l !l&&r !l&&!r condition
902 1 0 0 open TCPDUMP, '>', $options{'tcpdump'} or croak("Cannot open $options{'tcpdump'}. $!")
1343 283 7 180 $tcp_payload || $syn || $fin || $rst
1706 0 2 0 shift() || $Trace{'filename'}
1756 0 0 1 shift() || "$Trace{'filename'}.csv"