Branch Coverage

blib/lib/App/Timestamper/Log/Process.pm
Criterion Covered Total %
branch 20 34 58.8


line true false branch
20 3 6 if (@_)
69 1 2 if ($mode eq 'from_start' or $mode eq 'from-start') { }
2 0 elsif ($mode eq 'time') { }
89 40 0 if (my($seconds, $dotdigits, $data_str) = $line =~ /\A([0-9]+)((?:\.(?:[0-9]){0,16})?)\t([^\n]*\z)/msu) { }
93 40 0 if ($dotdigits =~ s/\A\.//msu)
113 0 1 unless my $ret = &GetOptionsFromArray($argv, "output|o=s", \$output_fn)
116 0 1 unless (defined $input_fn)
120 0 1 if (@$argv)
128 0 1 if ($USE_STDOUT) { }
145 1 33 unless (defined $start)
160 1 0 unless ($USE_STDOUT)
174 0 2 unless my $ret = &GetOptionsFromArray($argv, "output|o=s", \$output_fn)
179 0 2 if ($USE_STDOUT) { }
192 0 3 unless (defined $input_fn)
203 0 3 if defined $start
211 0 3 unless my $bw_in = "File::ReadBackwards"->new($input_fn)
228 2 0 unless ($USE_STDOUT)