| 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
|
108 |
34296 |
if (defined $fh) { }
|
|
67
|
108 |
2178 |
if (defined $fn) { }
|
|
78
|
401 |
2471 |
if (defined $line) { }
|
|
89
|
8324 |
10101 |
if (defined $col) { }
|
|
105
|
0 |
26080 |
unless defined $fh
|
|
107
|
25972 |
108 |
unless (eof $fh)
|
|
118
|
8216 |
0 |
if (defined $c)
|
|
119
|
293 |
7923 |
if ($c eq "\n") { }
|
|
144
|
8281 |
108 |
if (defined $c) { }
|
|
145
|
22 |
8259 |
if ($c eq ';') { }
|
|
|
1980 |
6279 |
elsif ($c =~ /\s/) { }
|
|
166
|
102 |
6 |
unless defined $mode
|
|
168
|
102 |
6 |
if ($mode eq 'string') { }
|
|
169
|
0 |
102 |
unless open $fh, '<', \$file_or_str
|
|
172
|
0 |
6 |
unless open $fh, '<', $file_or_str
|
|
182
|
157 |
0 |
if defined $r
|
|
185
|
6 |
102 |
if $mode ne 'string'
|
|
203
|
0 |
0 |
unless defined $indent
|
|
210
|
2241 |
0 |
if (defined $c)
|
|
211
|
430 |
1811 |
if ($c eq '(') { }
|
|
|
76 |
1735 |
elsif ($c eq '"') { }
|
|
|
93 |
1642 |
elsif ($c =~ /\d/) { }
|
|
|
92 |
1550 |
elsif ($c eq '[') { }
|
|
|
14 |
1536 |
elsif ($c eq '{') { }
|
|
|
25 |
1511 |
elsif ($c eq '#') { }
|
|
|
11 |
1500 |
elsif ($c eq '^') { }
|
|
|
12 |
1488 |
elsif ($c eq ':') { }
|
|
|
0 |
1488 |
elsif ($c eq q[']) { }
|
|
|
37 |
1451 |
elsif ($c eq '`') { }
|
|
|
52 |
1399 |
elsif ($c eq '~') { }
|
|
|
0 |
1399 |
elsif ($c eq ';') { }
|
|
|
0 |
1399 |
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
|
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
|
5382 |
0 |
if (defined $c)
|
|
435
|
3919 |
1463 |
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 |
3919 |
if $c =~ m([^0-9a-zA-Z_!&\?\*/\.\+\|=%\$<>#@\:\-\\])
|
|
455
|
546 |
917 |
if ($sym->{'value'} eq '') { }
|
|
468
|
0 |
546 |
unless defined $type
|
|
469
|
0 |
546 |
unless defined $begin
|
|
470
|
0 |
546 |
unless defined $end
|
|
474
|
546 |
0 |
if (defined $c and $c eq $begin) { }
|
|
491
|
1475 |
546 |
if defined $e
|
|
494
|
546 |
0 |
if (defined $c and $c eq $end) { }
|