| line |
true |
false |
branch |
|
30
|
1 |
1 |
ref $self_or_class ? : |
|
31
|
0 |
2 |
unless (UNIVERSAL::isa($self, 'RPSL::Parser')) |
|
44
|
12 |
66 |
wantarray ? : |
|
57
|
0 |
2 |
if (UNIVERSAL::isa($input[0], 'GLOB') or UNIVERSAL::isa($input[0], 'IO::Handle')) { } |
|
72
|
0 |
26 |
unless $value |
|
104
|
6 |
18 |
if (exists $self->object->{$key}) { } |
|
105
|
2 |
4 |
unless (UNIVERSAL::isa($self->object->{$key}, 'ARRAY')) |
|
118
|
0 |
24 |
unless defined $value |
|
119
|
2 |
22 |
if ($value =~ s/#(.*)//) |
|
135
|
24 |
0 |
if (defined $value) |
|
137
|
2 |
22 |
if (@parts > 1) |
|
156
|
0 |
2 |
if UNIVERSAL::isa($primary_key, 'ARRAY') |