Branch Coverage

blib/lib/Net/Traces/SSFNet.pm
Criterion Covered Total %
branch 40 120 33.3


line true false branch
242 0 3 if (not defined $in) { }
3 0 elsif (not defined fileno $in) { }
244 0 0 if wantarray
248 0 3 unless open IN_FH, '<', $in
267 0 3 unless $utf_string eq 'record'
272 2 1 if (defined $stream_id) { }
273 0 2 unless $utf_string eq $stream_id
278 0 1 if wantarray
307 0 1 if (not defined $out) { }
1 0 elsif (not defined fileno $out) { }
309 0 0 if defined wantarray
313 0 1 unless open OUT_FH, '>', $out
409 3 6 if ($type == 0)
418 0 3 unless $supported_record_types{$t_name}
421 0 3 if $SHOW_SOURCES
432 3 3 if ($type == 1)
440 0 3 if $SHOW_SOURCES
459 2 1 if ($types{$type} eq 'SSF.Net.QueueProbeIntRecord')
478 2 0 if ($PRINT_EXACT_DECIMAL_DIGITS)
483 2 0 $d < 0 ? :
503 3 10 if ($types{$type} eq 'SSF.Net.QueueRecord_1')
534 10 0 if ($types{$type} eq 'SSF.Net.QueueRecord_2')
539 1 9 unless (defined $sampling_intervals{$stream})
542 1 0 if ($PRINT_EXACT_DECIMAL_DIGITS)
547 0 1 $d < 0 ? :
593 0 1 if ($SHOW_STATS)
596 0 0 if ($seconds > 0)
657 0 0 if (defined $can_plot{$p}) { }
697 0 0 if ($type == 0)
706 0 0 unless $supported_record_types{$t_name}
709 0 0 if $SHOW_SOURCES
720 0 0 if ($type == 1)
728 0 0 if $SHOW_SOURCES
733 0 0 unless open $plot_fh{$s_id}{$k}, '>', "$s_name.$plot{$k}"
743 0 0 if ($types{$type} eq 'SSF.Net.QueueProbeIntRecord')
758 0 0 if ($PRINT_EXACT_DECIMAL_DIGITS)
763 0 0 $d < 0 ? :
783 0 0 if ($types{$type} eq 'SSF.Net.QueueRecord_1')
807 0 0 if $plot{'pkts'}
810 0 0 if $plot{'drops'}
813 0 0 if $plot{'av_qlen'}
820 0 0 if ($types{$type} eq 'SSF.Net.QueueRecord_2')
821 0 0 unless (defined $sampling_intervals{$stream})
824 0 0 if ($PRINT_EXACT_DECIMAL_DIGITS)
829 0 0 $d < 0 ? :
864 0 0 if $plot{'pkts'}
867 0 0 if $plot{'drops'}
870 0 0 if $plot{'sumpkts'}
873 0 0 if $plot{'sumdrops'}
883 0 0 if ($SHOW_STATS)
886 0 0 if ($seconds > 0)
913 0 5 if $i == 2139095040
914 0 5 if $i == 4286578688
916 0 5 if $i >= 2139095041 and $i <= 2147483647 or $i >= 4294967295 and $i <= 4286578689
919 5 0 $i >> 31 == 0 ? :
921 0 5 $e == 0 ? :
925 0 5 $e >= 0 ? :
940 6 0 substr($i, 0, 1) eq '0' ? :
949 2 4 if ($e == 0) { }
959 0 6 $e >= 0 ? :