| line |
true |
false |
branch |
|
45
|
1 |
33 |
if grep {not $plugin->can($_);} 'init' |
|
55
|
6 |
10 |
unless $plugin->can($method) |
|
57
|
0 |
10 |
unless @{$self->methods->{$method};} |
|
71
|
1 |
31 |
if not $x or grep {not $x->can($_);} 'list', 'plugin', 'exists', 'merge', 'unmerge' |
|
74
|
1 |
72 |
if 'Object::Meta::Plugin::Host::Context'->UNIVERSAL::can($method) |
|
75
|
1 |
71 |
unless $x->plugin->can($method) |
|
84
|
1 |
28 |
exists $self->plugins->{$x->plugin} ? : |
|
91
|
0 |
0 |
if not $x or grep {not $x->can($_);} 'list', 'plugin' |
|
95
|
0 |
0 |
if ($x->list) { } |
|
97
|
0 |
0 |
unless $self->stack($method) |
|
101
|
0 |
0 |
unless @{$self->stack($method);} |
|
113
|
71 |
105 |
@_ ? : |
|
128
|
1 |
18 |
if 'Object::Meta::Plugin::Host::Context'->UNIVERSAL::can($method) |
|
130
|
0 |
18 |
if $method eq 'DESTROY' |
|
131
|
1 |
17 |
unless my $stack = $self->stack($method) |
|
189
|
0 |
0 |
unless $self->UNIVERSAL::can($method) or $self->plugin->can($method) |
|
197
|
0 |
23 |
if $method eq 'DESTROY' |
|
199
|
23 |
0 |
if (${$self->super->self->plugins;}{$self->plugin}->exists($method)) { } |
|
202
|
0 |
23 |
unless $self->plugin->can($method) |
|
234
|
0 |
9 |
if $method eq 'DESTROY' |
|
244
|
9 |
4 |
if ${$stack;}[$i] == $$self{'plugin'} and -1 == --$j |
|
254
|
4 |
5 |
if $i > $#$stack or $i < 0 |