| line |
true |
false |
branch |
|
16
|
304 |
0 |
$] >= 5.018 ? : |
|
17
|
304 |
0 |
$] >= 5.014 ? : |
|
24
|
284 |
3 |
if ($type eq 'needs') { } |
|
|
3 |
0 |
elsif ($type eq 'if') { } |
|
25
|
284 |
0 |
if eval "require $condition; 1" |
|
28
|
2 |
1 |
if $condition |
|
30
|
1 |
286 |
unless $ok |
|
31
|
284 |
2 |
ref $result eq 'SCALAR' ? : |
|
|
0 |
286 |
ref $result eq 'CODE' ? : |
|
62
|
301 |
3 |
$ENV{'EXTENDED_TESTING'} ? : |
|
87
|
0 |
1 |
ref $_[0] ? : |
|
96
|
284 |
75159 |
unless defined $subname |
|
101
|
52150 |
23293 |
if $subname and not $already{$_[1]}++ |
|
112
|
1108 |
15405 |
if (not defined $type) { } |
|
119
|
0 |
580 |
if ref $_[0] eq "ARRAY" |
|
122
|
0 |
578 |
unless $library->can("get_type") |
|
129
|
3 |
577 |
if ($type) { } |
|
130
|
0 |
3 |
$params ? : |
|
131
|
0 |
3 |
if $post_method |
|
134
|
0 |
577 |
if $params |
|
140
|
1 |
579 |
@_ && wantarray ? : |
|
143
|
1108 |
0 |
if require Scalar::Util |
|
149
|
6940 |
8465 |
$type->is_parameterizable ? : |
|
177
|
0 |
16513 |
$args{'anonymous'} ? : |
|
185
|
2 |
33521 |
ref $args{'source'} eq 'ARRAY' ? : |
|
187
|
33507 |
16 |
unless defined $args{'alias'} |
|
188
|
33521 |
2 |
unless defined $args{'line'} |
|
190
|
33458 |
65 |
if defined $args{'description'} |
|
192
|
33458 |
65 |
if defined $args{'description'} and not $^P & 16 |
|
200
|
15943 |
285 |
if $k =~ /^\$/ and builtin::reftype($args{'environment'}{$k}) =~ /^(SCALAR|REF)$/ |
|
203
|
275 |
274 |
if $k =~ /^\@/ and builtin::reftype($args{'environment'}{$k}) eq "ARRAY" |
|
206
|
7 |
3 |
if $k =~ /^\%/ and builtin::reftype($args{'environment'}{$k}) eq "HASH" |
|
209
|
2 |
265 |
if $k =~ /^\&/ and builtin::reftype($args{'environment'}{$k}) eq "CODE" |
|
220
|
33258 |
264 |
exists $args{'alias'} ? : |
|
231
|
5 |
33517 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "tie") |
|
236
|
4 |
33254 |
if ($e) |
|
245
|
1 |
3 |
ref $args{'source'} eq 'ARRAY' ? : |
|
251
|
3 |
33251 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "Devel::LexAlias") |
|
257
|
3 |
33251 |
if ($alias and &ALIAS_IMPLEMENTATION() eq "PadWalker") |
|
272
|
2 |
16081 |
if ($key =~ /^\&/) |
|
282
|
16057 |
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 |