| line |
true |
false |
branch |
|
803
|
17 |
1 |
if ($arg =~ /^:/msx) { } |
|
804
|
1 |
16 |
if $export_class |
|
817
|
14 |
4 |
$export_class && $EXPORT_CLASS{$export_class} ? : |
|
825
|
14 |
127 |
if (exists $__TYPEALIASES__{$type}) |
|
830
|
1 |
140 |
unless (defined $the_subref) |
|
858
|
24 |
30 |
if (exists $__TYPEALIASES__{$type_name}) |
|
862
|
1 |
53 |
unless exists $__TYPEDICT__{$type_name} |
|
868
|
0 |
31 |
unless exists $__TYPEDICT__{$type_name} |
|
876
|
77 |
191 |
if &$constraint(@_) |
|
917
|
8 |
7 |
if ref $class |
|
918
|
2 |
5 |
unless defined $class and length $class |
|
925
|
3 |
4 |
unless exists ${$$pack;}{"${part}::"} |
|
931
|
1 |
1 |
if defined ${"${class}::VERSION";} |
|
932
|
0 |
1 |
if defined @{"${class}::ISA";} |
|
937
|
0 |
1 |
if (substr($namespace_entry, -2, 2) eq '::') |
|
941
|
1 |
0 |
if defined &{"${class}::$namespace_entry";} |