| line |
true |
false |
branch |
|
437
|
3 |
1 |
defined $opts{'-warnings'} ? : |
|
499
|
79 |
0 |
ref $_[0] ? : |
|
503
|
79 |
0 |
exists $opts{'-line'} ? : |
|
505
|
79 |
0 |
defined $self->source_filename ? : |
|
|
0 |
79 |
exists $opts{'-file'} ? : |
|
509
|
0 |
79 |
unless (exists $opts{'-severity'}) |
|
511
|
0 |
0 |
if $msg =~ s/^\**\s*([A-Z]{3,}):\s+// |
|
513
|
79 |
0 |
exists $opts{'-severity'} ? : |
|
517
|
58 |
21 |
if not %opts or $opts{-'severity'} and $opts{'-severity'} eq 'ERROR' |
|
519
|
21 |
58 |
if not %opts or $opts{-'severity'} and $opts{'-severity'} eq 'WARNING' |
|
520
|
79 |
0 |
unless ($self->{'-quiet'}) |
|
523
|
79 |
0 |
if $self->{'-warnings'} or not %opts or $opts{'-severity'} ne 'WARNING' |
|
536
|
0 |
4 |
@_ > 1 ? : |
|
549
|
0 |
1 |
@_ > 1 ? : |
|
563
|
0 |
0 |
@_ > 1 && $_[1] ? : |
|
579
|
128 |
4 |
if (defined $text) |
|
585
|
126 |
2 |
unless $text =~ /^\s*$/s |
|
604
|
6 |
4 |
if (defined $text) |
|
610
|
5 |
1 |
unless $text =~ /^\s*$/s |
|
701
|
0 |
249 |
if $inner eq 'L' and $Pod::Simple::VERSION ge '3.33' |
|
703
|
7 |
242 |
if (grep {$_ eq $inner;} @$outers) |
|
727
|
2 |
18 |
if ($line =~ /=(pod|cut)\s+\S/) |
|
738
|
11 |
149 |
if ($self->{'_head_num'} == 1 and $self->{'_head_text'} eq 'NAME') |
|
739
|
4 |
7 |
if ($self->{'_thispara'} =~ /^\s*(\S+?)\s*[,-]/) |
|
740
|
3 |
1 |
unless defined $self->{'_pod_name'} |
|
749
|
1 |
9 |
if ($self->{'_head_num'} == 1 and $self->{'_head_text'} eq 'NAME') |
|
772
|
1 |
42 |
if ($h > 1 and not $$self{'_count_head' . ($h - 1)}) |
|
779
|
5 |
38 |
if ($self->{'_cmds_since_head'} == 1 and $prev_h >= $h) |
|
798
|
1 |
42 |
if ($arg eq '') |
|
834
|
1 |
84 |
if ($self->{'_thispara'} eq '' and not @{$self->{'paras'};} && $self->{'paras'}[0][0] =~ /Verbatim/i) |
|
855
|
2 |
2 |
if ($flags->{'fake-closer'}) |
|
868
|
0 |
4 |
unless $self->content_seen |
|
873
|
87 |
41 |
if (/^(\S+)\s+\S/) |
|
889
|
8 |
12 |
unless ($nodes{$name}) |
|
898
|
3 |
1 |
if ($self->{'-warnings'} > 1) |
|
901
|
3 |
119 |
if ($count > 1) |
|
940
|
62 |
0 |
if ($link) |
|
941
|
20 |
42 |
if ($link->type eq 'pod' and $link->node and !$link->page || $self->{'_pod_name'} && $link->page eq $self->{'_pod_name'}) { } |
|
974
|
1 |
5 |
if ($x eq '') |
|
1001
|
43 |
19 |
exists $simple_link->{'to'} ? : |
|
1002
|
40 |
22 |
exists $simple_link->{'section'} ? : |
|
1020
|
0 |
62 |
if ($self->{'-page'} eq '' and $self->{'-node'} eq '') |