| line |
true |
false |
branch |
|
444
|
0 |
0 |
if state $once_called++
|
|
450
|
0 |
0 |
if @opt_format == 0
|
|
452
|
0 |
0 |
$opt_ignore_space ? :
|
|
464
|
0 |
0 |
if (-d $file)
|
|
474
|
0 |
0 |
if (@dicts == 0)
|
|
483
|
0 |
0 |
unless $current_file = delete $arg{&FILELABEL}
|
|
484
|
0 |
0 |
if $remember_data
|
|
495
|
0 |
0 |
@_ ? :
|
|
496
|
0 |
0 |
$diverted == 0 ? :
|
|
497
|
0 |
0 |
unless open SUBST_STDOUT, ">&", \*STDOUT
|
|
499
|
0 |
0 |
unless open STDOUT, ">", $buffer
|
|
503
|
0 |
0 |
$diverted == 1 ? :
|
|
505
|
0 |
0 |
unless open STDOUT, ">&", \*SUBST_STDOUT
|
|
514
|
0 |
0 |
if (not defined $_[0] or length $_[0] == 0)
|
|
533
|
0 |
0 |
if ($p->is_comment)
|
|
534
|
0 |
0 |
if $opt_show_comment
|
|
542
|
0 |
0 |
if @keys != 0
|
|
|
0 |
0 |
if ($opt_check eq 'none') { }
|
|
|
0 |
0 |
elsif ($opt_check eq 'any') { }
|
|
|
0 |
0 |
elsif ($opt_check eq 'ok') { }
|
|
|
0 |
0 |
elsif ($opt_check eq 'ng') { }
|
|
|
0 |
0 |
elsif ($opt_check eq 'outstand') { }
|
|
|
0 |
0 |
elsif ($opt_check eq 'all') { }
|
|
543
|
0 |
0 |
if @keys == 0
|
|
544
|
0 |
0 |
if @ok == 0
|
|
545
|
0 |
0 |
if @ng == 0
|
|
546
|
0 |
0 |
if @ng == 0
|
|
555
|
0 |
0 |
if ($opt_show_numbers)
|
|
563
|
0 |
0 |
if @$show == 0
|
|
565
|
0 |
0 |
if ($opt_stat_item{'dict'})
|
|
570
|
0 |
0 |
if ($p->is_comment)
|
|
571
|
0 |
0 |
if $opt_show_comment
|
|
576
|
0 |
0 |
if ($opt_stat_style eq 'dict') { }
|
|
580
|
0 |
0 |
if $opt_stat_item{'ng'}
|
|
582
|
0 |
0 |
if $opt_stat_item{'ok'}
|
|
583
|
0 |
0 |
if $opt_stat_item{'match'}
|
|
584
|
0 |
0 |
if $opt_stat_item{'expect'}
|
|
585
|
0 |
0 |
if $opt_stat_item{'number'}
|
|
587
|
0 |
0 |
$key eq $to ? :
|
|
590
|
0 |
0 |
$key eq $to ? :
|
|
605
|
0 |
0 |
unless $current_file = delete $arg{&FILELABEL}
|
|
617
|
0 |
0 |
if $p->is_comment
|
|
631
|
0 |
0 |
unless $show and @$list
|
|
646
|
0 |
0 |
if @match
|
|
647
|
0 |
0 |
if @match == 0 and $opt_check ne "all"
|
|
652
|
0 |
0 |
$i % 2 ? :
|
|
656
|
0 |
0 |
$opt_subst && $to ne '' && $s ne $to ? :
|
|
663
|
0 |
0 |
if ($matched =~ s/$ignorechar_re//gru ne $to) { }
|
|
672
|
0 |
0 |
if $ng or @ng and $outstand
|
|
673
|
0 |
0 |
if $ok or @ng and $outstand
|
|
681
|
0 |
0 |
if (my $select = $opt_subst_select)
|