| line |
true |
false |
branch |
|
173
|
2 |
43 |
unless defined $type |
|
175
|
23 |
22 |
if $$EXEC_ONCE{$type} |
|
186
|
0 |
34 |
if ref $handler ne 'CODE' |
|
195
|
0 |
37 |
if ref $handler ne 'CODE' |
|
223
|
73908 |
4377 |
if not UNIVERSAL::isa($classname, $classname) or $classname =~ /[^a-zA-Z0-9_:]/ |
|
224
|
24 |
4353 |
if $$classtree{$classname} |
|
238
|
0 |
22 |
unless $IS_BUILD |
|
262
|
2776 |
700 |
if ref $glob and ref $glob ne 'GLOB' or not *$glob{'CODE'} |
|
273
|
114 |
1143 |
if $$FORBIDDEN_SUBS{$type}{$subname} |
|
287
|
2383 |
2196 |
unless (scalar @$parents) |
|
288
|
975 |
1408 |
if scalar @$child_path |
|
294
|
0 |
2456 |
if $class_allways_in_path |
|
304
|
0 |
2123 |
unless $child_class |