| line |
true |
false |
branch |
|
13
|
28 |
0 |
$] >= 5.01 ? : |
|
17
|
1 |
88 |
if ref $class |
|
21
|
0 |
87 |
unless $proto and ref $proto eq 'HASH' |
|
26
|
0 |
84 |
unless defined $self and UNIVERSAL::isa($self, 'UNIVERSAL') |
|
29
|
4 |
80 |
if $self->can('BUILD') |
|
36
|
4 |
81 |
if (scalar @_ == 1 and ref $_[0]) { } |
|
37
|
1 |
3 |
unless ref $_[0] eq 'HASH' |
|
42
|
1 |
80 |
unless scalar(@_) % 2 == 0 |
|
50
|
0 |
85 |
if ref $class |
|
53
|
0 |
85 |
unless defined $proto and ref $proto eq 'HASH' |
|
58
|
0 |
82 |
unless defined $instance and ref $instance |
|
69
|
67 |
15 |
if ($repr eq 'HASH') |
|
79
|
0 |
76 |
if ref $class |
|
94
|
62 |
104 |
exists $proto->{$_} ? : |
|
103
|
65 |
75 |
if ref $class |
|
111
|
3 |
62 |
if $self->can('DEMOLISH') |
|
123
|
7 |
4 |
if defined &{$fully_qualified_name;} |
|
132
|
6 |
3 |
if defined &{$fully_qualified_name;} |