Branch Coverage

blib/lib/RDF/Trine/Parser/NTriples.pm
Criterion Covered Total %
branch 60 84 71.4


line true false branch
130 0 412 unless (ref $fh)
133 0 0 unless open $fh, '<:encoding(UTF-8)', $filename
143 851 3019 unless defined $line and length $line
144 2 3017 unless $line =~ /\S/
148 2267 750 if $line =~ /^#/
158 0 750 unless ($line eq '.')
164 750 0 if (@extra)
177 742 0 if (scalar @$nodes == 3) { }
178 6 736 if ($self->{'canonicalize'})
179 5 1 if ($nodes->[2]->isa('RDF::Trine::Node::Literal') and $nodes->[2]->has_datatype)
201 0 3007 unless length $_[0]
203 750 2257 if $char eq '.'
205 1649 608 if ($char eq '<') { }
282 326 elsif ($char eq '_') { }
326 0 elsif ($char eq '"') { }
221 98 281 if (substr($_[0], 0, 1) eq '\\')
223 15 196 if ($1 eq 't') { }
4 192 elsif ($1 eq 'r') { }
44 148 elsif ($1 eq 'n') { }
19 129 elsif ($1 eq '"') { }
3 126 elsif ($1 eq '\\') { }
99 27 elsif ($1 eq 'u') { }
27 0 elsif ($1 eq 'U') { }
239 0 99 unless $_[0] =~ /^\\u([0-9A-Fa-f]{4})/
243 0 27 unless $_[0] =~ /^\\U([0-9A-Fa-f]{8})/
252 326 0 if (substr($_[0], 0, 1) eq '"') { }
258 20 306 if ($_[0] =~ /^@([a-z]+(-[a-zA-Z0-9]+)*)/) { }
89 217 elsif (substr($_[0], 0, 3) eq '^^<') { }
284 11 1642 if (length $string)
285 0 11 if ($string eq '\\')
288 11 0 if ($string =~ /^\\([tbnrf"'uU])/) { }
290 0 78 if ($1 eq 't') { }
0 78 elsif ($1 eq 'b') { }
0 78 elsif ($1 eq 'n') { }
0 78 elsif ($1 eq 'r') { }
0 78 elsif ($1 eq 'f') { }
0 78 elsif ($1 eq '"') { }
0 78 elsif ($1 eq '\\') { }
74 4 elsif ($1 eq 'u') { }
4 0 elsif ($1 eq 'U') { }
312 0 74 unless $string =~ /^\\u([0-9A-F]{4})/
316 0 4 unless $string =~ /^\\U([0-9A-F]{8})/