| line |
true |
false |
branch |
|
42
|
0 |
1 |
unless (ref $self)
|
|
84
|
1 |
38 |
unless defined $line and length $line
|
|
85
|
1 |
37 |
unless $line =~ /\S/u
|
|
89
|
1 |
36 |
if $line =~ /^#/u
|
|
97
|
0 |
36 |
unless ($line eq ".")
|
|
102
|
0 |
36 |
if (@extra and $extra[0] ne "")
|
|
120
|
0 |
159 |
unless length $_[0]
|
|
122
|
36 |
123 |
if $char eq "."
|
|
124
|
85 |
38 |
if ($char eq '<') { }
|
|
|
21 |
17 |
elsif ($char eq '_') { }
|
|
|
17 |
0 |
elsif ($char eq '"') { }
|
|
128
|
53 |
32 |
if (my $i = $cache{$uri}) { }
|
|
131
|
0 |
32 |
if (rand() < "0.02")
|
|
151
|
5 |
16 |
if (substr($_[0], 0, 1) eq "\\")
|
|
153
|
1 |
5 |
if ($1 eq 't') { }
|
|
|
0 |
5 |
elsif ($1 eq 'r') { }
|
|
|
1 |
4 |
elsif ($1 eq 'n') { }
|
|
|
1 |
3 |
elsif ($1 eq '"') { }
|
|
|
1 |
2 |
elsif ($1 eq '\\') { }
|
|
|
1 |
1 |
elsif ($1 eq 'u') { }
|
|
|
1 |
0 |
elsif ($1 eq 'U') { }
|
|
169
|
0 |
1 |
unless $_[0] =~ /^\\u([0-9A-Fa-f]{4})/u
|
|
173
|
0 |
1 |
unless $_[0] =~ /^\\U([0-9A-Fa-f]{8})/u
|
|
182
|
17 |
0 |
if (substr($_[0], 0, 1) eq '"') { }
|
|
188
|
2 |
15 |
if ($_[0] =~ /^@([a-z]+(-[a-zA-Z0-9]+)*)/u) { }
|
|
|
5 |
10 |
elsif (substr($_[0], 0, 3) eq '^^<') { }
|
|
216
|
1 |
31 |
if (length $string)
|
|
217
|
0 |
1 |
if ($string eq "\\")
|
|
220
|
1 |
0 |
if ($string =~ /^\\([tbnrf"'uU])/u) { }
|
|
222
|
0 |
1 |
if ($1 eq 't') { }
|
|
|
0 |
1 |
elsif ($1 eq 'b') { }
|
|
|
0 |
1 |
elsif ($1 eq 'n') { }
|
|
|
0 |
1 |
elsif ($1 eq 'r') { }
|
|
|
0 |
1 |
elsif ($1 eq 'f') { }
|
|
|
0 |
1 |
elsif ($1 eq '"') { }
|
|
|
0 |
1 |
elsif ($1 eq '\\') { }
|
|
|
1 |
0 |
elsif ($1 eq 'u') { }
|
|
|
0 |
0 |
elsif ($1 eq 'U') { }
|
|
244
|
0 |
1 |
unless $string =~ /^\\u([0-9A-F]{4})/u
|
|
248
|
0 |
0 |
unless $string =~ /^\\U([0-9A-F]{8})/u
|