| line |
true |
false |
branch |
|
55
|
0 |
10 |
unless my $plugin = delete $args{'plugin'} |
|
57
|
0 |
10 |
if ($self->prefix) |
|
60
|
8 |
2 |
$args{'phase'} ? : |
|
65
|
3 |
7 |
if (defined $$self{'_registry'}{$phase} and not $args{'force'}) |
|
72
|
1 |
6 |
unless &use_package_optimistically($plugin)->can('new') |
|
74
|
0 |
6 |
if $self->role |
|
75
|
3 |
3 |
if exists $args{'role'} |
|
78
|
1 |
5 |
if $roles and not ref $roles |
|
80
|
2 |
4 |
if ($roles and ref $roles eq 'ARRAY') |
|
82
|
3 |
0 |
if ($plugin->DOES($role)) { } |
|
101
|
0 |
0 |
unless my $bundle = shift() |
|
105
|
0 |
0 |
unless $self->register(%args) |
|
114
|
0 |
2 |
unless my $phase = shift() |
|
115
|
0 |
2 |
unless $$self{'_registry'}{$phase} |
|
123
|
0 |
5 |
unless my $plugin = shift() |
|
125
|
1 |
4 |
if ($self->prefix) { } |
|
144
|
0 |
3 |
unless my $plugin = shift() |
|
152
|
0 |
2 |
unless my $plugin = shift() |
|
160
|
2 |
1 |
if "$registered_class" eq "$current_class" |
|
171
|
0 |
9 |
if $_[0]->debug |