line |
true |
false |
branch |
21
|
0 |
0 |
$_[1] eq 'import' && (caller())->isa('autouse') ? : |
66
|
0 |
6 |
if $$args{-'mixin'} |
69
|
0 |
6 |
if $$args{-'filter_dump'} |
70
|
0 |
6 |
if $$args{-'filter_save'} |
71
|
0 |
6 |
if $$args{-'yaml'} |
72
|
0 |
6 |
if $$args{-'dumper'} |
76
|
0 |
6 |
if ($$args{-'XXX'}) |
77
|
0 |
0 |
unless grep /^XXX$/, @EXPORT_BASE |
82
|
2 |
4 |
if $$args{-'selfless'} || $$args{-'Base'} and not $$filtered_files{(caller $stack_frame)[1]}++ |
86
|
2 |
4 |
if $$args{-'Base'} or $$args{-'base'} |
90
|
0 |
8 |
unless $class->isa('Spiffy') |
95
|
2 |
6 |
$$args{-'Base'} || $$args{-'base'} ? : |
104
|
0 |
8 |
unless keys %exportable |
112
|
0 |
2 |
unless $exportable{$v} |
125
|
0 |
2 |
if $done |
128
|
0 |
1262 |
if $status < 0 |
129
|
2 |
1260 |
if (/^__(?:END|DATA)__\r?$/) |
145
|
0 |
2 |
if (@my_subs) |
150
|
0 |
2 |
if ($filter_dump) |
151
|
0 |
2 |
if ($filter_save) |
165
|
4 |
4 |
if defined $$bases_map{$class} |
210
|
0 |
32 |
if defined $$args{-'package'} |
211
|
0 |
32 |
if defined $default and $$args{-'weak'} |
213
|
0 |
32 |
if defined &{"${package}::$field";} |
214
|
0 |
32 |
if $$args{-'weak'} |
215
|
4 |
26 |
ref $default eq 'HASH' && !keys(%$default) ? : |
|
2 |
30 |
ref $default eq 'ARRAY' && !@$default ? : |
223
|
8 |
24 |
if ($$args{-'init'}) |
224
|
0 |
8 |
$$args{-'weak'} ? : |
227
|
14 |
18 |
if defined $default |
231
|
0 |
32 |
if $$args{-'weak'} |
235
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless $#_ > 0 or defined $_[0]{'spec'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless exists $_[0]{'_filters_delay'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless exists $_[0]{'_next_list'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless exists $_[0]{'original_values'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless $#_ > 0 or defined $_[0]{'block_delim'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless exists $_[0]{'_filters'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless $#_ > 0 or defined $_[0]{'data_delim'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless exists $_[0]{'block_delim_default'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless $#_ > 0 or defined $_[0]{'block_list'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless exists $_[0]{'_filters_map'} |
|
0 |
0 |
unless $#_ > 0 |
|
0 |
0 |
unless exists $_[0]{'data_delim_default'} |
|
0 |
0 |
unless $#_ > 0 |
236
|
0 |
32 |
if $@ |
239
|
0 |
32 |
if defined wantarray |
259
|
0 |
0 |
if defined $$args{-'package'} |
261
|
0 |
0 |
if defined &{"${package}::$field";} |
273
|
0 |
0 |
if defined $$args{-'package'} |
275
|
0 |
0 |
if defined &{"${package}::$field";} |
291
|
2 |
56 |
if (defined $elem and defined $booleans{$elem}) { } |
|
8 |
48 |
elsif (defined $elem and defined $pairs{$elem} and @_) { } |
292
|
0 |
2 |
@_ && $_[0] =~ /^[01]$/ ? : |
303
|
38 |
0 |
wantarray ? : |
311
|
0 |
0 |
unless (ref $_[0]) |
312
|
0 |
0 |
unless defined $_[0] |
313
|
0 |
0 |
unless (\$_[0]) =~ /\((\w+)\)$/o |
317
|
0 |
0 |
unless overload::StrVal($_[0]) =~ /\((\w+)\)$/o |
328
|
0 |
0 |
@_ ? : |
338
|
0 |
0 |
if $method =~ s/.*::// |
341
|
0 |
0 |
@_ ? : |
342
|
0 |
0 |
ref $_[0] ? : |
345
|
0 |
0 |
$seen || ($seen = $_ eq $caller_class) ? : |
350
|
0 |
0 |
if $super_class eq $class |
351
|
0 |
0 |
if (defined &{"${super_class}::$method";}) |
352
|
0 |
0 |
if $method eq 'AUTOLOAD' |
369
|
0 |
2 |
unless defined $INC{'base.pm'} |
393
|
0 |
2 |
unless %{"${_}::";} |
|
2 |
0 |
unless grep {eval "require $_" unless %{"${_}::";};
$_->isa('Spiffy');} @base_classes |
398
|
0 |
0 |
if $inheritor->isa($base_class) |
399
|
0 |
0 |
unless $base_class->isa('Spiffy') |
416
|
0 |
0 |
if $target_class eq 'mixin' |
418
|
0 |
0 |
unless my $mixin_class = shift() |
438
|
0 |
0 |
@_ ? : |
440
|
0 |
0 |
$methods{$_} ? : |
456
|
0 |
0 |
/^:(.*)/ ? : |
|
0 |
0 |
/^!:(.*)/ ? : |
463
|
0 |
0 |
if (@roles and $roles[0] =~ /^!/) |
470
|
0 |
0 |
if /^!(.*)/ |
480
|
0 |
0 |
if $class eq 'Spiffy' |
484
|
0 |
0 |
if defined &{"${class}::$_";} |
488
|
0 |
0 |
if @{"${class}::ISA";} |
499
|
0 |
0 |
if ($dump eq 'dumper') |
517
|
0 |
0 |
wantarray ? : |
526
|
0 |
0 |
wantarray ? : |