| line |
true |
false |
branch |
|
20
|
1 |
6 |
$_[1] eq 'import' && (caller())->isa('autouse') ? : |
|
65
|
0 |
69 |
if $$args{-'mixin'} |
|
68
|
0 |
69 |
if $$args{-'filter_dump'} |
|
69
|
2 |
67 |
if $$args{-'filter_save'} |
|
70
|
0 |
69 |
if $$args{-'yaml'} |
|
71
|
0 |
69 |
if $$args{-'dumper'} |
|
75
|
2 |
67 |
if ($$args{-'XXX'}) |
|
76
|
2 |
0 |
unless grep /^XXX$/, @EXPORT_BASE |
|
81
|
12 |
57 |
if $$args{-'selfless'} || $$args{-'Base'} and not $$filtered_files{(caller $stack_frame)[1]}++ |
|
85
|
57 |
12 |
if $$args{-'Base'} or $$args{-'base'} |
|
89
|
0 |
104 |
unless $class->isa('Spiffy') |
|
94
|
81 |
23 |
$$args{-'Base'} || $$args{-'base'} ? : |
|
103
|
19 |
85 |
unless keys %exportable |
|
111
|
9 |
13 |
unless $exportable{$v} |
|
124
|
10 |
12 |
if $done |
|
127
|
0 |
233 |
if $status < 0 |
|
128
|
2 |
231 |
if (/^__(?:END|DATA)__\r?$/) |
|
144
|
3 |
9 |
if (@my_subs) |
|
149
|
0 |
12 |
if ($filter_dump) |
|
150
|
2 |
10 |
if ($filter_save) |
|
164
|
52 |
58 |
if defined $$bases_map{$class} |
|
209
|
1 |
21 |
if defined $$args{-'package'} |
|
210
|
0 |
22 |
if defined $default and $$args{-'weak'} |
|
212
|
0 |
22 |
if defined &{"${package}::$field";} |
|
213
|
1 |
21 |
if $$args{-'weak'} |
|
214
|
2 |
18 |
ref $default eq 'HASH' && !keys(%$default) ? : |
|
|
2 |
20 |
ref $default eq 'ARRAY' && !@$default ? : |
|
222
|
2 |
20 |
if ($$args{-'init'}) |
|
223
|
1 |
1 |
$$args{-'weak'} ? : |
|
227
|
14 |
8 |
if defined $default |
|
231
|
1 |
21 |
if $$args{-'weak'} |
|
235
|
8 |
4 |
unless exists $_[0]{'volume'} |
|
|
8 |
3 |
unless $#_ > 0 |
|
236
|
0 |
22 |
if $@ |
|
239
|
7 |
15 |
if defined wantarray |
|
259
|
0 |
5 |
if defined $$args{-'package'} |
|
261
|
0 |
5 |
if defined &{"${package}::$field";} |
|
273
|
0 |
1 |
if defined $$args{-'package'} |
|
275
|
0 |
1 |
if defined &{"${package}::$field";} |
|
291
|
62 |
64 |
if (defined $elem and defined $booleans{$elem}) { } |
|
|
4 |
60 |
elsif (defined $elem and defined $pairs{$elem} and @_) { } |
|
292
|
0 |
62 |
@_ && $_[0] =~ /^[01]$/ ? : |
|
303
|
97 |
1 |
wantarray ? : |
|
311
|
0 |
4 |
unless (ref $_[0]) |
|
312
|
0 |
0 |
unless defined $_[0] |
|
313
|
0 |
0 |
unless (\$_[0]) =~ /\((\w+)\)$/o |
|
317
|
0 |
4 |
unless overload::StrVal($_[0]) =~ /\((\w+)\)$/o |
|
328
|
12 |
0 |
@_ ? : |
|
338
|
12 |
2 |
if $method =~ s/.*::// |
|
341
|
0 |
12 |
@_ ? : |
|
342
|
7 |
5 |
ref $_[0] ? : |
|
345
|
19 |
28 |
$seen || ($seen = $_ eq $caller_class) ? : |
|
350
|
0 |
15 |
if $super_class eq $class |
|
351
|
10 |
5 |
if (defined &{"${super_class}::$method";}) |
|
352
|
2 |
8 |
if $method eq 'AUTOLOAD' |
|
369
|
0 |
30 |
unless defined $INC{'base.pm'} |
|
393
|
0 |
52 |
unless %{"${_}::";} |
|
|
32 |
19 |
unless grep {eval "require $_" unless %{"${_}::";};
$_->isa('Spiffy');} @base_classes |
|
398
|
2 |
18 |
if $inheritor->isa($base_class) |
|
399
|
0 |
18 |
unless $base_class->isa('Spiffy') |
|
416
|
6 |
1 |
if $target_class eq 'mixin' |
|
418
|
0 |
7 |
unless my $mixin_class = shift() |
|
438
|
5 |
2 |
@_ ? : |
|
440
|
23 |
0 |
$methods{$_} ? : |
|
456
|
5 |
10 |
/^:(.*)/ ? : |
|
|
3 |
15 |
/^!:(.*)/ ? : |
|
463
|
2 |
3 |
if (@roles and $roles[0] =~ /^!/) |
|
470
|
14 |
28 |
if /^!(.*)/ |
|
480
|
1 |
11 |
if $class eq 'Spiffy' |
|
484
|
79 |
22 |
if defined &{"${class}::$_";} |
|
488
|
3 |
8 |
if @{"${class}::ISA";} |
|
499
|
0 |
0 |
if ($dump eq 'dumper') |
|
517
|
0 |
0 |
wantarray ? : |
|
526
|
0 |
0 |
wantarray ? : |