| line |
true |
false |
branch |
|
134
|
14 |
34 |
if (defined $basetype and $type ne $basetype) |
|
139
|
37 |
11 |
if (defined $arg) { } |
|
141
|
10 |
27 |
unless (defined $basetype) |
|
142
|
6 |
4 |
if (&looks_like_number($arg)) { } |
|
153
|
4 |
44 |
wantarray ? : |
|
214
|
14 |
0 |
if ($policy ne 'silent') |
|
216
|
4 |
10 |
if (defined $_[0] and defined $_[1]) |
|
217
|
3 |
1 |
unless ($meta1->[0] eq $meta2->[0]) |
|
218
|
3 |
0 |
if $policy eq 'error' |
|
219
|
0 |
0 |
if $policy eq 'warn' |
|
221
|
1 |
0 |
unless ($meta1->[1] eq $meta2->[1]) |
|
222
|
1 |
0 |
if $policy eq 'error' |
|
223
|
0 |
0 |
if $policy eq 'warn' |
|
232
|
0 |
10 |
unless (defined $type) |
|
233
|
0 |
0 |
wantarray ? : |
|
236
|
3 |
7 |
if ($type eq ':NUMBER:') { } |
|
|
1 |
6 |
elsif ($type eq ':STRING:') { } |
|
244
|
2 |
4 |
if ($type eq 'ARRAY') { } |
|
|
4 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type eq 'SCALAR') { } |
|
256
|
2 |
8 |
if (defined $defval and defined $class) |
|
260
|
1 |
9 |
if ($do_qualify) |
|
261
|
1 |
0 |
unless defined $_[0] |
|
262
|
0 |
1 |
unless defined $_[1] |
|
265
|
9 |
1 |
wantarray ? : |