| line |
true |
false |
branch |
|
58
|
1 |
1305 |
unless my $absolute_path = $INC{$relative_path}
|
|
61
|
0 |
1305 |
if -f $pod_path
|
|
107
|
0 |
0 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
154
|
1 |
2 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
165
|
0 |
2 |
unless open my $file_handle, "<", $file_name
|
|
176
|
0 |
2 |
unless close $file_handle
|
|
193
|
0 |
1336 |
unless open my $content_handle, ">", \$content
|
|
198
|
0 |
1336 |
unless close $content_handle
|
|
200
|
8 |
1328 |
if $content eq $Perl::Critic::Utils::POD::EMPTY
|
|
209
|
0 |
14 |
unless open my $source_handle, "<", \$source
|
|
216
|
0 |
14 |
unless close $source_handle
|
|
226
|
0 |
11 |
unless defined $pod
|
|
240
|
0 |
1315 |
unless defined $pod
|
|
293
|
0 |
0 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
343
|
0 |
1303 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
354
|
0 |
1303 |
unless open my $file_handle, "<", $file_name
|
|
365
|
0 |
1303 |
unless close $file_handle
|
|
381
|
2 |
1318 |
unless $name_section
|
|
384
|
2 |
1316 |
unless $name_section
|
|
388
|
7 |
1309 |
if ('Pod::Select' eq ref $parser) { }
|
|
389
|
1 |
6 |
if ($name_section =~ / \n /msx)
|
|
399
|
1308 |
1 |
if ($name_section =~ /
|
|
418
|
1307 |
1 |
$rest ? :
|
|
422
|
1307 |
8 |
if ($name_section =~ /
|
|
442
|
4 |
4 |
if ($name_section =~ /
|
|
463
|
0 |
17 |
unless open my $source_handle, "<", \$source
|
|
470
|
0 |
12 |
unless close $source_handle
|