| line |
true |
false |
branch |
|
16
|
275 |
0 |
$] >= 5.018 ? : |
|
17
|
275 |
0 |
$] >= 5.014 ? : |
|
24
|
256 |
3 |
if ($type eq 'needs') { } |
|
|
3 |
0 |
elsif ($type eq 'if') { } |
|
25
|
256 |
0 |
if eval "require $condition; 1" |
|
28
|
2 |
1 |
if $condition |
|
30
|
1 |
258 |
unless $ok |
|
31
|
256 |
2 |
ref $result eq 'SCALAR' ? : |
|
|
0 |
258 |
ref $result eq 'CODE' ? : |
|
62
|
272 |
3 |
$ENV{'EXTENDED_TESTING'} ? : |
|
87
|
0 |
2 |
ref $_[0] ? : |
|
96
|
256 |
63380 |
unless defined $subname |
|
101
|
44696 |
18940 |
if $subname and not $already{$_[1]}++ |
|
112
|
809 |
13057 |
if (not defined $type) { } |
|
119
|
0 |
424 |
if ref $_[0] eq "ARRAY" |
|
122
|
0 |
422 |
unless $library->can("get_type") |
|
129
|
3 |
421 |
if ($type) { } |
|
130
|
0 |
3 |
$params ? : |
|
131
|
0 |
3 |
if $post_method |
|
134
|
0 |
421 |
if $params |
|
140
|
1 |
423 |
@_ && wantarray ? : |
|
143
|
809 |
0 |
if require Scalar::Util |
|
149
|
5990 |
7067 |
$type->is_parameterizable ? : |
|
177
|
0 |
13866 |
$args{'anonymous'} ? : |
|
185
|
2 |
28769 |
ref $args{'source'} eq 'ARRAY' ? : |
|
187
|
28755 |
16 |
unless defined $args{'alias'} |
|
188
|
28769 |
2 |
unless defined $args{'line'} |
|
190
|
28709 |
62 |
if defined $args{'description'} |
|
192
|
28709 |
62 |
if defined $args{'description'} and not $^P & 16 |
|
200
|
13538 |
257 |
if $k =~ /^\$/ and &Scalar::Util::reftype($args{'environment'}{$k}) =~ /^(SCALAR|REF)$/ |
|
203
|
247 |
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
|
28506 |
264 |
exists $args{'alias'} ? : |
|
231
|
5 |
28765 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "tie") |
|
236
|
4 |
28502 |
if ($e) |
|
245
|
1 |
3 |
ref $args{'source'} eq 'ARRAY' ? : |
|
251
|
3 |
28499 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "Devel::LexAlias") |
|
257
|
3 |
28499 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "PadWalker") |
|
272
|
2 |
13648 |
if ($key =~ /^\&/) |
|
282
|
13624 |
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 |
1 |
if defined tied %$self |
|
|
3 |
1 |
unless $method eq "DESTROY" |
|
|
1 |
0 |
if defined tied $$self |
|
|
0 |
0 |
unless $method eq "DESTROY" |
|
|
0 |
0 |
if defined tied @$self |