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