| line |
true |
false |
branch |
|
53
|
0 |
0 |
if shift() |
|
64
|
0 |
5 |
unless $sub |
|
79
|
0 |
891 |
if $error or $failed or not $loaded |
|
144
|
10 |
3455 |
if (not defined $scalar) { } |
|
|
2607 |
848 |
elsif (blessed $scalar) { } |
|
150
|
4 |
2603 |
if $scalar->isa('Regexp') |
|
159
|
122 |
726 |
if (ref $scalar) { } |
|
160
|
88 |
34 |
if 'ARRAY' eq ref $scalar |
|
161
|
22 |
12 |
if 'HASH' eq ref $scalar |
|
162
|
12 |
0 |
if 'CODE' eq ref $scalar |
|
167
|
592 |
134 |
if (looks_like_number $scalar) { } |
|
168
|
12 |
580 |
if $scalar =~ /\./ |
|
169
|
550 |
30 |
if $scalar =~ /^\d+$/ |
|
195
|
34 |
412 |
if ($type and $type eq 'HASH') |
|
198
|
21 |
70 |
ref $val ? : |
|
202
|
123 |
323 |
if ($type and $type eq 'ARRAY') |
|
205
|
81 |
412 |
ref $val ? : |
|
210
|
3 |
443 |
wantarray ? : |
|
216
|
132 |
1355 |
if $object->isa('Data::Object::Array') |
|
217
|
42 |
1313 |
if $object->isa('Data::Object::Hash') |
|
218
|
17 |
1296 |
if $object->isa('Data::Object::Code') |
|
220
|
55 |
1241 |
if $object->isa('Data::Object::Float') |
|
221
|
924 |
317 |
if $object->isa('Data::Object::Number') |
|
222
|
34 |
283 |
if $object->isa('Data::Object::Integer') |
|
224
|
251 |
32 |
if $object->isa('Data::Object::String') |
|
225
|
3 |
29 |
if $object->isa('Data::Object::Scalar') |
|
226
|
7 |
22 |
if $object->isa('Data::Object::Regexp') |
|
228
|
16 |
6 |
if $object->isa('Data::Object::Undef') |
|
229
|
3 |
3 |
if $object->isa('Data::Object::Universal') |
|
238
|
1 |
1029 |
unless $type |
|
241
|
8 |
1021 |
if $type eq 'ARRAY' |
|
242
|
7 |
1014 |
if $type eq 'HASH' |
|
243
|
5 |
1009 |
if $type eq 'REGEXP' |
|
244
|
47 |
962 |
if $type eq 'FLOAT' |
|
245
|
716 |
246 |
if $type eq 'NUMBER' |
|
246
|
25 |
221 |
if $type eq 'INTEGER' |
|
247
|
197 |
24 |
if $type eq 'STRING' |
|
248
|
12 |
12 |
if $type eq 'UNDEF' |
|
250
|
6 |
6 |
if ($type eq 'SCALAR' or $type eq 'UNIVERSAL') |
|
253
|
1 |
5 |
if $type eq 'ARRAY' |
|
254
|
0 |
5 |
if $type eq 'HASH' |
|
255
|
0 |
5 |
if $type eq 'FLOAT' |
|
256
|
0 |
5 |
if $type eq 'INTEGER' |
|
257
|
0 |
5 |
if $type eq 'NUMBER' |
|
258
|
0 |
5 |
if $type eq 'REGEXP' |
|
259
|
5 |
0 |
if $type eq 'SCALAR' |
|
260
|
0 |
0 |
if $type eq 'STRING' |
|
261
|
0 |
0 |
if $type eq 'UNDEF' |
|
263
|
0 |
0 |
if ($type eq 'REF') |
|
264
|
0 |
0 |
if $type = deduce_type($object = $$object) |
|
269
|
6 |
0 |
if ($type eq 'CODE') |
|
282
|
6 |
990 |
if ($object and 'HASH' eq ref $object) |
|
285
|
7 |
6 |
ref $val ? : |
|
289
|
8 |
988 |
if ($object and 'ARRAY' eq ref $object) |
|
292
|
7 |
18 |
ref $val ? : |
|
297
|
16 |
980 |
wantarray ? : |