| line |
true |
false |
branch |
|
26
|
1 |
3 |
$arg =~ /^-(.+)$/ ? : |
|
29
|
0 |
3 |
unless $opts{'collect'} |
|
31
|
0 |
3 |
unless ref $opts{'collect'} |
|
33
|
4 |
3 |
defined $4 ? : |
|
|
7 |
0 |
/^
(use|no) \s+ # "use" or "no"
(\S+) \s+ # module name
([\d\._v]+) # module version
(?: # everything else
\s* (.+)
)? # ... perhaps
[;] \s* # semicolon
$/x ? : |
|
57
|
0 |
3 |
unless eval "package $caller; sub _syntax_collector_features { \@features }; 1" |
|
79
|
0 |
2 |
unless defined $caller and not ref $caller |
|
96
|
0 |
6 |
if $version |
|
98
|
0 |
6 |
if (ref $$opt{$module} eq 'ARRAY') { } |
|
|
0 |
6 |
elsif (ref $$opt{$module} eq 'HASH') { } |
|
|
0 |
6 |
elsif ($$opt{$module}) { } |
|
105
|
0 |
6 |
$use eq 'no' ? : |
|
|
0 |
6 |
$module =~ /^Syntax::Feature::/ ? : |
|
110
|
1 |
1 |
if (my $afterlife = $class->can('IMPORT')) |
|
121
|
2 |
0 |
wantarray ? : |