| line |
true |
false |
branch |
|
376
|
0 |
0 |
if ($links) { } |
|
377
|
0 |
0 |
if defined $self->count |
|
379
|
0 |
0 |
if defined $self->print_missing |
|
380
|
0 |
0 |
if defined $self->wiki |
|
397
|
0 |
4 |
unless open my $in, $infile |
|
405
|
5 |
214 |
if (m[L<"?http://]) { } |
|
|
3 |
211 |
elsif (/^ \s* \# \s* (L<<+)/iox) { } |
|
|
5 |
206 |
elsif (m[^ \s* \# \s* L< ([^/]+) / ([^/]+) >\s*$]ox) { } |
|
|
10 |
196 |
elsif (m[^ \s* \# \s* L(<) ([^/]+) / ([^/]+) / (.*) ]ox) { } |
|
|
1 |
195 |
elsif (/^ \s* \# \s* L
|
|
431
|
0 |
10 |
unless ($section) |
|
435
|
2 |
8 |
if (substr($pattern, -1, 1) ne '>') { } |
|
438
|
0 |
2 |
unless (s/>{$brackets}$//) |
|
466
|
0 |
15 |
if ($from and $from == $to) { } |
|
476
|
11 |
4 |
if $setter and $from |
|
483
|
4 |
0 |
if $setter and $from |
|
503
|
0 |
15 |
if ($from == $to) |
|
508
|
0 |
15 |
if ($pattern and substr($pattern, -1, 1) eq '/') |
|
526
|
17 |
6 |
if ($pat =~ /\G\s*"([^"]+)"/cg or $pat =~ /\G\s*'([^']+)'/cg or $pat =~ /\G\s*(\S+)/cg) { } |
|
577
|
0 |
0 |
unless open my $in, $file |
|
586
|
0 |
0 |
if $$self{'test_result'} |
|
589
|
0 |
0 |
if $i < $from |
|
590
|
0 |
0 |
if $i > $to |
|
601
|
0 |
0 |
if ($file_info) |
|
603
|
0 |
0 |
if (not exists $$file_info{$i}) { } |
|
|
0 |
0 |
elsif ($$file_info{$i}) { } |
|
624
|
0 |
0 |
unless defined $src |
|
627
|
0 |
0 |
if (not $$self{'test_result'}) { } |
|
639
|
0 |
0 |
if ($$self{'test_result'}) { } |
|
640
|
0 |
0 |
if ($ok_count == 0 and $failed_count == 0) { } |
|
686
|
0 |
1 |
unless (-e $file) |
|
692
|
0 |
1 |
unless (-e $file) |
|
695
|
0 |
1 |
unless ($file) |
|
700
|
1 |
0 |
if (open my $fh, '<', $file) |
|
717
|
0 |
0 |
if $$podtree{'_header'} |
|
722
|
0 |
0 |
if ($para eq '') { } |
|
|
0 |
0 |
elsif ($para =~ /^\s+/) { } |
|
731
|
0 |
0 |
if $self->line_anchor |
|
741
|
0 |
0 |
if (/^ =head(\d+) \s* (.*\S) \s* $/x) { } |
|
|
0 |
0 |
elsif (not $section) { } |
|
|
0 |
0 |
elsif (/^\s*$/) { } |
|
|
0 |
0 |
elsif (/^\s+(.+)/) { } |
|
753
|
0 |
0 |
if ($self->line_anchor and not $$podtree{$section}[-1] =~ /^=over\b|^=item\b/) |
|
772
|
0 |
0 |
if ($yml_file) |
|
777
|
0 |
0 |
if ($@) |
|
784
|
0 |
0 |
if ($$data{'meat'}) |
|
794
|
0 |
0 |
if $case->skipped or not $case->test_line |
|
801
|
0 |
0 |
$smoke_rev ? : |
|
835
|
0 |
0 |
if $self->line_anchor |
|
907
|
0 |
0 |
$smoke_rev ? : |
|
912
|
0 |
0 |
$pugs_rev ? : |
|
937
|
0 |
0 |
if ($self->test_files_missing_links) |
|
944
|
0 |
0 |
if (@{$$self{'errors'};}) |
|
966
|
0 |
0 |
if ($ENV{'PUGS_SMARTLINKS'}) |
|
993
|
0 |
0 |
if (grep /^=begin pod/, @pod) { } |
|
1015
|
0 |
0 |
unless ($paras) |
|
1027
|
0 |
0 |
unless ($pattern) |
|
1028
|
0 |
0 |
unless ($self->check) |
|
1038
|
0 |
0 |
if not $para or $para =~ /\?hide_quotes=no/ |
|
1039
|
0 |
0 |
if ($self->process_paragraph($para) =~ /$regex/) |
|
1040
|
0 |
0 |
unless ($self->check) |
|
1048
|
0 |
0 |
unless ($matched) |
|
1059
|
0 |
0 |
if (not $self->check) |
|
1073
|
0 |
0 |
if $self->check |
|
1075
|
0 |
0 |
if ($@) |
|
1106
|
0 |
0 |
if (not $self->check and $self->broken_link_count > 0) |
|
1139
|
0 |
0 |
if (open my $fh, '>', "$out_dir/index.html") { } |
|
1169
|
0 |
4 |
if ($self->check) |