| line |
true |
false |
branch |
|
24
|
3 |
10 |
if ($debug) |
|
31
|
3 |
1 |
if (defined wantarray) |
|
32
|
1 |
2 |
wantarray ? : |
|
52
|
9 |
21 |
unless $blessed |
|
53
|
7 |
14 |
$blessed->isa('OOB') ? : |
|
59
|
11 |
2 |
if $@ =~ /CORE::GLOBAL::ref/ |
|
66
|
10 |
95 |
if $blessed and $blessed->isa('OOB') |
|
67
|
13 |
105 |
$old_ref ? : |
|
73
|
9 |
27 |
if $@ =~ /CORE::GLOBAL::bless/ |
|
80
|
53 |
10 |
$_[1] ? : |
|
83
|
3 |
13 |
if $blessed and $stolen{$blessed} |
|
85
|
21 |
57 |
$old_bless ? : |
|
133
|
135 |
5 |
if (my $values = $data{_generate_key($_[1], $_[2])}) |
|
159
|
1 |
19 |
if (defined wantarray) |
|
186
|
8 |
116 |
if (not &reftype($_[0])) { } |
|
|
85 |
31 |
elsif (my $blessed = &blessed($_[0])) { } |
|
208
|
34 |
90 |
if (defined wantarray) |
|
213
|
2 |
32 |
wantarray ? : |
|
238
|
6 |
7 |
if (not @_) { } |
|
|
1 |
6 |
elsif (@_ == 1 and $_[0] eq ':all') { } |
|
|
4 |
2 |
elsif (my(@attributes) = grep({not exists $export_ok{$_};} @_)) { } |
|
256
|
3 |
4 |
if (@_) |
|
282
|
2 |
38 |
if $OOB::AUTOLOAD eq 'OOB::dump' |
|
286
|
1 |
37 |
unless ($class->isa('OOB')) |
|
292
|
16 |
21 |
if (@_ == 2) { } |
|
|
6 |
15 |
elsif (not @_) { } |
|
343
|
141 |
1 |
"$_[1]" ? : |
|
|
142 |
117 |
defined $_[1] ? : |
|
364
|
1 |
141 |
if @_ < 2 |
|
365
|
73 |
68 |
@_ == 3 ? : |
|
380
|
83 |
7 |
if $stolen{$blessed} |
|
383
|
1 |
6 |
if (my $destroy = $blessed->can('DESTROY')) { } |
|
409
|
16 |
295 |
if (not $reftype) { } |
|
|
3 |
292 |
elsif ($reftype eq 'REF') { } |