| line |
true |
false |
branch |
|
16
|
198 |
28 |
unless defined *{$glob;}{'CODE'} |
|
26
|
1 |
0 |
ref $_[0] eq 'HASH' ? : |
|
32
|
1 |
1 |
if (my(@methods) = grep({not $plugin->can($_);} @requires)) |
|
42
|
5 |
2 |
if (my $code = *{$glob;}{'CODE'}) |
|
43
|
4 |
1 |
if $is_excluded{$method} |
|
66
|
2 |
0 |
ref $_[0] eq 'HASH' ? : |
|
82
|
4 |
7 |
if (ref $default eq 'CODE') { } |
|
|
6 |
1 |
elsif (defined $default) { } |
|
84
|
1 |
3 |
if @_ == 2 |
|
85
|
1 |
2 |
if exists $$attribute{$name} |
|
91
|
2 |
5 |
if @_ == 2 |
|
92
|
0 |
5 |
if exists $$attribute{$name} |
|
98
|
1 |
1 |
@_ > 1 ? : |
|
105
|
1 |
1 |
if exists $attribute_of{$_[0]} |
|
124
|
0 |
3 |
@_ > 2 ? : |
|
128
|
14 |
2 |
unless (defined &{"${package}::$method";}) |
|
138
|
3 |
0 |
unless ($class =~ s/^\+// or $class =~ /^$prefix/) |
|
142
|
2 |
15 |
if ($is_loaded{$class}++) |
|
143
|
0 |
2 |
if ref $args[0] eq 'HASH' |
|
153
|
2 |
13 |
ref $args[0] eq 'HASH' ? : |
|
158
|
6 |
2 |
if (%code_of) |
|
161
|
12 |
1 |
if @{$components;} == 1 |
|
166
|
1 |
7 |
if (%has_conflict) |