| line |
true |
false |
branch |
|
59
|
1 |
343 |
unless my $absolute_path = $INC{$relative_path}
|
|
62
|
0 |
343 |
if -f $pod_path
|
|
108
|
0 |
0 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
155
|
1 |
1 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
166
|
0 |
1 |
unless open my $file_handle, '<', $file_name
|
|
177
|
0 |
1 |
unless close $file_handle
|
|
198
|
8 |
366 |
if $content eq $Perl::ToPerl6::Utils::POD::EMPTY
|
|
220
|
0 |
11 |
unless defined $pod
|
|
234
|
0 |
353 |
unless defined $pod
|
|
287
|
0 |
0 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
337
|
0 |
342 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
348
|
0 |
342 |
unless open my $file_handle, '<', $file_name
|
|
359
|
0 |
342 |
unless close $file_handle
|
|
375
|
2 |
357 |
unless $name_section
|
|
378
|
2 |
355 |
unless $name_section
|
|
382
|
7 |
348 |
if ('Pod::Select' eq ref $parser) { }
|
|
383
|
1 |
6 |
if ($name_section =~ / \n /msx)
|
|
393
|
347 |
1 |
if ($name_section =~ /
\A
\s*
(
\w [ \w:]+ \w
)
(
\s*
-
.*
)?
\z
/msx)
|
|
412
|
337 |
10 |
$rest ? :
|
|
416
|
337 |
17 |
if ($name_section =~ /
\A
\s*
[\w:]+ # Module name.
\s+
- # The required single hyphen.
\s+
(
\S # At least one non-whitespace.
(?: .* \S)? # Everything up to the last non-whitespace.
)
\s*
\z
/msx)
|
|
436
|
13 |
4 |
if ($name_section =~ /
\A
\s*
[\w:]+ # Module name.
(?: \s* - )? # The single hyphen is now optional.
\s*
\z
/msx)
|