line |
true |
false |
branch |
550
|
3 |
2 |
defined $opts{'-warnings'} ? : |
612
|
82 |
1 |
ref $_[0] ? : |
616
|
82 |
1 |
exists $opts{'-line'} ? : |
618
|
83 |
0 |
defined $self->source_filename ? : |
|
0 |
83 |
exists $opts{'-file'} ? : |
622
|
1 |
82 |
unless (exists $opts{'-severity'}) |
624
|
1 |
0 |
if $msg =~ s/^\**\s*([A-Z]{3,}):\s+// |
626
|
83 |
0 |
exists $opts{'-severity'} ? : |
630
|
59 |
24 |
if not %opts or $opts{'-severity'} and $opts{'-severity'} eq 'ERROR' |
632
|
23 |
60 |
if not %opts or $opts{'-severity'} and $opts{'-severity'} eq 'WARNING' |
633
|
82 |
1 |
unless ($self->{'-quiet'}) |
636
|
82 |
0 |
if $self->{'-warnings'} or not %opts or $opts{'-severity'} ne 'WARNING' |
649
|
0 |
4 |
@_ > 1 ? : |
662
|
0 |
1 |
@_ > 1 ? : |
676
|
0 |
1 |
@_ > 1 && $_[1] ? : |
692
|
181 |
5 |
if (defined $text) |
698
|
179 |
2 |
unless $text =~ /^\s*$/s |
717
|
6 |
5 |
if (defined $text) |
723
|
5 |
1 |
unless $text =~ /^\s*$/s |
780
|
1 |
44 |
if $complaint =~ /\bZ\<\>/ |
817
|
66 |
189 |
if $inner eq 'L' and $Pod::Simple::VERSION ge '3.33' |
819
|
7 |
182 |
if (grep {$_ eq $inner;} @$outers) |
843
|
2 |
19 |
if ($line =~ /=(pod|cut)\s+\S/) |
854
|
12 |
150 |
if ($self->{'_head_num'} == 1 and $self->{'_head_text'} eq 'NAME') |
855
|
5 |
7 |
if ($self->{'_thispara'} =~ /^\s*(\S+?)\s*[,-]/) |
856
|
4 |
1 |
unless defined $self->{'_pod_name'} |
865
|
1 |
9 |
if ($self->{'_head_num'} == 1 and $self->{'_head_text'} eq 'NAME') |
888
|
1 |
43 |
if ($h > 1 and not $$self{'_count_head' . ($h - 1)}) |
895
|
5 |
39 |
if ($self->{'_cmds_since_head'} == 1 and $prev_h >= $h) |
914
|
1 |
43 |
if ($arg eq '') |
950
|
1 |
136 |
if ($self->{'_thispara'} eq '' and not @{$self->{'paras'};} && $self->{'paras'}[0][0] =~ /Verbatim/i) |
971
|
2 |
2 |
if ($flags->{'fake-closer'}) |
984
|
0 |
5 |
unless $self->content_seen |
989
|
87 |
94 |
if (/^(\S+)\s+\S/) |
1005
|
8 |
12 |
unless ($nodes{$name}) |
1014
|
3 |
2 |
if ($self->{'-warnings'} > 1) |
1017
|
3 |
171 |
if ($count > 1) |
1056
|
65 |
1 |
if ($link) |
1057
|
20 |
45 |
if ($link->type eq 'pod' and $link->node and !$link->page || $self->{'_pod_name'} && $link->page eq $self->{'_pod_name'}) { } |
1090
|
1 |
5 |
if ($x eq '') |
1117
|
46 |
20 |
exists $simple_link->{'to'} ? : |
1118
|
41 |
25 |
exists $simple_link->{'section'} ? : |
1136
|
1 |
65 |
if ($self->{'-page'} eq '' and $self->{'-node'} eq '') |