| line |
true |
false |
branch |
|
21
|
1 |
6 |
$_[1] eq 'import' && (caller())->isa('autouse') ? : |
|
61
|
0 |
57 |
if $$args{-'mixin'} |
|
64
|
1 |
56 |
if $$args{-'Base'} |
|
69
|
0 |
56 |
if $$args{-'yaml'} |
|
70
|
0 |
56 |
if $$args{-'dumper'} |
|
74
|
2 |
54 |
if ($$args{-'XXX'}) |
|
75
|
2 |
0 |
unless grep /^XXX$/, @EXPORT_BASE |
|
80
|
51 |
5 |
if $$args{-'base'} |
|
84
|
1 |
83 |
unless $class->isa('Class::Spiffy') |
|
88
|
75 |
8 |
$$args{-'base'} ? : |
|
97
|
14 |
69 |
unless keys %exportable |
|
105
|
0 |
8 |
unless $exportable{$v} |
|
121
|
44 |
49 |
if defined $$bases_map{$class} |
|
166
|
1 |
22 |
if defined $$args{-'package'} |
|
167
|
0 |
23 |
if defined $default and $$args{-'weak'} |
|
169
|
0 |
23 |
if defined &{"${package}::$field";} |
|
170
|
1 |
22 |
if $$args{-'weak'} |
|
171
|
2 |
19 |
ref $default eq 'HASH' && !keys(%$default) ? : |
|
|
2 |
21 |
ref $default eq 'ARRAY' && !@$default ? : |
|
179
|
2 |
21 |
if ($$args{-'init'}) |
|
180
|
1 |
1 |
$$args{-'weak'} ? : |
|
183
|
15 |
8 |
if defined $default |
|
187
|
1 |
22 |
if $$args{-'weak'} |
|
191
|
8 |
3 |
unless exists $_[0]{'volume'} |
|
|
8 |
4 |
unless $#_ > 0 |
|
192
|
0 |
23 |
if $@ |
|
195
|
7 |
16 |
if defined wantarray |
|
215
|
0 |
3 |
if defined $$args{-'package'} |
|
217
|
0 |
3 |
if defined &{"${package}::$field";} |
|
229
|
0 |
1 |
if defined $$args{-'package'} |
|
231
|
0 |
1 |
if defined &{"${package}::$field";} |
|
247
|
55 |
57 |
if (defined $elem and defined $booleans{$elem}) { } |
|
|
4 |
53 |
elsif (defined $elem and defined $pairs{$elem} and @_) { } |
|
248
|
0 |
55 |
@_ && $_[0] =~ /^[01]$/ ? : |
|
259
|
84 |
1 |
wantarray ? : |
|
267
|
0 |
4 |
unless (ref $_[0]) |
|
268
|
0 |
0 |
unless defined $_[0] |
|
269
|
0 |
0 |
unless (\$_[0]) =~ /\((\w+)\)$/o |
|
273
|
0 |
4 |
unless overload::StrVal($_[0]) =~ /\((\w+)\)$/o |
|
284
|
12 |
0 |
@_ ? : |
|
294
|
12 |
2 |
if $method =~ s/.*::// |
|
297
|
0 |
12 |
@_ ? : |
|
298
|
7 |
5 |
ref $_[0] ? : |
|
301
|
20 |
30 |
$seen || ($seen = $_ eq $caller_class) ? : |
|
306
|
0 |
16 |
if $super_class eq $class |
|
307
|
10 |
6 |
if (defined &{"${super_class}::$method";}) |
|
308
|
2 |
8 |
if $method eq 'AUTOLOAD' |
|
325
|
0 |
26 |
unless defined $INC{'base.pm'} |
|
349
|
0 |
48 |
unless %{"${_}::";} |
|
|
27 |
20 |
unless grep {eval "require $_" unless %{"${_}::";};
$_->isa('Class::Spiffy');} @base_classes |
|
354
|
3 |
18 |
if $inheritor->isa($base_class) |
|
355
|
0 |
18 |
unless $base_class->isa('Class::Spiffy') |
|
372
|
6 |
1 |
if $target_class eq 'mixin' |
|
374
|
0 |
7 |
unless my $mixin_class = shift() |
|
394
|
5 |
2 |
@_ ? : |
|
396
|
373 |
0 |
$methods{$_} ? : |
|
412
|
5 |
10 |
/^:(.*)/ ? : |
|
|
3 |
15 |
/^!:(.*)/ ? : |
|
419
|
2 |
3 |
if (@roles and $roles[0] =~ /^!/) |
|
426
|
14 |
28 |
if /^!(.*)/ |
|
436
|
0 |
12 |
if $class eq 'Class::Spiffy' |
|
440
|
429 |
81 |
if defined &{"${class}::$_";} |
|
444
|
3 |
9 |
if @{"${class}::ISA";} |
|
455
|
0 |
0 |
if ($dump eq 'dumper') |
|
473
|
0 |
0 |
wantarray ? : |
|
482
|
0 |
0 |
wantarray ? : |