| line |
true |
false |
branch |
|
28
|
1 |
17 |
if (grep {not $_ =~ / \A [:-]? \w+ \z /mx unless length ref $_;} @args) { } |
|
|
1 |
16 |
elsif (defined((my($num) = grep({/^\d/;} @args))[0])) { } |
|
29
|
20 |
1 |
unless length ref $_ |
|
34
|
0 |
1 |
unless eval {
do {
require Sub::Exporter
}
} |
|
63
|
7 |
0 |
if (($setup || '') eq '-setup') |
|
68
|
7 |
6 |
if ($opt eq 'exports') { } |
|
|
6 |
0 |
elsif ($opt eq 'groups') { } |
|
70
|
0 |
7 |
if ref $options{'exports'} ne 'ARRAY' |
|
72
|
0 |
7 |
if grep {length ref $_;} @exports |
|
78
|
12 |
0 |
unless length ref $_ |
|
81
|
0 |
11 |
if grep {$_ =~ / \A - (?! all \b ) /x unless length ref $_;} @{$tagset;} |
|
83
|
0 |
6 |
unless $tags{'default'} |
|
88
|
2 |
16 |
/ \A [:-] all \z /x ? : |
|
92
|
0 |
7 |
if @errors |