| line |
true |
false |
branch |
|
13
|
0 |
5 |
unless defined $f |
|
16
|
4 |
1 |
if (ref $f) { } |
|
17
|
0 |
4 |
unless ref $f eq 'SCALAR' |
|
22
|
0 |
1 |
unless open my $fh, '<', $f |
|
51
|
0 |
28 |
unless my $prereq = _find_prereq($self->{'add_prereqs'}, $module, $relationship) |
|
54
|
13 |
15 |
if ($m->submatches->{'arg1'}->text eq '' or _args_num($m->submatches->{'args'}->text) % 2 == 1) { } |
|
59
|
13 |
0 |
if ($version) |
|
64
|
12 |
3 |
if ($version) { } |
|
78
|
0 |
1 |
unless defined $file |
|
80
|
0 |
1 |
unless open my $fh, '>', $file |
|
86
|
0 |
27 |
unless defined $module |
|
101
|
28 |
276 |
if ($prereq->{'module'} eq $module and $prereq->{'relationship'} eq $relationship) |
|
112
|
27 |
1 |
if ($s =~ /\A (?&PerlString) \Z $PPR::GRAMMAR/x) |