line |
true |
false |
branch |
20
|
0 |
59 |
$_[1] eq 'import' && (caller())->isa('autouse') ? :
|
66
|
0 |
19 |
if $args->{'-mixin'}
|
68
|
0 |
19 |
if $args->{'-filter_dump'}
|
69
|
0 |
19 |
if $args->{'-filter_save'}
|
70
|
0 |
19 |
if $args->{'-yaml'}
|
71
|
0 |
19 |
if $args->{'-dumper'}
|
75
|
0 |
19 |
if ($args->{'-XXX'})
|
76
|
0 |
0 |
unless grep /^XXX$/, @EXPORT_BASE
|
82
|
7 |
12 |
if $args->{'-selfless'} || $args->{'-Base'} and not $$filtered_files{(caller $stack_frame)[1]}++
|
86
|
7 |
12 |
if $args->{'-Base'} or $args->{'-base'}
|
89
|
0 |
24 |
unless $class->isa("Spiffy")
|
94
|
7 |
17 |
$args->{'-Base'} || $args->{'-base'} ? :
|
103
|
0 |
24 |
unless keys %exportable
|
111
|
0 |
7 |
unless $exportable{$v}
|
124
|
7 |
7 |
if $done
|
127
|
0 |
4121 |
if $status < 0
|
128
|
0 |
4121 |
if (/^__(?:END|DATA)__\r?$/)
|
141
|
0 |
7 |
if (@my_subs)
|
146
|
0 |
7 |
if ($filter_dump)
|
147
|
0 |
7 |
if ($filter_save)
|
162
|
14 |
10 |
if defined $bases_map->{$class}
|
206
|
0 |
87 |
if defined $args->{'-package'}
|
208
|
0 |
40 |
if defined $default and $args->{'-weak'}
|
209
|
0 |
87 |
if defined &{"${package}::$field";}
|
210
|
0 |
87 |
if $args->{'-weak'}
|
211
|
10 |
72 |
ref $default eq 'HASH' && !keys(%$default) ? :
|
|
5 |
82 |
ref $default eq 'ARRAY' && !@$default ? :
|
219
|
20 |
67 |
if ($args->{'-init'})
|
220
|
0 |
20 |
$args->{'-weak'} ? :
|
224
|
40 |
47 |
if defined $default
|
229
|
0 |
87 |
if $args->{'-weak'}
|
232
|
34 |
3 |
unless $#_ > 0 or defined $_[0]{'data_delim'}
|
|
2 |
1 |
unless $#_ > 0
|
|
2 |
8 |
unless exists $_[0]{'data_delim_default'}
|
|
8 |
1 |
unless $#_ > 0
|
|
1 |
3 |
unless exists $_[0]{'_next_list'}
|
|
4 |
0 |
unless $#_ > 0
|
|
1 |
0 |
unless exists $_[0]{'_filters_delay'}
|
|
0 |
0 |
unless $#_ > 0
|
|
5 |
2 |
unless $#_ > 0
|
|
2 |
2 |
unless $#_ > 0
|
|
3 |
1 |
unless exists $_[0]{'_no_diag_on_only'}
|
|
2 |
3 |
unless $#_ > 0
|
|
4 |
1 |
unless $#_ > 0 or defined $_[0]{'block_delim'}
|
|
18 |
2 |
unless $#_ > 0
|
|
2 |
6 |
unless $#_ > 0 or defined $_[0]{'block_list'}
|
|
8 |
0 |
unless $#_ > 0
|
|
1 |
2 |
unless $#_ > 0
|
|
1 |
1 |
unless $#_ > 0 or defined $_[0]{'spec'}
|
|
3 |
1 |
unless $#_ > 0
|
|
0 |
0 |
unless exists $_[0]{'_filters_map'}
|
|
2 |
2 |
unless $#_ > 0
|
|
5 |
0 |
unless $#_ > 0
|
|
0 |
0 |
unless exists $_[0]{'block_delim_default'}
|
|
1 |
6 |
unless $#_ > 0
|
|
7 |
2 |
unless $#_ > 0
|
|
2 |
0 |
unless exists $_[0]{'original_values'}
|
|
2 |
0 |
unless $#_ > 0
|
|
1 |
0 |
unless exists $_[0]{'_filters'}
|
|
1 |
0 |
unless $#_ > 0
|
233
|
0 |
87 |
if $@
|
236
|
0 |
87 |
if defined wantarray
|
256
|
0 |
28 |
if defined $args->{'-package'}
|
258
|
0 |
0 |
if defined &{"${package}::$field";}
|
270
|
0 |
0 |
if defined $args->{'-package'}
|
272
|
0 |
0 |
if defined &{"${package}::$field";}
|
288
|
7 |
154 |
if (defined $elem and defined $booleans{$elem}) { }
|
|
20 |
134 |
elsif (defined $elem and defined $pairs{$elem} and @_) { }
|
289
|
0 |
7 |
@_ && $_[0] =~ /^[01]$/ ? :
|
300
|
106 |
0 |
wantarray ? :
|
308
|
0 |
0 |
unless (ref $_[0])
|
309
|
0 |
0 |
unless defined $_[0]
|
310
|
0 |
0 |
unless (\$_[0]) =~ /\((\w+)\)$/o
|
314
|
0 |
0 |
unless overload::StrVal($_[0]) =~ /\((\w+)\)$/o
|
325
|
0 |
0 |
@_ ? :
|
335
|
0 |
0 |
if $method =~ s/.*:://
|
338
|
0 |
0 |
@_ ? :
|
339
|
0 |
0 |
ref $_[0] ? :
|
343
|
0 |
0 |
$seen || ($seen = $_ eq $caller_class) ? :
|
347
|
0 |
0 |
if $super_class eq $class
|
348
|
0 |
0 |
if (defined &{"${super_class}::$method";})
|
349
|
0 |
0 |
if $method eq "AUTOLOAD"
|
366
|
0 |
5 |
unless defined $INC{'base.pm'}
|
390
|
5 |
90 |
unless %{"${_}::";}
|
|
95 |
0 |
unless grep {eval "require $_" unless %{"${_}::";};
|
395
|
0 |
0 |
if $inheritor->isa($base_class)
|
396
|
0 |
0 |
unless $base_class->isa("Spiffy")
|
413
|
0 |
0 |
if $target_class eq "mixin"
|
415
|
0 |
0 |
unless my $mixin_class = shift()
|
435
|
0 |
0 |
@_ ? :
|
437
|
0 |
0 |
$methods{$_} ? :
|
453
|
0 |
0 |
/^:(.*)/ ? :
|
|
0 |
0 |
/^!:(.*)/ ? :
|
460
|
0 |
0 |
if (@roles and $roles[0] =~ /^!/)
|
467
|
0 |
0 |
if /^!(.*)/
|
477
|
0 |
0 |
if $class eq "Spiffy"
|
481
|
0 |
0 |
if defined &{"${class}::$_";}
|
485
|
0 |
0 |
if @{"${class}::ISA";}
|
496
|
0 |
0 |
if ($dump eq "dumper")
|
514
|
0 |
0 |
wantarray ? :
|
523
|
0 |
0 |
wantarray ? :
|