Branch Coverage

lib/MCP/Run/Compress.pm
Criterion Covered Total %
branch 47 80 58.7


line true false branch
18 0 9 unless @words
25 3 4 unless ($words[$i] =~ /^-/u)
31 6 3 unless defined $subcommand
79 333 90 if ($parsed_command) { }
112 0 186 unless $parsed and $filter_spec
115 184 2 if ($filter_spec->{'program'} // "") ne ($parsed->{'program'} // "")
118 2 0 if (defined $filter_spec->{'subcommand'})
119 2 0 if ($filter_spec->{'subcommand'} // "") ne ($parsed->{'subcommand'} // "")
124 0 0 unless $parsed->{'flags'}{$flag}
155 6 3 if ($line =~ /^([d-])[rwx-]{9}\s+\d+\s+\S+\s+\S+\s+\d+\s+\w+\s+\d+\s+[\d:]+\s+(.+)$/u)
244 0 0 if ($line =~ /^\s*(\S+)\s*\|\s*(\d+)\s*\+(\d+)\s*-\s*(\d+)/u)
248 0 0 if ($line =~ /^\s*(\S+)\s*\|\s*(\d+)\s+\+(\d+),?\s*(\d+)?\s*-/u)
254 0 0 if ($line =~ /^\s*\d+\s+files?\s+changed/u)
824 186 55 if (my $pc = $filter->{'parsed_command'}) { }
8 47 elsif ($command =~ /$key/u) { }
825 0 186 if $self->_match_parsed_command($pc, $parsed)
832 233 8 unless $matches
835 1 7 if (my $detect = $filter->{'output_detect'})
838 0 1 unless ($has_match)
847 1 8 unless ($matched_filter)
854 0 8 if ($matched_filter->{'filter_stderr'})
855 0 0 if length $err
860 0 8 if ($matched_filter->{'strip_ansi'})
867 0 4 if ($out =~ /$match->{'pattern'}/u)
873 1 7 if ($matched_filter->{'transform'})
878 7 1 if (@{$matched_filter->{'strip_lines_matching'};})
883 15 302 if (/$pattern/u)
894 0 8 if (@{$matched_filter->{'keep_lines_matching'};})
899 0 0 if (/$pattern/u)
910 5 3 if ($matched_filter->{'truncate_lines_at'} > 0)
912 1 27 if (length $_ > $max) { }
913 0 0 if (length $_ > $max) { }
0 5 if length $err
917 0 8 if ($matched_filter->{'head_lines'} > 0) { }
0 8 elsif ($matched_filter->{'tail_lines'} > 0) { }
922 0 0 if ($omit > 0 and $tail > 0) { }
0 0 elsif ($omit > 0) { }
935 8 0 if ($matched_filter->{'max_lines'} > 0)
937 1 7 if (@out_lines > $matched_filter->{'max_lines'})
943 1 0 if (not length trim($out) and $matched_filter->{'on_empty'})