Branch Coverage

blib/lib/AtteanX/Parser/Turtle/Lexer.pm
Criterion Covered Total %
branch 67 136 49.2


line true false branch
111 118 891 unless length $self->buffer
113 493 516 if ($self->buffer =~ /^[ \r\n\t]+/ou)
121 33 483 unless defined $c
123 0 483 if ($c eq "#")
135 0 483 if ($c eq "." and $self->buffer =~ /^$r_decimal/u)
139 129 354 if (defined(my $name = $CHAR_TOKEN{$c})) { }
231 123 elsif (defined(my $method = $METHOD_TOKEN{$c})) { }
123 0 elsif ($c =~ /[A-Za-z\x{00C0}-\x{00D6}\x{00D8}-\x{00F6}\x{00F8}-\x{02FF}\x{0370}-\x{037D}\x{037F}-\x{1FFF}\x{200C}-\x{200D}\x{2070}-\x{218F}\x{2C00}-\x{2FEF}\x{3001}-\x{D7FF}\x{F900}-\x{FDCF}\x{FDF0}-\x{FFFD}\x{10000}-\x{EFFFF}]/ou) { }
0 0 elsif ($c eq '^') { }
142 22 101 if ($self->buffer =~ /^a(?!:)\s/ou) { }
0 101 elsif ($self->buffer =~ /^(?:true|false)(?!:)\b/ou) { }
1 100 elsif ($self->buffer =~ /^BASE(?!:)\b/iou) { }
2 98 elsif ($self->buffer =~ /^PREFIX(?!:)\b/iou) { }
0 98 elsif ($self->buffer =~ /^GRAPH(?!:)\b/iou) { }
180 104 33 if ($self->buffer =~ /^$r_PNAME_LN/ou) { }
202 1 0 if ($self->buffer =~ /^\|/ou)
218 1 87 if ($self->buffer =~ /^</ou)
223 87 0 if ($self->buffer =~ /^[\x23-\x3d\x3f-\x5a\x5d-\x7e]*>/ou)
231 0 0 if (length $self->buffer == 0)
233 0 0 unless defined $c
235 0 0 if (substr($self->buffer, 0, 1) eq '\\') { }
0 0 elsif ($self->buffer =~ /^[^<>\x00-\x20\\"{}|^`]+/ou) { }
0 0 elsif (substr($self->buffer, 0, 1) eq '>') { }
238 0 0 if ($esc eq '\\') { }
0 0 elsif ($esc eq 'U') { }
0 0 elsif ($esc eq 'u') { }
242 0 0 unless $codepoint =~ /^[0-9A-Fa-f]+$/ou
246 0 0 unless $codepoint =~ /^[0-9A-Fa-f]+$/ou
248 0 0 if ($char =~ /[<>" {}|\\^`]/ou)
271 0 26 unless $self->buffer =~ /^$r_bnode_id/ou
279 0 10 if ($self->buffer =~ /^$r_double/ou) { }
0 10 elsif ($self->buffer =~ /^$r_decimal/ou) { }
10 0 elsif ($self->buffer =~ /^$r_integer/ou) { }
298 0 0 if (length $c and $c =~ /[\r\n]/ou)
308 1 25 if (substr($self->buffer, 0, 2) eq '""') { }
315 0 4 if (length $self->buffer == 0)
317 0 0 if length $self->buffer == 0
319 3 1 if (substr($self->buffer, 0, 1) eq '"') { }
322 1 2 if $quote_count == 3
324 0 1 if ($quote_count)
328 0 1 if (substr($self->buffer, 0, 1) eq '\\') { }
341 1 49 if (substr($self->buffer, 0, 1) eq '\\') { }
24 25 elsif ($self->buffer =~ /^[^"\\]+/ou) { }
25 0 elsif (substr($self->buffer, 0, 1) eq '"') { }
360 0 4 if (substr($self->buffer, 0, 2) eq q['']) { }
367 0 0 if (length $self->buffer == 0)
369 0 0 if length $self->buffer == 0
371 0 0 if (substr($self->buffer, 0, 1) eq q[']) { }
374 0 0 if $quote_count == 3
376 0 0 if ($quote_count)
380 0 0 if (substr($self->buffer, 0, 1) eq '\\') { }
393 5 4 if (substr($self->buffer, 0, 1) eq '\\') { }
0 4 elsif ($self->buffer =~ /^[^'\\]+/ou) { }
4 0 elsif (substr($self->buffer, 0, 1) eq q[']) { }
414 0 6 if ($esc eq '\\') { }
2 4 elsif ($esc =~ /^['">]$/u) { }
0 4 elsif ($esc eq 'r') { }
0 4 elsif ($esc eq 't') { }
0 4 elsif ($esc eq 'n') { }
0 4 elsif ($esc eq 'b') { }
0 4 elsif ($esc eq 'f') { }
2 2 elsif ($esc eq 'U') { }
2 0 elsif ($esc eq 'u') { }
423 0 2 unless $codepoint =~ /^[0-9A-Fa-f]+$/ou
427 0 2 unless $codepoint =~ /^[0-9A-Fa-f]+$/ou
436 0 35 if ($self->buffer =~ /^base/ou) { }
31 4 elsif ($self->buffer =~ /^prefix/ou) { }
443 4 0 if ($self->buffer =~ /^[a-zA-Z]+(-[a-zA-Z0-9]+)*\b/ou)