| line |
true |
false |
branch |
|
35
|
1 |
2 |
unless getopt(\@args, 'l|lib=s', sub {
push @$lib, $path->child($_[1]);
}
, 'r|requires=s', sub {
++$$requires{$_[1]};
}
, 't=s', sub {
push @$t, $path->child($_[1]);
}
) |
|
37
|
1 |
1 |
unless $lib->size |
|
38
|
1 |
1 |
unless $t->size |
|
46
|
1 |
1 |
if $versions->{'perl'} |
|
63
|
2 |
2 |
$test ? : |
|
74
|
126 |
202 |
if $token eq 'horizontal_space' or $token eq 'vertical_space' |
|
78
|
32 |
170 |
if ($token eq 'keyword') { } |
|
|
33 |
137 |
elsif ($keyword) { } |
|
79
|
18 |
14 |
if ($value eq 'package' or $value eq 'use' or $value eq 'require') { } |
|
88
|
18 |
15 |
if ($token eq 'bare_word') { } |
|
|
5 |
10 |
elsif ($token eq 'number' or $token eq 'v_string') { } |
|
89
|
1 |
17 |
if ($keyword eq 'package') { } |
|
|
15 |
2 |
elsif ($keyword eq 'use') { } |
|
|
2 |
0 |
elsif ($keyword eq 'require') { } |
|
95
|
13 |
2 |
unless ($module) |
|
107
|
4 |
1 |
if ($keyword eq 'use') { } |
|
|
1 |
0 |
elsif ($keyword eq 'require') { } |
|
108
|
3 |
1 |
if ($module) { } |
|
140
|
4 |
13 |
if (my $module_versions = $v->{$module_name}) { } |
|
141
|
1 |
0 |
'version'->parse($a) > 'version'->parse($b) ? : |