Branch Coverage

blib/lib/RDF/Trine/Serializer/Turtle.pm
Criterion Covered Total %
branch 111 130 85.3


line true false branch
77 15 36 if (@_)
78 9 6 if (scalar @_ == 1 and &reftype($_[0]) eq 'HASH') { }
82 1 5 if (exists $args{'base'})
85 1 5 if (exists $args{'base_uri'})
88 4 2 if (exists $args{'namespaces'})
95 1 50 if (&blessed($ns) and $ns->isa('RDF::Trine::NamespaceMap')) { }
104 1 33 if (&blessed($uri))
106 1 0 if (&blessed($uri))
202 1 39 unless ($sink->can('prepend'))
203 1 0 if (@nskeys)
211 2 38 if ($self->{'base_uri'})
236 132 9 if (my $model = $args{'model'})
237 17 115 if (my $head = $self->_statement_describes_list($model, $st))
238 0 17 if $debug
239 8 9 if ($model->count_statements(undef, undef, $head))
243 0 8 if $debug
249 48 85 if ($$seen{$subj->as_string})
250 0 48 if $debug
254 32 53 if ($subj->equal($last_subj)) { }
256 7 25 if ($pred->equal($last_pred)) { }
269 13 40 if ($open_triple)
275 0 53 if $debug
282 41 100 if (&blessed($last_subj) and not $last_subj->equal($st->subject))
291 40 0 if ($open_triple)
295 39 1 if ($sink->can('prepend'))
297 10 29 if (@used_nskeys)
345 128 9 if (my $model = $args{'model'})
346 34 94 if ($subj->isa('RDF::Trine::Node::Blank'))
347 2 32 if ($self->_check_valid_rdf_list($subj, $model)) { }
353 0 32 if $debug
354 30 2 if ($count == 1 and $rec == 0)
355 26 4 unless ($$seen{$subj->as_string}++ or $seen->{' heads'}{$subj->as_string})
367 3 45 if ($pred->equal($last_pred)) { }
374 24 21 if ($triple_count == 0) { }
387 24 2 if ($triple_count)
408 26 106 if ($model->count_statements($subj, $RDF::Trine::Serializer::Turtle::rdf->first) and $model->count_statements($subj, $RDF::Trine::Serializer::Turtle::rdf->rest))
410 17 9 if (my $head = $self->_node_belongs_to_valid_list($model, $subj))
426 0 12 unless (&blessed($ancestor))
433 17 9 if ($self->_check_valid_rdf_list($node, $model)) { }
448 3 57 if ($headrest)
458 5 76 unless ($node->isa('RDF::Trine::Node::Blank'))
464 33 43 unless ($first == 1)
470 0 43 unless ($rest == 1)
476 0 43 unless ($in < 2)
481 19 24 unless ($head->equal($node))
486 0 19 unless ($out == 2 or $out == 3)
491 0 19 if ($out == 3)
493 0 0 unless ($type == 1)
504 0 86 if ($list_elements{$l->as_string})
505 0 0 if $debug
511 0 43 unless (&blessed($node))
535 2 2 if ($count)
550 28 230 if ($obj->is_literal and $obj->has_datatype) { }
184 46 elsif ($obj->isa('RDF::Trine::Node::Resource')) { }
552 21 7 if ($dt =~ m[^http://www.w3.org/2001/XMLSchema#(integer|double|decimal)$] and $obj->is_canonical_lexical_form) { }
561 3 4 if (&blessed($self) and exists $self->{'ns'}{$ns})
566 3 4 if ($qname)
575 61 119 if (&blessed($self) and exists $self->{'ns'}{$ns})
580 61 123 if ($value)
597 4 19 if (defined $str) { }
614 14 271 if ($obj->isa('RDF::Trine::Node::Resource') and $pos == 1 and $obj->uri_value eq 'http://www.w3.org/1999/02/22-rdf-syntax-ns#type') { }
36 235 elsif ($obj->isa('RDF::Trine::Node::Blank') and $pos == 0) { }
81 154 elsif (defined(my $str = $self->_node_concise_string($obj))) { }
618 35 1 if (my $model = $args{'model'})
622 31 4 if ($count < 1 and $rec == 0)