| line |
true |
false |
branch |
|
72
|
0 |
151 |
unless $file_spec |
|
120
|
146 |
10494 |
if $self->is_eof |
|
141
|
126 |
25 |
unless ref $arg eq 'ARRAY' |
|
147
|
29 |
137 |
if (ref $item eq 'HASH') { } |
|
149
|
0 |
29 |
unless length $item->{'path'} |
|
153
|
0 |
29 |
unless @list |
|
161
|
0 |
137 |
unless @list |
|
169
|
37 |
166 |
if (ref $item eq 'HASH') { } |
|
172
|
64 |
10 |
unless defined $item->{$key} |
|
200
|
70 |
133 |
if ($path =~ /\.p[lm]$/) { } |
|
|
1 |
132 |
elsif ($path =~ /\.pod$/) { } |
|
|
128 |
4 |
elsif ($path =~ /\.t$/) { } |
|
221
|
12 |
5476 |
if $text =~ /^__(END|DATA)__$/ |
|
222
|
10 |
5478 |
if $in_data and $text =~ /^FILE:<.*>-/ |
|
225
|
5477 |
1 |
if ($attrs->{'has_pod'}) |
|
226
|
615 |
4862 |
if ($text =~ /^=([a-zA-Z]\S*)(\s+(.*))?\s*$/) |
|
230
|
34 |
581 |
if ($cmd eq 'pod') { } |
|
|
143 |
438 |
elsif ($cmd =~ /^cut/) { } |
|
|
28 |
410 |
elsif ($cmd =~ /^begin/) { } |
|
|
28 |
382 |
elsif ($cmd =~ /^end/) { } |
|
|
4 |
378 |
elsif ($cmd =~ /^for/) { } |
|
238
|
28 |
0 |
if ($format eq 'DC_CODE') |
|
244
|
28 |
0 |
if ($format eq 'DC_CODE') |
|
250
|
4 |
0 |
if ($format eq 'DC_TODO') |
|
257
|
5241 |
237 |
unless (defined $this_line_doc) |
|
258
|
2229 |
3012 |
if $code or $doc_mode |
|
260
|
2229 |
3249 |
$this_line_doc ? : |
|
266
|
5478 |
0 |
unless $attrs->{'white'} |
|
277
|
60 |
143 |
if ($text =~ /^\s*(\S+)(\s+(.*))?$/) { } |
|
280
|
2 |
13 |
/^(.+?)=(.*)$/ ? : |
|
292
|
26 |
0 |
if (open my $fh, '<', $path) { } |