Branch Coverage

blib/lib/App/Greple/subst.pm
Criterion Covered Total %
branch 53 94 56.3


line true false branch
466 0 21 if state $once_called++
468 0 21 if ($opt_show_dictdir)
477 21 0 if @opt_format == 0
479 0 21 $opt_ignore_space ? :
484 2 19 if (@opt_subst_from)
485 0 2 if @opt_subst_from != @opt_subst_to
498 0 17 if (-d $file)
508 0 21 if (@dicts == 0)
517 0 21 unless $current_file = delete $arg{&FILELABEL}
524 0 60 if (not defined $_[0] or length $_[0] == 0)
543 9 30 if ($p->is_comment)
544 0 9 if $opt_show_comment
552 0 0 if @keys != 0
0 30 if ($opt_check eq 'none') { }
0 30 elsif ($opt_check eq 'any') { }
0 30 elsif ($opt_check eq 'ok') { }
0 30 elsif ($opt_check eq 'ng') { }
30 0 elsif ($opt_check eq 'outstand') { }
0 0 elsif ($opt_check eq 'all') { }
553 0 0 if @keys == 0
554 0 0 if @ok == 0
555 0 0 if @ng == 0
556 0 30 if @ng == 0
565 3 0 if ($opt_show_numbers)
573 0 3 if @$show == 0
575 1 2 if ($opt_stat_item{'dict'})
580 0 30 if ($p->is_comment)
581 0 0 if $opt_show_comment
586 0 30 if ($opt_stat_style eq 'dict') { }
590 30 0 if $opt_stat_item{'ng'}
592 30 0 if $opt_stat_item{'ok'}
593 30 0 if $opt_stat_item{'match'}
594 30 0 if $opt_stat_item{'expect'}
595 30 0 if $opt_stat_item{'number'}
597 0 30 $key eq $to ? :
600 0 30 $key eq $to ? :
615 0 21 unless $current_file = delete $arg{&FILELABEL}
627 33 164 if $p->is_comment
641 326 2 unless $show and @$list
656 160 4 if @match
657 0 164 if @match == 0 and $opt_check ne "all"
662 5 161 $i % 2 ? :
666 88 78 $opt_subst && $to ne '' && $s ne $to ? :
673 175 7 if ($matched =~ s/$ignorechar_re//gru ne $to) { }
682 162 2 if $ng or @ng and $outstand
683 162 2 if $ok or @ng and $outstand
691 2 19 if (my $select = $opt_subst_select)