| line |
true |
false |
branch |
|
30
|
2 |
3 |
if ($arg =~ /^-/) { } |
|
42
|
0 |
10 |
unless $args{-'type'} =~ /^ hashref | object $/xi |
|
54
|
1 |
10 |
if (lc $args{-'type'} eq 'object') |
|
61
|
1 |
4 |
if @_ |
|
71
|
5 |
1 |
if not ref $_[0] and $_[0]->isa('Object::Stash') |
|
74
|
5 |
1 |
if exists $known_stashes{$name} |
|
84
|
1 |
27 |
if (scalar @args == 1 and ref $args[0] eq 'HASH') { } |
|
|
2 |
25 |
elsif (scalar @args == 1 and ref $args[0] eq 'ARRAY') { } |
|
|
25 |
0 |
elsif (scalar @args % 2 == 0) { } |
|
|
0 |
0 |
elsif (@args) { } |
|
101
|
0 |
28 |
unless defined wantarray or @args |
|
104
|
16 |
12 |
unless (defined $stash) |
|
106
|
1 |
15 |
$type eq 'object' ? : |
|
115
|
2 |
26 |
if (@retrieve) |
|
118
|
1 |
1 |
wantarray ? : |