| line |
true |
false |
branch |
|
11
|
340 |
87 |
if ($flag eq '-base') { } |
|
|
0 |
87 |
elsif ($flag eq -'mixin') { } |
|
24
|
63 |
0 |
$export eq 'io' ? : |
|
33
|
8 |
1 |
if (s/^-//) { } |
|
39
|
1 |
0 |
if $key |
|
72
|
6 |
19 |
@_ ? : |
|
84
|
1050 |
5207 |
if (@_) |
|
88
|
1265 |
3942 |
unless exists *$self->{$field} |
|
97
|
0 |
1173 |
if defined &{"${package}::$field";} |
|
101
|
3716 |
6889 |
unless (exists *$self->{$field}) |
|
102
|
0 |
3458 |
ref $default eq 'HASH' ? : |
|
|
258 |
3458 |
ref $default eq 'ARRAY' ? : |
|
107
|
6593 |
4012 |
unless @_ |
|
116
|
0 |
95 |
if defined &{"${package}::$field";} |
|
124
|
0 |
348 |
if defined &{"${package}::$proxy";} |
|
130
|
0 |
7 |
wantarray ? : |
|
138
|
0 |
356 |
if defined &{"${package}::$proxy";} |
|
144
|
0 |
60 |
wantarray ? : |
|
153
|
116 |
240 |
@args && $args[0] eq '>' ? : |
|
158
|
0 |
0 |
if $target_class eq 'mixin' |
|
160
|
0 |
0 |
unless my $mixin_class = shift() |
|
181
|
0 |
0 |
$methods{$_} ? : |
|
191
|
0 |
0 |
if defined &{"${class}::$_";} |