| line |
true |
false |
branch |
|
57
|
0 |
0 |
unless my $absolute_path = $INC{$relative_path}
|
|
60
|
0 |
0 |
if -f $pod_path
|
|
106
|
0 |
0 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
153
|
0 |
0 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
164
|
0 |
0 |
unless open my $file_handle, '<', $file_name
|
|
175
|
0 |
0 |
unless close $file_handle
|
|
196
|
0 |
0 |
if $content eq $Perl::ToPerl6::Utils::POD::EMPTY
|
|
218
|
0 |
0 |
unless defined $pod
|
|
232
|
0 |
0 |
unless defined $pod
|
|
285
|
0 |
0 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
335
|
0 |
0 |
unless my $file_name = get_pod_file_for_module($module_name)
|
|
346
|
0 |
0 |
unless open my $file_handle, '<', $file_name
|
|
357
|
0 |
0 |
unless close $file_handle
|
|
373
|
0 |
0 |
unless $name_section
|
|
376
|
0 |
0 |
unless $name_section
|
|
380
|
0 |
0 |
if ('Pod::Select' eq ref $parser) { }
|
|
381
|
0 |
0 |
if ($name_section =~ / \n /msx)
|
|
391
|
0 |
0 |
if ($name_section =~ /
\A
\s*
(
\w [ \w:]+ \w
)
(
\s*
-
.*
)?
\z
/msx)
|
|
410
|
0 |
0 |
$rest ? :
|
|
414
|
0 |
0 |
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)
|
|
434
|
0 |
0 |
if ($name_section =~ /
\A
\s*
[\w:]+ # Module name.
(?: \s* - )? # The single hyphen is now optional.
\s*
\z
/msx)
|