line |
true |
false |
branch |
86
|
0 |
0 |
unless ($class) |
93
|
0 |
0 |
unless (scalar %{"${class}::";}) |
109
|
0 |
7 |
unless ($class) |
139
|
0 |
1 |
unless $class |
153
|
0 |
0 |
if substr($method, -2, 2) ne '::' |
163
|
0 |
1 |
unless ($method) |
176
|
0 |
0 |
scalar @list > 0 ? : |
193
|
0 |
5 |
if (not scalar %{"${class}::";}) { } |
199
|
67 |
0 |
if $caller->can($method) |
214
|
0 |
0 |
unless (grep {$_ eq $mother;} @{$$self{'classes'};}) |
216
|
0 |
0 |
if $@ |
235
|
1 |
0 |
if ($self->class_exists($class)) { } |
243
|
0 |
1 |
if ($type and $type eq 'ro') { } |
245
|
0 |
0 |
if (@_ > 1) |
246
|
0 |
0 |
if ($default) |
247
|
0 |
0 |
unless (exists $_[0]{"${acc}_$_[0]_default_used"}) |
264
|
2 |
2 |
if (@_ > 1) |
273
|
1 |
0 |
if ($default) |
291
|
1 |
0 |
if (not $caller->can('new')) |
298
|
0 |
1 |
if ($cself->can('__init')) |
313
|
0 |
0 |
if ($self->class_exists($caller)) { } |
332
|
0 |
0 |
if ($self->class_exists($class)) { } |
335
|
0 |
0 |
if ($self->method_exists($class, $name)) |
357
|
0 |
1 |
unless ($self->method_exists($class, $name)) |
383
|
0 |
0 |
if ($self->class_exists($caller)) { } |
384
|
0 |
0 |
if ($type and $class and $method and $code) { } |
385
|
0 |
0 |
unless ($self->method_exists($class, $method)) |
398
|
0 |
0 |
if (/after/) { } |
|
0 |
0 |
elsif (/before/) { } |
|
0 |
0 |
elsif (/around/) { } |
437
|
0 |
0 |
unless (ref $class) |
462
|
1 |
1 |
if ($$self{'_attributes'}{$class}) { } |