| line |
true |
false |
branch |
|
28
|
0 |
392 |
$_[1] eq 'import' && (caller())->isa('autouse') ? : |
|
73
|
0 |
126 |
if $$args{-'mixin'} |
|
76
|
0 |
126 |
if $$args{-'filter_dump'} |
|
77
|
0 |
126 |
if $$args{-'filter_save'} |
|
78
|
0 |
126 |
if $$args{-'yaml'} |
|
79
|
0 |
126 |
if $$args{-'dumper'} |
|
83
|
0 |
126 |
if ($$args{-'XXX'}) |
|
84
|
0 |
0 |
unless grep /^XXX$/, @EXPORT_BASE |
|
89
|
63 |
63 |
if $$args{-'selfless'} || $$args{-'Base'} and not $$filtered_files{(caller $stack_frame)[1]}++ |
|
93
|
63 |
63 |
if $$args{-'Base'} or $$args{-'base'} |
|
97
|
0 |
189 |
unless $class->isa('Spiffy') |
|
102
|
84 |
105 |
$$args{-'Base'} || $$args{-'base'} ? : |
|
111
|
21 |
168 |
unless keys %exportable |
|
119
|
80 |
42 |
unless $exportable{$v} |
|
132
|
21 |
63 |
if $done |
|
135
|
0 |
22008 |
if $status < 0 |
|
136
|
42 |
21966 |
if (/^__(?:END|DATA)__\r?$/) |
|
152
|
0 |
63 |
if (@my_subs) |
|
157
|
0 |
63 |
if ($filter_dump) |
|
158
|
0 |
63 |
if ($filter_save) |
|
172
|
105 |
63 |
if defined $$bases_map{$class} |
|
217
|
0 |
378 |
if defined $$args{-'package'} |
|
218
|
0 |
378 |
if defined $default and $$args{-'weak'} |
|
220
|
0 |
378 |
if defined &{"${package}::$field";} |
|
221
|
0 |
378 |
if $$args{-'weak'} |
|
222
|
42 |
315 |
ref $default eq 'HASH' && !keys(%$default) ? : |
|
|
21 |
357 |
ref $default eq 'ARRAY' && !@$default ? : |
|
230
|
84 |
294 |
if ($$args{-'init'}) |
|
231
|
0 |
84 |
$$args{-'weak'} ? : |
|
234
|
168 |
210 |
if defined $default |
|
238
|
0 |
378 |
if $$args{-'weak'} |
|
242
|
15 |
20 |
unless $#_ > 0 |
|
|
55 |
8 |
unless exists $_[0]{'data_delim_default'} |
|
|
37 |
15 |
unless $#_ > 0 |
|
|
40 |
14 |
unless exists $_[0]{'_filters_map'} |
|
|
32 |
25 |
unless $#_ > 0 |
|
|
42 |
21 |
unless exists $_[0]{'original_values'} |
|
|
20 |
14 |
unless $#_ > 0 |
|
|
13 |
16 |
unless $#_ > 0 |
|
|
17 |
16 |
unless $#_ > 0 |
|
|
28 |
10 |
unless exists $_[0]{'_next_list'} |
|
|
13 |
31 |
unless $#_ > 0 |
|
|
45 |
27 |
unless $#_ > 0 or defined $_[0]{'data_delim'} |
|
|
10 |
18 |
unless $#_ > 0 |
|
|
100 |
29 |
unless $#_ > 0 or defined $_[0]{'spec'} |
|
|
29 |
23 |
unless $#_ > 0 |
|
|
48 |
12 |
unless $#_ > 0 or defined $_[0]{'block_list'} |
|
|
15 |
34 |
unless $#_ > 0 |
|
|
56 |
13 |
unless $#_ > 0 |
|
|
38 |
24 |
unless $#_ > 0 |
|
|
32 |
11 |
unless exists $_[0]{'_filters_delay'} |
|
|
24 |
21 |
unless $#_ > 0 |
|
|
17 |
9 |
unless $#_ > 0 |
|
|
24 |
38 |
unless exists $_[0]{'block_delim_default'} |
|
|
21 |
27 |
unless $#_ > 0 |
|
|
22 |
12 |
unless exists $_[0]{'_no_diag_on_only'} |
|
|
13 |
6 |
unless $#_ > 0 |
|
|
42 |
22 |
unless exists $_[0]{'_filters'} |
|
|
29 |
15 |
unless $#_ > 0 |
|
|
24 |
15 |
unless $#_ > 0 or defined $_[0]{'block_delim'} |
|
|
20 |
13 |
unless $#_ > 0 |
|
243
|
0 |
378 |
if $@ |
|
246
|
0 |
378 |
if defined wantarray |
|
266
|
0 |
0 |
if defined $$args{-'package'} |
|
268
|
0 |
0 |
if defined &{"${package}::$field";} |
|
280
|
0 |
0 |
if defined $$args{-'package'} |
|
282
|
0 |
0 |
if defined &{"${package}::$field";} |
|
298
|
63 |
712 |
if (defined $elem and defined $booleans{$elem}) { } |
|
|
84 |
628 |
elsif (defined $elem and defined $pairs{$elem} and @_) { } |
|
299
|
0 |
63 |
@_ && $_[0] =~ /^[01]$/ ? : |
|
310
|
504 |
0 |
wantarray ? : |
|
318
|
0 |
0 |
unless (ref $_[0]) |
|
319
|
0 |
0 |
unless defined $_[0] |
|
320
|
0 |
0 |
unless (\$_[0]) =~ /\((\w+)\)$/o |
|
324
|
0 |
0 |
unless overload::StrVal($_[0]) =~ /\((\w+)\)$/o |
|
335
|
0 |
0 |
@_ ? : |
|
345
|
0 |
0 |
if $method =~ s/.*::// |
|
348
|
0 |
0 |
@_ ? : |
|
349
|
0 |
0 |
ref $_[0] ? : |
|
352
|
0 |
0 |
$seen || ($seen = $_ eq $caller_class) ? : |
|
357
|
0 |
0 |
if $super_class eq $class |
|
358
|
0 |
0 |
if (defined &{"${super_class}::$method";}) |
|
359
|
0 |
0 |
if $method eq 'AUTOLOAD' |
|
376
|
0 |
21 |
unless defined $INC{'base.pm'} |
|
400
|
42 |
168 |
unless %{"${_}::";} |
|
|
210 |
0 |
unless grep {eval "require $_" unless %{"${_}::";};
$_->isa('Spiffy');} @base_classes |
|
405
|
0 |
0 |
if $inheritor->isa($base_class) |
|
406
|
0 |
0 |
unless $base_class->isa('Spiffy') |
|
423
|
0 |
0 |
if $target_class eq 'mixin' |
|
425
|
0 |
0 |
unless my $mixin_class = shift() |
|
445
|
0 |
0 |
@_ ? : |
|
447
|
0 |
0 |
$methods{$_} ? : |
|
463
|
0 |
0 |
/^:(.*)/ ? : |
|
|
0 |
0 |
/^!:(.*)/ ? : |
|
470
|
0 |
0 |
if (@roles and $roles[0] =~ /^!/) |
|
477
|
0 |
0 |
if /^!(.*)/ |
|
487
|
0 |
0 |
if $class eq 'Spiffy' |
|
491
|
0 |
0 |
if defined &{"${class}::$_";} |
|
495
|
0 |
0 |
if @{"${class}::ISA";} |
|
506
|
0 |
0 |
if ($dump eq 'dumper') |
|
524
|
0 |
0 |
wantarray ? : |
|
533
|
0 |
0 |
wantarray ? : |