| line |
true |
false |
branch |
|
32
|
0 |
4 |
if (@args) |
|
33
|
0 |
0 |
ref $args[0] ? : |
|
36
|
0 |
4 |
unless my $info = $MODULES{$class} |
|
39
|
0 |
4 |
if ($args) |
|
40
|
0 |
0 |
if ($$info{'args'} and ref $$info{'args'} eq 'HASH') { } |
|
51
|
1 |
3 |
if $$info{'class'} |
|
62
|
0 |
4 |
unless my $class = $info{'class'} |
|
63
|
0 |
4 |
unless my $markup_method = $info{'markup_method'} |
|
67
|
1 |
3 |
if ref $info{'args'} eq 'CODE' |
|
70
|
1 |
3 |
if ($info{'deref'} and my $args = $info{'args'}) { } |
|
|
0 |
3 |
elsif ($info{'args'}) { } |
|
71
|
0 |
1 |
if (ref $args eq 'HASH') { } |
|
|
1 |
0 |
elsif (ref $args eq 'ARRAY') { } |
|
103
|
1 |
0 |
unless $class =~ /^\+/ |