| line |
true |
false |
branch |
|
30
|
0 |
769 |
unless (defined $data) |
|
37
|
0 |
769 |
if ($ref eq '' and $data =~ /\n/) { } |
|
|
534 |
235 |
elsif ($ref eq '') { } |
|
|
50 |
185 |
elsif ($ref eq 'ARRAY') { } |
|
|
176 |
9 |
elsif ($ref eq 'HASH') { } |
|
|
9 |
0 |
elsif ($ref and UNIVERSAL::can($ref, 'save')) { } |
|
83
|
0 |
874 |
unless defined $line |
|
88
|
874 |
0 |
if $tag ne 'U' |
|
89
|
0 |
874 |
if ($tag eq 'U') { } |
|
|
610 |
264 |
elsif ($tag eq 'S') { } |
|
|
0 |
264 |
elsif ($tag eq 'M') { } |
|
|
58 |
206 |
elsif ($tag eq 'A') { } |
|
|
196 |
10 |
elsif ($tag eq 'H') { } |
|
|
10 |
0 |
elsif ($tag eq 'O') { } |
|
100
|
0 |
0 |
unless defined $line2 |
|
123
|
10 |
0 |
if (UNIVERSAL::can($val, 'load')) { } |
|
141
|
1051 |
370 |
unless defined $del |
|
144
|
0 |
1421 |
if @$args and $$args[0] =~ /^Games::Object/ |
|
161
|
693 |
6175 |
if defined $args{"-$name"} |
|
167
|
126 |
6742 |
if ($name =~ /[\^\$\.\+\*\[\{]/) |
|
178
|
1085 |
5657 |
if ($type eq 'req') { } |
|
|
5657 |
0 |
elsif ($type eq 'opt') { } |
|
181
|
0 |
1085 |
unless defined $args{$name} |
|
189
|
2407 |
3250 |
if (defined $args{$name}) { } |
|
|
1061 |
2189 |
elsif (defined $dflt) { } |
|
195
|
1520 |
5222 |
if $del |
|
199
|
2408 |
4334 |
unless defined $$res{$oname} and defined $rstr |
|
202
|
260 |
4074 |
if (ref $rstr eq 'CODE') { } |
|
|
231 |
3843 |
elsif (ref $rstr eq 'ARRAY') { } |
|
|
402 |
3441 |
elsif ($rstr eq 'any') { } |
|
|
529 |
2912 |
elsif ($rstr =~ /^(.+)ref$/) { } |
|
|
1024 |
1888 |
elsif ($rstr eq 'int') { } |
|
|
99 |
1789 |
elsif ($rstr eq 'number') { } |
|
|
429 |
1360 |
elsif ($rstr eq 'boolean') { } |
|
|
602 |
758 |
elsif ($rstr eq 'string') { } |
|
|
234 |
524 |
elsif ($rstr eq 'callback') { } |
|
|
36 |
488 |
elsif ($rstr eq 'file') { } |
|
|
0 |
488 |
elsif ($rstr eq 'readable_filename') { } |
|
|
488 |
0 |
elsif ($rstr eq 'object') { } |
|
205
|
0 |
260 |
unless &$rstr($$res{$oname}) |
|
214
|
231 |
157 |
if $found |
|
216
|
0 |
231 |
unless $found |
|
226
|
0 |
529 |
if ref $$res{$oname} ne $reftype |
|
232
|
0 |
1024 |
unless $$res{$oname} =~ /^[\+\-\d]\d*$/ |
|
243
|
0 |
0 |
if ($msg =~ /isn't numeric in int/) { } |
|
250
|
0 |
99 |
if $not_number |
|
255
|
0 |
46 |
$$res{$oname} eq '' ? : |
|
|
383 |
46 |
$$res{$oname} eq '0' ? : |
|
263
|
0 |
602 |
if ref $$res{$oname} |
|
274
|
0 |
234 |
if ref $list ne 'ARRAY' |
|
276
|
190 |
44 |
if @$list == 0 or ref $$list[0] ne 'ARRAY' |
|
279
|
7 |
320 |
if not ref $cbk and $cbk eq 'FAIL' |
|
280
|
0 |
320 |
if ref $cbk ne 'ARRAY' |
|
282
|
0 |
320 |
if @$cbk < 2 |
|
285
|
0 |
1578 |
if ref $item |
|
294
|
0 |
36 |
unless ref($$res{$oname}) =~ /^(IO::File|FileHandle|GLOB)$/ |
|
301
|
0 |
0 |
unless -f $$res{$oname} |
|
303
|
0 |
0 |
unless -r $$res{$oname} |
|
310
|
0 |
488 |
if $ref =~ /^(SCALAR|ARRAY|HASH|CODE|REF|GLOB|LVALUE)$/ |
|
321
|
370 |
1051 |
if $del |