| line |
true |
false |
branch |
|
24
|
2 |
4 |
if ($debug) |
|
31
|
1 |
0 |
if (defined wantarray) |
|
32
|
0 |
1 |
wantarray ? : |
|
52
|
9 |
21 |
unless $blessed |
|
53
|
7 |
14 |
$blessed->isa('OOB') ? : |
|
59
|
6 |
0 |
if $@ =~ /CORE::GLOBAL::ref/ |
|
66
|
9 |
57 |
if $blessed and $blessed->isa('OOB') |
|
67
|
0 |
71 |
$old_ref ? : |
|
73
|
4 |
16 |
if $@ =~ /CORE::GLOBAL::bless/ |
|
83
|
5 |
3 |
if $blessed and $stolen{$blessed} |
|
85
|
0 |
35 |
$old_bless ? : |
|
133
|
126 |
2 |
if (my $values = $data{_generate_key($_[1], $_[2])}) |
|
159
|
0 |
12 |
if (defined wantarray) |
|
186
|
8 |
105 |
if (not &reftype($_[0])) { } |
|
|
79 |
26 |
elsif (my $blessed = &blessed($_[0])) { } |
|
208
|
30 |
83 |
if (defined wantarray) |
|
213
|
0 |
30 |
wantarray ? : |
|
238
|
1 |
5 |
if (not @_) { } |
|
|
0 |
5 |
elsif (@_ == 1 and $_[0] eq ':all') { } |
|
|
4 |
1 |
elsif (my(@attributes) = grep({not exists $export_ok{$_};} @_)) { } |
|
256
|
1 |
4 |
if (@_) |
|
282
|
0 |
31 |
if $OOB::AUTOLOAD eq 'OOB::dump' |
|
286
|
0 |
31 |
unless ($class->isa('OOB')) |
|
292
|
15 |
16 |
if (@_ == 2) { } |
|
|
1 |
15 |
elsif (not @_) { } |
|
343
|
132 |
0 |
"$_[1]" ? : |
|
|
132 |
105 |
defined $_[1] ? : |
|
364
|
0 |
132 |
if @_ < 2 |
|
365
|
68 |
64 |
@_ == 3 ? : |
|
380
|
79 |
5 |
if $stolen{$blessed} |
|
383
|
0 |
5 |
if (my $destroy = $blessed->can('DESTROY')) { } |
|
409
|
16 |
266 |
if (not $reftype) { } |
|
|
0 |
266 |
elsif ($reftype eq 'REF') { } |