| line |
true |
false |
branch |
|
16
|
268 |
0 |
$] >= 5.018 ? : |
|
17
|
268 |
0 |
$] >= 5.014 ? : |
|
24
|
250 |
3 |
if ($type eq 'needs') { } |
|
|
3 |
0 |
elsif ($type eq 'if') { } |
|
25
|
250 |
0 |
if eval "require $condition; 1" |
|
28
|
2 |
1 |
if $condition |
|
30
|
1 |
252 |
unless $ok |
|
31
|
250 |
2 |
ref $result eq 'SCALAR' ? : |
|
|
0 |
252 |
ref $result eq 'CODE' ? : |
|
62
|
265 |
3 |
$ENV{'EXTENDED_TESTING'} ? : |
|
87
|
0 |
1 |
ref $_[0] ? : |
|
96
|
250 |
59421 |
unless defined $subname |
|
101
|
42044 |
17627 |
if $subname and not $already{$_[1]}++ |
|
112
|
718 |
12255 |
if (not defined $type) { } |
|
119
|
0 |
388 |
if ref $_[0] eq "ARRAY" |
|
122
|
0 |
386 |
unless $library->can("get_type") |
|
129
|
3 |
385 |
if ($type) { } |
|
130
|
0 |
3 |
$params ? : |
|
131
|
0 |
3 |
if $post_method |
|
134
|
0 |
385 |
if $params |
|
140
|
1 |
387 |
@_ && wantarray ? : |
|
143
|
718 |
0 |
if require Scalar::Util |
|
149
|
5656 |
6599 |
$type->is_parameterizable ? : |
|
177
|
0 |
12973 |
$args{'anonymous'} ? : |
|
185
|
2 |
27122 |
ref $args{'source'} eq 'ARRAY' ? : |
|
187
|
27108 |
16 |
unless defined $args{'alias'} |
|
188
|
27122 |
2 |
unless defined $args{'line'} |
|
190
|
27080 |
44 |
if defined $args{'description'} |
|
192
|
27080 |
44 |
if defined $args{'description'} and not $^P & 16 |
|
200
|
12733 |
247 |
if $k =~ /^\$/ and &Scalar::Util::reftype($args{'environment'}{$k}) =~ /^(SCALAR|REF)$/ |
|
203
|
237 |
274 |
if $k =~ /^\@/ and &Scalar::Util::reftype($args{'environment'}{$k}) eq "ARRAY" |
|
206
|
7 |
3 |
if $k =~ /^\%/ and &Scalar::Util::reftype($args{'environment'}{$k}) eq "HASH" |
|
209
|
2 |
265 |
if $k =~ /^\&/ and &Scalar::Util::reftype($args{'environment'}{$k}) eq "CODE" |
|
220
|
26859 |
264 |
exists $args{'alias'} ? : |
|
231
|
5 |
27118 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "tie") |
|
236
|
4 |
26855 |
if ($e) |
|
245
|
1 |
3 |
ref $args{'source'} eq 'ARRAY' ? : |
|
251
|
3 |
26852 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "Devel::LexAlias") |
|
257
|
3 |
26852 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "PadWalker") |
|
272
|
2 |
12833 |
if ($key =~ /^\&/) |
|
282
|
12809 |
24 |
if (not $alias) { } |
|
|
7 |
17 |
elsif (&ALIAS_IMPLEMENTATION() eq 'perl') { } |
|
|
5 |
12 |
elsif (&ALIAS_IMPLEMENTATION() eq 'Devel::LexAlias') { } |
|
|
5 |
7 |
elsif (&ALIAS_IMPLEMENTATION() eq 'PadWalker') { } |
|
318
|
0 |
0 |
if defined tied @$self |
|
|
0 |
0 |
unless $method eq "DESTROY" |
|
|
0 |
0 |
if defined tied $$self |
|
|
3 |
2 |
unless $method eq "DESTROY" |
|
|
1 |
1 |
if defined tied %$self |