| line |
true |
false |
branch |
|
54
|
3 |
0 |
if (scalar @_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (scalar @_ > 1) { } |
|
72
|
0 |
0 |
if (@args == 1 and ref $args[0] eq 'HASH') { } |
|
77
|
0 |
0 |
if (@args == 1 and ref $args[0] eq 'ARRAY') { } |
|
80
|
0 |
0 |
if @$aref % 2 |
|
124
|
1 |
2 |
if $class->can('__classdata') |
|
129
|
1 |
2 |
if (exists $$arg{-'methods'}) |
|
133
|
1 |
0 |
if (exists $$special_methods{'initializer'}) |
|
135
|
1 |
0 |
ref $list ? : |
|
141
|
2 |
1 |
unless $$special_methods{'constructor'} or $class->can('new') |
|
153
|
12 |
0 |
unless exists $$def{$_} |
|
157
|
0 |
6 |
unless scalar keys %$def == 1 |
|
161
|
0 |
6 |
if $$fieldarg{'final'} and $$fieldarg{'type'} eq 'counter' |
|
165
|
0 |
6 |
unless ($known{$type}) |
|
172
|
0 |
0 |
if ($default and not ref $default) { } |
|
|
0 |
0 |
elsif (ref $default eq 'ARRAY') { } |
|
181
|
3 |
3 |
if ($$fieldarg{'type'} eq 'classdata') { } |
|
202
|
2 |
1 |
if $any_classdata |
|
222
|
3 |
0 |
if (scalar keys %$field_methods) |
|
244
|
0 |
2 |
if $$args{'final'} |
|
248
|
2 |
5 |
if @_ == 1 |
|
268
|
0 |
0 |
if @_ == 1 and ref $_[0] eq 'ARRAY' |
|
269
|
0 |
0 |
wantarray ? : |
|
274
|
0 |
0 |
unless ref $$self{$name} eq 'ARRAY' |
|
290
|
0 |
0 |
unless ref $$self{$name} eq 'ARRAY' |
|
296
|
0 |
0 |
exists $$self{$name} ? : |
|
316
|
0 |
0 |
unless ref $$self{$name} eq 'HASH' |
|
317
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') |
|
321
|
0 |
0 |
if scalar @_ |
|
327
|
0 |
0 |
unless ref $$self{$name} eq 'HASH' |
|
333
|
0 |
0 |
unless ref $$self{$name} eq 'HASH' |
|
356
|
0 |
0 |
ref $$arg{'forward'} ? : |
|
|
0 |
0 |
if $$arg{'forward'} |
|
361
|
0 |
0 |
if @_ == 1 and ref $_[0] |
|
384
|
0 |
1 |
if $$args{'final'} |
|
390
|
0 |
0 |
$_[0] ? : |
|
|
0 |
1 |
if (@_ == 1) |
|
396
|
0 |
0 |
$$self{$name} ? : |
|
417
|
0 |
0 |
if @_ == 1 and ref $_[0] |
|
452
|
0 |
3 |
if $$args{'final'} |
|
456
|
1 |
4 |
if defined $arg |
|
465
|
0 |
2 |
ref $arg eq 'ARRAY' ? : |
|
473
|
0 |
4 |
ref $_[0] ? : |
|
479
|
2 |
2 |
if ($args[0] and ref $args[0] eq 'HASH') { } |
|
482
|
2 |
0 |
unless scalar @$initializers |
|
496
|
0 |
0 |
ref $arg eq 'ARRAY' ? : |
|
513
|
0 |
0 |
unless ref $arg |
|
517
|
0 |
0 |
if (ref $arg eq 'ARRAY') { } |
|
523
|
0 |
0 |
wantarray ? : |
|
531
|
0 |
0 |
ref $arg eq 'ARRAY' ? : |
|
541
|
0 |
0 |
ref $arg eq 'ARRAY' ? : |