| line |
true |
false |
branch |
|
95
|
10 |
21 |
if (/ctor/) |
|
100
|
2 |
19 |
if (/enum/) |
|
105
|
4 |
15 |
if (/hash$/) |
|
110
|
1 |
14 |
if (/hash_of_lists/) |
|
115
|
4 |
10 |
if (/list/) |
|
120
|
5 |
5 |
if (/object/) |
|
125
|
5 |
0 |
if (/scalar$/) |
|
130
|
0 |
0 |
if (/scalars/) |
|
158
|
0 |
0 |
if (grep {$_ eq $method;} @functions) |
|
274
|
1 |
1 |
if (defined $$spec{'default'}) |
|
275
|
0 |
1 |
unless grep /$$spec{'default'}/, @domain |
|
298
|
12 |
12 |
if (defined $arg) |
|
299
|
10 |
2 |
if (grep /$arg/, @domain) { } |
|
357
|
8 |
5 |
if (@args == 1) { } |
|
358
|
1 |
7 |
if (ref $args[0] eq 'HASH') { } |
|
382
|
0 |
5 |
unless defined $key |
|
383
|
4 |
1 |
exists $$self{$name}{$key} ? : |
|
469
|
3 |
0 |
unless defined $n |
|
517
|
1 |
3 |
if (@args == 0) { } |
|
|
2 |
1 |
elsif (@args == 1) { } |
|
525
|
0 |
2 |
unless defined $$self{$name}{$key} |
|
534
|
3 |
0 |
if (wantarray) { } |
|
610
|
16 |
13 |
if (@args == 0) { } |
|
|
1 |
12 |
elsif (@args == 1 and ref $args[0] eq 'ARRAY') { } |
|
614
|
12 |
4 |
if (wantarray) { } |
|
659
|
6 |
4 |
unless grep(($_ eq $arg), @{$$self{$name};}) |
|
712
|
2 |
1 |
@{$$self{$name};} ? : |
|
725
|
2 |
1 |
@{$$self{$name};} ? : |
|
763
|
5 |
7 |
unless defined $glue |
|
830
|
3 |
2 |
if (ref $spec eq 'HASH') { } |
|
833
|
1 |
2 |
if exists $$spec{'delegate'} |
|
838
|
0 |
5 |
unless defined $name |
|
855
|
7 |
5 |
if (defined $arg) |
|
857
|
0 |
7 |
unless ref $arg |
|
858
|
4 |
3 |
if ($required_class) |
|
862
|
1 |
3 |
unless $arg->isa($required_class) |
|
928
|
1 |
4 |
if (ref $spec eq 'HASH') { } |
|
931
|
1 |
0 |
if (defined $$spec{'default'}) |
|
953
|
7 |
15 |
if (defined $arg) |
|
1071
|
6 |
10 |
if (exists $self_and_super{$class}) { } |
|
1098
|
7 |
15 |
unless _has_methodist_info($class) |
|
1105
|
10 |
19 |
if (/scalar|enum/) |
|
1109
|
10 |
9 |
if (/list/) |
|
1113
|
9 |
0 |
if (/hash/) |
|
1169
|
1 |
2 |
if (ref $value eq 'ARRAY') { } |
|
|
2 |
0 |
elsif (ref $value eq 'HASH') { } |
|
1200
|
0 |
0 |
if $msge |