| line |
true |
false |
branch |
|
15
|
525 |
155 |
unless ($refthing)
|
|
18
|
128 |
27 |
if ($refthing eq 'HASH')
|
|
19
|
65 |
63 |
if (my $class = $thing->{'__class'})
|
|
27
|
27 |
0 |
if ($refthing eq 'ARRAY')
|
|
56
|
109 |
34524 |
if (defined $fh) { }
|
|
67
|
109 |
2191 |
if (defined $fn) { }
|
|
78
|
402 |
2484 |
if (defined $line) { }
|
|
89
|
8381 |
10170 |
if (defined $col) { }
|
|
105
|
0 |
26252 |
unless defined $fh
|
|
107
|
26143 |
109 |
unless (eof $fh)
|
|
118
|
8272 |
0 |
if (defined $c)
|
|
119
|
293 |
7979 |
if ($c eq "\n") { }
|
|
144
|
8332 |
109 |
if (defined $c) { }
|
|
145
|
22 |
8310 |
if ($c eq ';') { }
|
|
|
1994 |
6316 |
elsif ($c =~ /\s/) { }
|
|
166
|
103 |
6 |
unless defined $mode
|
|
168
|
103 |
6 |
if ($mode eq 'string') { }
|
|
169
|
0 |
103 |
unless open $fh, '<', \$file_or_str
|
|
172
|
0 |
6 |
unless open $fh, '<', $file_or_str
|
|
182
|
158 |
0 |
if defined $r
|
|
185
|
6 |
103 |
if $mode ne 'string'
|
|
203
|
0 |
0 |
unless defined $indent
|
|
210
|
2254 |
0 |
if (defined $c)
|
|
211
|
433 |
1821 |
if ($c eq '(') { }
|
|
|
77 |
1744 |
elsif ($c eq '"') { }
|
|
|
93 |
1651 |
elsif ($c =~ /\d/) { }
|
|
|
92 |
1559 |
elsif ($c eq '[') { }
|
|
|
14 |
1545 |
elsif ($c eq '{') { }
|
|
|
25 |
1520 |
elsif ($c eq '#') { }
|
|
|
11 |
1509 |
elsif ($c eq '^') { }
|
|
|
12 |
1497 |
elsif ($c eq ':') { }
|
|
|
0 |
1497 |
elsif ($c eq q[']) { }
|
|
|
37 |
1460 |
elsif ($c eq '`') { }
|
|
|
52 |
1408 |
elsif ($c eq '~') { }
|
|
|
0 |
1408 |
elsif ($c eq ';') { }
|
|
|
0 |
1408 |
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
|
454 |
0 |
if (defined $c)
|
|
331
|
1 |
453 |
if ($c eq '\\') { }
|
|
|
376 |
77 |
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
|
77 |
0 |
if (defined $c and $c eq '"') { }
|
|
391
|
96 |
93 |
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
|
96 |
0 |
if ($c =~ m[[\+\-\d\.xXabcdefABCDEF/\_]]) { }
|
|
434
|
5430 |
0 |
if (defined $c)
|
|
435
|
3958 |
1472 |
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 |
3958 |
if $c =~ m([^0-9a-zA-Z_!&\?\*/\.\+\|=%\$<>#@\:\-\\])
|
|
455
|
549 |
923 |
if ($sym->{'value'} eq '') { }
|
|
468
|
0 |
549 |
unless defined $type
|
|
469
|
0 |
549 |
unless defined $begin
|
|
470
|
0 |
549 |
unless defined $end
|
|
474
|
549 |
0 |
if (defined $c and $c eq $begin) { }
|
|
491
|
1484 |
549 |
if defined $e
|
|
494
|
549 |
0 |
if (defined $c and $c eq $end) { }
|