| line |
true |
false |
branch |
|
24
|
0 |
2 |
if (scalar @_ and $_[0] =~ /^\d/) |
|
28
|
2 |
0 |
if (scalar @_ == 1) |
|
39
|
1 |
5 |
unless ($Class::MakeMethods::Autoload::DefaultType{$package}) |
|
41
|
1 |
0 |
if $_ |
|
44
|
0 |
6 |
unless my $type = $Class::MakeMethods::Autoload::DefaultType{$package} |
|
47
|
3 |
3 |
if (ref $type eq 'HASH') { } |
|
|
0 |
3 |
elsif (ref $type eq 'CODE') { } |
|
49
|
0 |
3 |
unless my $n_type = $$type{$func} || (map $$type{$_}, grep({$func =~ /\A$_\Z/;} (sort {length $b <=> length $a;} keys %$type)))[0] || $$type{''} |
|
54
|
0 |
0 |
unless $type = &$type($func) |
|
65
|
6 |
0 |
if (my $sub = $package->can($func)) { } |