| line |
true |
false |
branch |
|
19
|
1 |
3 |
if ($_[0] eq 'Object::InsideOut') |
|
26
|
0 |
4 |
unless ($class->isa('Object::InsideOut')) |
|
33
|
0 |
4 |
unless ($field =~ /^\s*[\@%]\s*[a-zA-Z_]\w*\s*$/) |
|
41
|
4 |
0 |
if (@attrs) { } |
|
47
|
1 |
3 |
unless ($attr =~ /^\s*:/) |
|
60
|
0 |
4 |
if (my $e = 'Exception::Class::Base'->caught) |
|
63
|
0 |
4 |
if ($@ or @errs) |
|
83
|
0 |
1 |
if (ref $class) |
|
86
|
0 |
1 |
if ($class eq 'Object::InsideOut') |
|
89
|
0 |
1 |
unless ($class->isa('Object::InsideOut')) |
|
94
|
0 |
1 |
unless ($pkg) |
|
101
|
0 |
1 |
if $class->isa($pkg) |
|
106
|
0 |
1 |
unless (grep {not $_ =~ /::$/;} keys %{$pkg . '::';}) |
|
108
|
0 |
0 |
if ($@) |
|
114
|
0 |
0 |
unless (grep {not $_ =~ /::$/;} keys %{$pkg . '::';}) |
|
120
|
0 |
1 |
if (@_) |
|
122
|
0 |
0 |
if ($@) |
|
133
|
0 |
1 |
unless (exists $tree_bu->{$pkg}) |
|
135
|
0 |
0 |
unless (exists $GBL->{'heritage'}{$class}) |
|
145
|
1 |
2 |
unless grep {$_ eq $class;} @{$$tree_bu{$cl};} |
|
151
|
2 |
1 |
if ($_ eq $class) |
|
155
|
2 |
0 |
unless exists $seen{$_} |