| line |
true |
false |
branch |
|
50
|
0 |
5 |
if $class eq 'POOF' |
|
59
|
15 |
0 |
if (exists $$property{'name'}) |
|
79
|
0 |
3 |
if exists $args{'RaiseException'} and defined $args{'RaiseException'} |
|
96
|
0 |
5 |
if $$seen{$parent}++ |
|
99
|
3 |
5 |
if exists {}->{$parent} and $parent ne 'POOF' |
|
103
|
5 |
3 |
unless exists {}->{$parent} |
|
108
|
0 |
5 |
if (exists $$property{'name'}) |
|
143
|
0 |
0 |
if ref $e |
|
148
|
0 |
0 |
@_ == 2 ? : |
|
|
0 |
0 |
@_ == 1 ? : |
|
|
0 |
0 |
@_ == 0 ? : |
|
160
|
0 |
0 |
ref $$ERRORS{refaddr $obj} ? : |
|
176
|
0 |
0 |
$parent ? : |
|
181
|
0 |
0 |
if ($obj->_Relationship(ref $obj, 'POOF::Collection') =~ /^(?:self|child)$/) { } |
|
186
|
0 |
0 |
unless exists $$obj[$i] |
|
187
|
0 |
0 |
if ($obj->_Relationship(ref $$obj[$i], 'POOF') =~ /^(?:self|child)$/) |
|
190
|
0 |
0 |
if $error |
|
199
|
0 |
0 |
if ($obj->_Relationship(ref $$obj{$$prop{'name'}}, 'POOF') =~ /^(?:self|child)$/) |
|
202
|
0 |
0 |
if $error |
|
216
|
0 |
0 |
unless ($RAISE_EXCEPTION eq 'trap') |
|
218
|
0 |
0 |
defined $$e{'value'} ? : |
|
223
|
0 |
0 |
if ($RAISE_EXCEPTION eq 'warn') { } |
|
|
0 |
0 |
elsif ($RAISE_EXCEPTION eq 'print') { } |
|
|
0 |
0 |
elsif ($RAISE_EXCEPTION eq 'cluck') { } |
|
|
0 |
0 |
elsif ($RAISE_EXCEPTION eq 'confess') { } |
|
|
0 |
0 |
elsif ($RAISE_EXCEPTION eq 'croak') { } |
|
|
0 |
0 |
elsif ($RAISE_EXCEPTION eq 'die') { } |
|
256
|
0 |
0 |
defined $val ? : |
|
284
|
2 |
0 |
defined $group && exists {}->{ref $obj}{$group} ? : |
|
312
|
0 |
0 |
defined $group && $obj->pGetNamesOfGroup($group) ? : |
|
318
|
0 |
0 |
ref $_[0] ? : |
|
321
|
0 |
0 |
!($name =~ /^\s*$/) ? : |
|
334
|
0 |
0 |
if (@path) { } |
|
337
|
0 |
0 |
if (ref $$ref{$level} and $obj->_Relationship($$ref{$level}, 'POOF::Collection') =~ /^(?:self|child)$/o) { } |
|
359
|
0 |
0 |
ref $ref eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $ref eq 'ARRAY' ? : |
|
|
0 |
0 |
scalar @path ? : |
|
395
|
0 |
0 |
unless exists {}->{ref $obj} |
|
403
|
0 |
0 |
unless exists {}->{ref $obj} |
|
418
|
0 |
0 |
$AUTOLOAD =~ /\:SUPER\:/o ? : |
|
430
|
0 |
0 |
$super ? : |
|
434
|
0 |
0 |
if $name eq 'DESTROY' |
|
436
|
0 |
0 |
if ($TRACE) |
|
449
|
0 |
0 |
unless exists {}->{$package} |
|
452
|
0 |
0 |
unless exists {}->{$package}{$name} and exists {}->{$package}{$name}{'code'} |
|
461
|
0 |
0 |
exists {Private => 0, Protected => 1, Public => 2}->{$access} ? : |
|
468
|
0 |
0 |
unless $access >= $context |
|
488
|
0 |
0 |
unless (exists {}->{$parent}) |
|
501
|
0 |
0 |
if $$method{'access'} eq 'Private' |
|
504
|
0 |
0 |
if exists {}->{$package}{$name} and {}->{$package}{$name}{'virtual'} != 1 |
|
519
|
0 |
0 |
if exists {}->{$package}{$name} and {}->{$package}{$name}{'virtual'} != 1 |
|
539
|
0 |
0 |
$relationship eq 'parent' ? : |
|
|
0 |
0 |
$relationship eq 'child' ? : |
|
|
0 |
0 |
$relationship eq 'self' ? : |
|
551
|
0 |
0 |
if $TRACE |
|
558
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
$_ ? : |
|
560
|
0 |
0 |
if $class1 eq $class2 |
|
566
|
0 |
0 |
exists $family2{$class1} ? : |
|
|
0 |
0 |
exists $family1{$class2} ? : |
|
594
|
0 |
0 |
unless defined $caller{'0-package'} |
|
629
|
23 |
22 |
if $package =~ /POOF::TEMPORARYNAMESPACE/ |
|
632
|
22 |
0 |
exists $INC{"$_.pm"} ? : |
|
635
|
19 |
3 |
if {/.cpan/build/POOF-1.4-nV4EaH/blib/lib/POOF/Example/SyntaxError.pm => 1}->{$filename}++ |
|
641
|
0 |
3 |
unless open SOURCEFILE, $filename |
|
659
|
1 |
2 |
if ($@) |
|
664
|
1 |
0 |
$line ? : |
|
675
|
2 |
2 |
unless $package =~ /^package\s+([^\s]+)\s*;/ |
|
686
|
9 |
182 |
if (/\bsub\b\s*([^\s\{\(\:]+)\s*:\s*([^\{]+)\s*(\{|$)?/o) |
|
690
|
0 |
9 |
$3 ? : |
|
694
|
3 |
6 |
if (exists $attrs{'Method'}) { } |
|
|
6 |
0 |
elsif (exists $attrs{'Property'}) { } |
|
735
|
6 |
0 |
ref &{$tempclass . '::' . $sub;} eq 'HASH' ? : |
|
738
|
0 |
6 |
unless %{$objdef;} |
|
740
|
6 |
0 |
unless (exists {}->{$class}{$sub}) |
|
746
|
3 |
3 |
if (exists $$objdef{'groups'} and ref $$objdef{'groups'} eq 'ARRAY') |
|
773
|
5 |
15 |
if (exists {}->{$class}{$item} or exists {}->{$class}{$item}) |
|
787
|
8 |
0 |
exists $attrs{'Public'} ? : |
|
|
0 |
8 |
exists $attrs{'Protected'} ? : |
|
|
1 |
8 |
exists $attrs{'Private'} ? : |
|
801
|
0 |
3 |
exists $attrs{'NonVirtual'} ? : |
|
|
3 |
3 |
exists $attrs{'Virtual'} ? : |
|
|
0 |
3 |
exists $attrs{'Virtual'} ? : |
|
|
3 |
0 |
exists $attrs{'Method'} ? : |
|
|
6 |
3 |
exists $attrs{'Property'} ? : |
|
824
|
0 |
0 |
unless open FH, '>>/tmp/debug_log' |