| line |
true |
false |
branch |
|
21
|
0 |
567 |
$_[1] eq 'import' && (caller())->isa('autouse') ? :
|
|
67
|
0 |
30 |
if $$args{-'mixin'}
|
|
69
|
0 |
30 |
if $$args{-'filter_dump'}
|
|
70
|
0 |
30 |
if $$args{-'filter_save'}
|
|
71
|
0 |
30 |
if $$args{-'yaml'}
|
|
72
|
0 |
30 |
if $$args{-'dumper'}
|
|
76
|
0 |
30 |
if ($$args{-'XXX'})
|
|
77
|
0 |
0 |
unless grep /^XXX$/, @EXPORT_BASE
|
|
83
|
12 |
18 |
if $$args{-'selfless'} || $$args{-'Base'} and not $$filtered_files{(caller $stack_frame)[1]}++
|
|
87
|
12 |
18 |
if $$args{-'Base'} or $$args{-'base'}
|
|
90
|
0 |
36 |
unless $class->isa('Spiffy')
|
|
95
|
12 |
24 |
$$args{-'Base'} || $$args{-'base'} ? :
|
|
104
|
0 |
36 |
unless keys %exportable
|
|
112
|
0 |
12 |
unless $exportable{$v}
|
|
125
|
0 |
12 |
if $done
|
|
128
|
0 |
5778 |
if $status < 0
|
|
129
|
12 |
5766 |
if (/^__(?:END|DATA)__\r?$/)
|
|
145
|
0 |
12 |
if (@my_subs)
|
|
150
|
0 |
12 |
if ($filter_dump)
|
|
151
|
0 |
12 |
if ($filter_save)
|
|
166
|
24 |
12 |
if defined $bases_map->{$class}
|
|
210
|
0 |
102 |
if defined $$args{-'package'}
|
|
212
|
0 |
102 |
if defined $default and $$args{-'weak'}
|
|
213
|
0 |
102 |
if defined &{"${package}::$field";}
|
|
214
|
0 |
102 |
if $$args{-'weak'}
|
|
215
|
12 |
84 |
ref $default eq 'HASH' && !keys(%$default) ? :
|
|
|
6 |
96 |
ref $default eq 'ARRAY' && !@$default ? :
|
|
223
|
24 |
78 |
if ($$args{-'init'})
|
|
224
|
0 |
24 |
$$args{-'weak'} ? :
|
|
227
|
42 |
60 |
if defined $default
|
|
232
|
0 |
102 |
if $$args{-'weak'}
|
|
235
|
5 |
1 |
unless $#_ > 0
|
|
|
5 |
0 |
unless $#_ > 0
|
|
|
31 |
19 |
unless exists $_[0]{'_filters_map'}
|
|
|
7 |
152 |
unless $#_ > 0
|
|
|
4 |
27 |
unless $#_ > 0 or defined $_[0]{'spec'}
|
|
|
29 |
0 |
unless $#_ > 0
|
|
|
4 |
34 |
unless exists $_[0]{'data_delim_default'}
|
|
|
35 |
51 |
unless $#_ > 0
|
|
|
67 |
5 |
unless exists $_[0]{'_filters_delay'}
|
|
|
3 |
56 |
unless $#_ > 0
|
|
|
31 |
39 |
unless exists $_[0]{'_filters'}
|
|
|
51 |
2 |
unless $#_ > 0
|
|
|
5 |
7 |
unless exists $_[0]{'_next_list'}
|
|
|
10 |
64 |
unless $#_ > 0
|
|
|
72 |
15 |
unless $#_ > 0 or defined $_[0]{'block_list'}
|
|
|
20 |
3 |
unless $#_ > 0
|
|
|
12 |
3 |
unless $#_ > 0 or defined $_[0]{'data_delim'}
|
|
|
73 |
16 |
unless $#_ > 0
|
|
|
3 |
21 |
unless $#_ > 0
|
|
|
6 |
95 |
unless $#_ > 0 or defined $_[0]{'block_delim'}
|
|
|
96 |
8 |
unless $#_ > 0
|
|
|
12 |
4 |
unless $#_ > 0
|
|
|
20 |
8 |
unless exists $_[0]{'block_delim_default'}
|
|
|
4 |
14 |
unless $#_ > 0
|
|
|
34 |
2 |
unless $#_ > 0
|
|
|
394 |
38 |
unless exists $_[0]{'original_values'}
|
|
|
22 |
57 |
unless $#_ > 0
|
|
|
9 |
22 |
unless $#_ > 0
|
|
236
|
0 |
102 |
if $@
|
|
239
|
0 |
102 |
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
|
12 |
180 |
if (defined $elem and defined $booleans{$elem}) { }
|
|
|
24 |
156 |
elsif (defined $elem and defined $pairs{$elem} and @_) { }
|
|
292
|
0 |
12 |
@_ && $_[0] =~ /^[01]$/ ? :
|
|
303
|
132 |
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] ? :
|
|
346
|
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 |
6 |
unless defined $INC{'base.pm'}
|
|
393
|
6 |
47 |
unless %{"${_}::";}
|
|
|
53 |
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 ? :
|