| line |
true |
false |
branch |
|
29
|
1 |
16 |
/^\-all$/i ? : |
|
30
|
1 |
6 |
if $all |
|
37
|
5 |
9 |
if ($name =~ /^-/ or ref $args[0]) |
|
40
|
5 |
9 |
if ($name =~ /^\-(.+)$/i) { } |
|
46
|
0 |
7 |
if keys %options and not keys %roles |
|
56
|
1 |
3 |
unless exists $$options{'into'} |
|
72
|
0 |
6 |
unless my $setup_method = do {
no strict 'refs';
${"${role_pkg}::setup_for_class";}
} |
|
76
|
0 |
6 |
ArrayLike->check($details) ? : |
|
|
0 |
6 |
HashLike->check($details) ? : |
|
87
|
0 |
0 |
unless blessed($_[0]) |
|
109
|
0 |
0 |
ArrayLike->check($details) ? : |
|
|
0 |
0 |
HashLike->check($details) ? : |
|
115
|
0 |
0 |
unless $setup_method = do {
no strict 'refs';
${"${role_pkg}::setup_for_object";}
} |
|
119
|
0 |
0 |
ArrayLike->check($details) ? : |
|
|
0 |
0 |
HashLike->check($details) ? : |