| line |
true |
false |
branch |
|
15
|
438 |
131 |
unless ($refthing)
|
|
18
|
107 |
24 |
if ($refthing eq 'HASH')
|
|
19
|
54 |
53 |
if (my $class = $thing->{'__class'})
|
|
27
|
24 |
0 |
if ($refthing eq 'ARRAY')
|
|
56
|
105 |
33867 |
if (defined $fh) { }
|
|
67
|
105 |
2156 |
if (defined $fn) { }
|
|
78
|
395 |
2446 |
if (defined $line) { }
|
|
89
|
8212 |
9973 |
if (defined $col) { }
|
|
105
|
0 |
25760 |
unless defined $fh
|
|
107
|
25655 |
105 |
unless (eof $fh)
|
|
118
|
8107 |
0 |
if (defined $c)
|
|
119
|
290 |
7817 |
if ($c eq "\n") { }
|
|
144
|
8201 |
105 |
if (defined $c) { }
|
|
145
|
22 |
8179 |
if ($c eq ';') { }
|
|
|
1961 |
6218 |
elsif ($c =~ /\s/) { }
|
|
166
|
99 |
6 |
unless defined $mode
|
|
168
|
99 |
6 |
if ($mode eq 'string') { }
|
|
169
|
0 |
99 |
unless open $fh, '<', \$file_or_str
|
|
172
|
0 |
6 |
unless open $fh, '<', $file_or_str
|
|
182
|
153 |
0 |
if defined $r
|
|
185
|
6 |
99 |
if $mode ne 'string'
|
|
203
|
0 |
0 |
unless defined $indent
|
|
210
|
2218 |
0 |
if (defined $c)
|
|
211
|
425 |
1793 |
if ($c eq '(') { }
|
|
|
76 |
1717 |
elsif ($c eq '"') { }
|
|
|
91 |
1626 |
elsif ($c =~ /\d/) { }
|
|
|
91 |
1535 |
elsif ($c eq '[') { }
|
|
|
14 |
1521 |
elsif ($c eq '{') { }
|
|
|
25 |
1496 |
elsif ($c eq '#') { }
|
|
|
11 |
1485 |
elsif ($c eq '^') { }
|
|
|
12 |
1473 |
elsif ($c eq ':') { }
|
|
|
0 |
1473 |
elsif ($c eq q[']) { }
|
|
|
36 |
1437 |
elsif ($c eq '`') { }
|
|
|
52 |
1385 |
elsif ($c eq '~') { }
|
|
|
0 |
1385 |
elsif ($c eq ';') { }
|
|
|
0 |
1385 |
elsif ($c eq ')' || $c eq ']' || $c eq '}' and $self->{'nest'} == 0) { }
|
|
232
|
0 |
11 |
if $self->peekc ne '{'
|
|
285
|
25 |
0 |
if (defined $c)
|
|
286
|
15 |
10 |
if ($c eq ':') { }
|
|
|
0 |
10 |
elsif ($c eq '!') { }
|
|
|
10 |
0 |
elsif ($c eq '[') { }
|
|
309
|
22 |
398 |
if (defined $c and $c eq "\n")
|
|
330
|
458 |
0 |
if (defined $c)
|
|
331
|
1 |
457 |
if ($c eq '\\') { }
|
|
|
381 |
76 |
elsif ($c ne '"') { }
|
|
334
|
0 |
1 |
unless defined $nc
|
|
337
|
0 |
1 |
if ($nc eq 'a') { }
|
|
|
0 |
1 |
elsif ($nc eq 'b') { }
|
|
|
0 |
1 |
elsif ($nc eq 'e') { }
|
|
|
0 |
1 |
elsif ($nc eq 'f') { }
|
|
|
0 |
1 |
elsif ($nc eq 'n') { }
|
|
|
0 |
1 |
elsif ($nc eq 'r') { }
|
|
|
0 |
1 |
elsif ($nc eq 't') { }
|
|
370
|
76 |
0 |
if (defined $c and $c eq '"') { }
|
|
391
|
92 |
91 |
if (defined $c and $c =~ /\S/ and $c ne ';' and $c ne '(' and $c ne ')' and $c ne '[' and $c ne ']' and $c ne '{' and $c ne '}') { }
|
|
401
|
92 |
0 |
if ($c =~ m[[\+\-\d\.xXabcdefABCDEF/\_]]) { }
|
|
434
|
5295 |
0 |
if (defined $c)
|
|
435
|
3846 |
1449 |
if ($c =~ /\S/ and $c ne ';' and $c ne '(' and $c ne ')' and $c ne '[' and $c ne ']' and $c ne '{' and $c ne '}') { }
|
|
444
|
0 |
3846 |
if $c =~ m([^0-9a-zA-Z_!&\?\*/\.\+\|=%\$<>#@\:\-\\])
|
|
455
|
540 |
909 |
if ($sym->{'value'} eq '') { }
|
|
468
|
0 |
540 |
unless defined $type
|
|
469
|
0 |
540 |
unless defined $begin
|
|
470
|
0 |
540 |
unless defined $end
|
|
474
|
540 |
0 |
if (defined $c and $c eq $begin) { }
|
|
491
|
1463 |
540 |
if defined $e
|
|
494
|
540 |
0 |
if (defined $c and $c eq $end) { }
|