| line |
true |
false |
branch |
|
18
|
2 |
10 |
if $class eq 'Module::Pragma' |
|
20
|
2 |
8 |
unless @_ |
|
34
|
1 |
4 |
if $class eq 'Module::Pragma' |
|
38
|
2 |
2 |
if (@_) { } |
|
55
|
12 |
12 |
if @_ |
|
57
|
11 |
13 |
wantarray ? : |
|
70
|
6 |
23 |
unless defined $pkg |
|
112
|
7 |
76 |
if (not $$bit_ref) { } |
|
120
|
1 |
75 |
if ($$bit_ref == 0) |
|
125
|
1 |
81 |
if ($tag =~ /^___/) |
|
129
|
2 |
79 |
if (@tags and $tags[0] =~ /^\d+$/) |
|
155
|
24 |
14 |
unless ($x eq $y) |
|
167
|
1 |
15 |
unless my $ex = $register{$class}{'___ex___'} |
|
187
|
1 |
10 |
unless my $ex = $register{$class}{'___ex___'} |
|
192
|
1 |
10 |
if $$ex{join $;, $x, $y} |
|
207
|
1 |
47 |
unless my $map = $register{$class} |
|
227
|
6 |
40 |
unless defined $bits |
|
229
|
111 |
40 |
unless $class->tag($_) & $bits |