| line |
true |
false |
branch |
|
28
|
1 |
41 |
/^\-all$/i ? : |
|
29
|
1 |
16 |
if $all |
|
36
|
12 |
20 |
if ($name =~ /^-/ or ref $args[0]) |
|
39
|
10 |
22 |
if ($name =~ /^\-(.+)$/i) { } |
|
45
|
0 |
17 |
if keys %options and not keys %roles |
|
55
|
1 |
8 |
unless exists $$options{'into'} |
|
71
|
0 |
11 |
unless my $setup_method = do {
no strict 'refs';
${"${role_pkg}::setup_for_class";}
} |
|
75
|
0 |
9 |
ArrayLike->check($details) ? : |
|
|
2 |
9 |
HashLike->check($details) ? : |
|
86
|
0 |
0 |
unless blessed($_[0]) |
|
108
|
0 |
0 |
ArrayLike->check($details) ? : |
|
|
0 |
0 |
HashLike->check($details) ? : |
|
114
|
0 |
0 |
unless $setup_method = do {
no strict 'refs';
${"${role_pkg}::setup_for_object";}
} |
|
118
|
0 |
0 |
ArrayLike->check($details) ? : |
|
|
0 |
0 |
HashLike->check($details) ? : |