| line |
true |
false |
branch |
|
20
|
0 |
407 |
$_[1] eq 'import' && (caller())->isa('autouse') ? : |
|
66
|
0 |
298 |
if $args->{'-mixin'} |
|
68
|
0 |
298 |
if $args->{'-filter_dump'} |
|
69
|
0 |
298 |
if $args->{'-filter_save'} |
|
70
|
0 |
298 |
if $args->{'-yaml'} |
|
71
|
0 |
298 |
if $args->{'-dumper'} |
|
75
|
0 |
298 |
if ($args->{'-XXX'}) |
|
76
|
0 |
0 |
unless grep /^XXX$/, @EXPORT_BASE |
|
82
|
130 |
168 |
if $args->{'-selfless'} || $args->{'-Base'} and not $$filtered_files{(caller $stack_frame)[1]}++ |
|
86
|
168 |
130 |
if $args->{'-Base'} or $args->{'-base'} |
|
89
|
0 |
474 |
unless $class->isa("Spiffy") |
|
94
|
252 |
222 |
$args->{'-Base'} || $args->{'-base'} ? : |
|
103
|
38 |
436 |
unless keys %exportable |
|
111
|
234 |
84 |
unless $exportable{$v} |
|
124
|
130 |
130 |
if $done |
|
127
|
0 |
49818 |
if $status < 0 |
|
128
|
0 |
49818 |
if (/^__(?:END|DATA)__\r?$/) |
|
141
|
0 |
130 |
if (@my_subs) |
|
146
|
0 |
130 |
if ($filter_dump) |
|
147
|
0 |
130 |
if ($filter_save) |
|
162
|
252 |
176 |
if defined $bases_map->{$class} |
|
206
|
0 |
820 |
if defined $args->{'-package'} |
|
208
|
0 |
368 |
if defined $default and $args->{'-weak'} |
|
209
|
0 |
820 |
if defined &{"${package}::$field";} |
|
210
|
0 |
820 |
if $args->{'-weak'} |
|
211
|
92 |
682 |
ref $default eq 'HASH' && !keys(%$default) ? : |
|
|
46 |
774 |
ref $default eq 'ARRAY' && !@$default ? : |
|
219
|
184 |
636 |
if ($args->{'-init'}) |
|
220
|
0 |
184 |
$args->{'-weak'} ? : |
|
224
|
368 |
452 |
if defined $default |
|
229
|
0 |
820 |
if $args->{'-weak'} |
|
232
|
37 |
40 |
unless $#_ > 0 |
|
|
112 |
26 |
unless exists $_[0]{'data_delim_default'} |
|
|
16 |
18 |
unless $#_ > 0 |
|
|
13 |
12 |
unless exists $_[0]{'_filters_map'} |
|
|
5 |
34 |
unless $#_ > 0 |
|
|
26 |
17 |
unless $#_ > 0 |
|
|
14 |
28 |
unless exists $_[0]{'block_delim_default'} |
|
|
49 |
29 |
unless $#_ > 0 |
|
|
13 |
27 |
unless $#_ > 0 |
|
|
86 |
27 |
unless $#_ > 0 |
|
|
13 |
52 |
unless exists $_[0]{'_next_list'} |
|
|
33 |
27 |
unless $#_ > 0 |
|
|
28 |
41 |
unless exists $_[0]{'original_values'} |
|
|
11 |
34 |
unless $#_ > 0 |
|
|
31 |
15 |
unless $#_ > 0 |
|
|
31 |
30 |
unless $#_ > 0 or defined $_[0]{'data_delim'} |
|
|
34 |
9 |
unless $#_ > 0 |
|
|
53 |
21 |
unless $#_ > 0 |
|
|
0 |
16 |
unless exists $_[0]{'_no_diag_on_only'} |
|
|
43 |
21 |
unless $#_ > 0 |
|
|
15 |
16 |
unless exists $_[0]{'_filters'} |
|
|
6 |
13 |
unless $#_ > 0 |
|
|
16 |
44 |
unless $#_ > 0 or defined $_[0]{'block_delim'} |
|
|
18 |
68 |
unless $#_ > 0 |
|
|
45 |
12 |
unless exists $_[0]{'_filters_delay'} |
|
|
7 |
12 |
unless $#_ > 0 |
|
|
9 |
8 |
unless $#_ > 0 or defined $_[0]{'spec'} |
|
|
8 |
8 |
unless $#_ > 0 |
|
|
3 |
52 |
unless $#_ > 0 or defined $_[0]{'block_list'} |
|
|
29 |
6 |
unless $#_ > 0 |
|
233
|
0 |
820 |
if $@ |
|
236
|
0 |
820 |
if defined wantarray |
|
256
|
0 |
0 |
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
|
168 |
1534 |
if (defined $elem and defined $booleans{$elem}) { } |
|
|
184 |
1350 |
elsif (defined $elem and defined $pairs{$elem} and @_) { } |
|
289
|
0 |
168 |
@_ && $_[0] =~ /^[01]$/ ? : |
|
300
|
1118 |
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 |
46 |
unless defined $INC{'base.pm'} |
|
390
|
0 |
139 |
unless %{"${_}::";} |
|
|
139 |
0 |
unless grep {eval "require $_" unless %{"${_}::";};
$_->isa("Spiffy");} @base_classes |
|
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 ? : |