| line |
true |
false |
branch |
|
26
|
20 |
1 |
unless ref $_ |
|
|
1 |
17 |
if (&List::Util::first(sub {
not / \A [:-]? \w+ \z /mx unless ref $_;
}
, @args)) { } |
|
|
1 |
16 |
elsif (defined(my $num = &List::Util::first(sub {
/^\d/ if not ref $_;
}
, @args))) { } |
|
28
|
0 |
1 |
unless eval {
do {
require Sub::Exporter
}
} |
|
32
|
19 |
0 |
if not ref $_ |
|
57
|
7 |
0 |
if ($setup eq '-setup') |
|
62
|
7 |
6 |
if ($opt eq 'exports') { } |
|
|
6 |
0 |
elsif ($opt eq 'groups') { } |
|
64
|
0 |
7 |
if ref $options{'exports'} ne 'ARRAY' |
|
66
|
0 |
7 |
if &List::Util::first(sub {
ref $_;
}
, @exports) |
|
71
|
12 |
0 |
unless / \A - (?! all \b ) /x |
|
|
0 |
11 |
if &List::Util::first(sub {
ref $_ unless / \A - (?! all \b ) /x;
}
, @{$tagset;}) |
|
73
|
0 |
6 |
unless $tags{'default'} |
|
78
|
2 |
16 |
/ \A [:-] all \z /x ? : |
|
82
|
0 |
7 |
if @errors |