| line |
true |
false |
branch |
|
23
|
0 |
592 |
if (scalar @_ and $_[0] =~ /^\d/) |
|
27
|
469 |
123 |
if (scalar @_ == 1 and $_[0] eq '-isasubclass') |
|
34
|
111 |
481 |
if scalar @_ |
|
46
|
0 |
0 |
if (not $version or $version < $wanted) |
|
49
|
0 |
0 |
$INC{$file} ? : |
|
73
|
0 |
187 |
if (@_ % 2) |
|
78
|
0 |
436 |
unless (defined $name) |
|
84
|
46 |
390 |
if ($name =~ s/^\-//) |
|
88
|
0 |
46 |
if (scalar @methods) |
|
93
|
15 |
31 |
if ($name eq 'MakerClass') { } |
|
104
|
215 |
28 |
ref $args eq 'ARRAY' ? : |
|
|
147 |
243 |
!ref($args) ? : |
|
112
|
3 |
387 |
if (ref $name eq 'ARRAY') |
|
119
|
64 |
326 |
if ($name =~ /\s/) |
|
127
|
108 |
282 |
if $name =~ s/^(.*?)\:{1,2}(\w+)$/$2/ |
|
131
|
170 |
0 |
$Class::MakeMethods::CONTEXT{'MakerClass'}->can($name) ? : |
|
|
220 |
170 |
$Class::MakeMethods::CONTEXT{'MakerClass'}->can('named_method') ? : |
|
146
|
3 |
387 |
if (not scalar @results or scalar @results == 1 and not $results[0]) { } |
|
|
34 |
353 |
elsif (scalar @results == 1 and not ref $results[0]) { } |
|
|
46 |
307 |
elsif (not grep({ref $_ ne 'ARRAY';} @results)) { } |
|
|
96 |
211 |
elsif (not scalar @results % 2 || ref $results[0]) { } |
|
|
211 |
0 |
elsif (UNIVERSAL::can($results[0], 'make_methods')) { } |
|
194
|
0 |
118 |
if (not defined $m_name && length $m_name) { } |
|
|
0 |
118 |
elsif (substr($m_name, 0, 1) eq '-') { } |
|
|
96 |
22 |
elsif (not ref $m_name) { } |
|
|
22 |
0 |
elsif (ref $m_name eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $m_name eq 'ARRAY') { } |
|
200
|
0 |
0 |
if (substr($m_name, 1, 1) ne '-') { } |
|
|
0 |
0 |
elsif (length $m_name == 2) { } |
|
205
|
0 |
0 |
unless ref $_[0] eq 'HASH' |
|
215
|
24 |
72 |
if (scalar @_ and ref $_[0] eq 'HASH' and not exists $_[0]{'name'}) { } |
|
224
|
22 |
0 |
if (length $$m_name{'name'}) { } |
|
235
|
0 |
0 |
if (scalar @_ and ref $_[0] eq 'HASH' and not exists $_[0]{'name'}) |
|
269
|
5 |
1398 |
if not $Class::MakeMethods::CONTEXT{'ForceInstall'} and defined *{$package . '::' . $name;}{'CODE'} |
|
271
|
0 |
1398 |
if (not ref $code) { } |
|
|
0 |
1398 |
elsif (ref $code ne 'CODE') { } |
|
275
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (ref $coderef ne 'CODE') { } |
|
287
|
11 |
1387 |
if $Class::MakeMethods::CONTEXT{'ForceInstall'} |
|
301
|
0 |
5182 |
unless my $package = shift() |
|
303
|
3692 |
1490 |
$package =~ s/^::// ? : |
|
307
|
5034 |
148 |
if $INC{$file} |
|
310
|
1 |
147 |
if @{$package . '::ISA';} |
|
315
|
0 |
147 |
if ($@) |
|
326
|
0 |
221 |
unless scalar @_ |
|
328
|
221 |
0 |
unless scalar @_ |
|
345
|
2083 |
0 |
if ($severity eq 'Q') { } |
|
|
0 |
0 |
elsif ($severity eq 'W') { } |
|
|
0 |
0 |
elsif ($severity eq 'F') { } |
|
346
|
0 |
2083 |
if $Class::MakeMethods::CONTEXT{'Debug'} |
|
348
|
0 |
0 |
if $^W |