Branch Coverage

blib/lib/Attean/API/Term.pm
Criterion Covered Total %
branch 62 164 37.8


line true false branch
68 490 1 if ($value =~ /^[\x20\x23-\x5a\x5d-\x7e]*$/ou)
77 0 20 if ($o < 8) { }
0 20 elsif ($o == 9) { }
0 20 elsif ($o == 10) { }
0 20 elsif ($o < 12) { }
0 20 elsif ($o == 13) { }
0 20 elsif ($o < 31) { }
0 20 elsif ($o < 33) { }
0 20 elsif ($o == 34) { }
5 15 elsif ($o < 91) { }
0 15 elsif ($o == 92) { }
14 1 elsif ($o < 126) { }
1 0 elsif ($o < 65535) { }
172 16 70 if ($self->does("Attean::API::NumericLiteral") and $dt->value eq "http://www.w3.org/2001/XMLSchema#integer")
173 16 0 if ($self->value =~ /^\d+$/u)
181 6 64 if (my $lang = $self->language) { }
185 2 62 if ($dt->value ne "http://www.w3.org/2001/XMLSchema#string")
197 26 2 if ($dt eq 'http://www.w3.org/2001/XMLSchema#boolean') { }
206 0 1 unless &blessed($b)
207 0 1 unless $b->does("Attean::API::Literal") or $b->does("Attean::API::Binding")
208 0 1 if $b->does("Attean::API::Binding")
238 0 0 if $self->language
239 0 0 if $self->datatype
247 0 0 if (my $l = $self->language) { }
0 0 elsif ($self->datatype->value eq 'http://www.w3.org/2001/XMLSchema#string') { }
249 0 0 unless $t->does("Attean::API::Literal")
250 0 0 if ($t->language) { }
251 0 0 unless defined $t->language
252 0 0 unless $t->language eq $l
254 0 0 unless $t->datatype->value eq "http://www.w3.org/2001/XMLSchema#string"
260 0 0 unless $t->does("Attean::API::Literal")
261 0 0 if $t->language
262 0 0 unless &blessed(scalar $t->datatype)
263 0 0 unless $t->datatype->value eq "http://www.w3.org/2001/XMLSchema#string"
274 0 64 if (my $l = $self->language) { }
278 0 64 if ($dt->value eq 'http://www.w3.org/2001/XMLSchema#string') { }
324 0 0 if ($value =~ /^(true|false|0|1)$/u) { }
325 0 0 $value eq 'true' || $value eq '1' ? :
342 0 1 unless &blessed($b)
343 0 1 unless $b->does("Attean::API::Literal") or $b->does("Attean::API::Binding")
344 0 1 if $b->does("Attean::API::Binding")
345 1 0 if ($b->does('Attean::API::NumericLiteral')) { }
358 1 4 if ($type eq 'integer') { }
0 4 elsif ($type eq 'negativeInteger') { }
4 0 elsif ($type eq 'decimal') { }
0 0 elsif ($type eq 'float') { }
0 0 elsif ($type eq 'boolean') { }
0 0 elsif ($type eq 'double') { }
359 1 0 if ($value =~ /^([-+])?(\d+)$/u) { }
362 1 0 if $sign eq "+"
369 0 0 if ($value =~ /^-(\d+)$/u) { }
377 4 0 if ($value =~ /^([-+])?((\d+)([.]\d*)?)$/u) { }
0 0 elsif ($value =~ /^([-+])?([.]\d+)$/u) { }
382 0 4 if $sign eq "+"
385 0 4 if ($num =~ /^[.]/u)
388 4 0 unless ($num =~ /[.]/u)
395 0 0 if $sign eq "+"
402 0 0 if ($value =~ /^(?:([-+])?(?:(\d+(?:\.\d*)?|\.\d+)([Ee][-+]?\d+)?|(INF)))|(NaN)$/u) { }
407 0 0 if $sign eq "+"
408 0 0 if $inf
409 0 0 if $nan
428 0 0 if ($value =~ /^(true|false|0|1)$/u) { }
429 0 0 $value eq 'true' || $value eq '1' ? :
436 0 0 if ($value =~ /^(?:([-+])?(?:(\d+(?:\.\d*)?|\.\d+)([Ee][-+]?\d+)?|(INF)))|(NaN)$/u) { }
441 0 0 if $sign eq "+"
442 0 0 if $inf
443 0 0 if $nan
481 46 0 &looks_like_number($v) ? :
505 4 3 if $lhs eq $rhs
510 0 5 if $cur eq $rhs
514 2 4 if exists $ancestors{$cur}
523 7 14 if ($op =~ /^[-+*]$/u) { }
14 0 elsif ($op eq '/') { }
525 6 1 if (my $type = _lca($self->datatype->value, $rhs->datatype->value))
530 14 0 if ($self->is_integer_type and $rhs->is_integer_type)
534 0 0 if (my $type = _lca($self->datatype->value, $rhs->datatype->value))
566 0 3 unless &blessed($b)
567 0 3 unless $b->does("Attean::API::Blank")
588 0 244 if ($self->value eq '') { }
598 0 16 unless &blessed($b)
599 0 16 if $b->does("Attean::API::Literal") or $b->does("Attean::API::Binding")
600 0 16 unless $b->does("Attean::API::IRI")