blib/lib/Datify.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 82 | 178 | 46.0 |
line | l | !l | condition |
---|---|---|---|
734 | 5 | 0 | $@ and die $@ |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
51 | 0 | 0 | 0 | exists $SETTINGS->{$_} and $SETTINGS |
0 | 0 | 0 | exists $self->{$_} and $self | |
56 | 2 | 0 | 42 | exists $$SETTINGS{$_[0]} && $SETTINGS |
115 | 18 | 718 | 699 | defined $v and not ref $v |
173 | 0 | 0 | 41 | defined $_[0] and not ref $_[0] |
232 | 17 | 0 | 0 | @_ and defined $_[0] |
381 | 0 | 0 | 0 | $quote1 and $quote1 eq $quote |
382 | 0 | 0 | 0 | $quote2 and $quote2 eq $quote |
389 | 0 | 0 | 422 | $encode2 && $encode2->{'also'} |
390 | 0 | 422 | 0 | $longstr and $longstr < length $_ |
0 | 410 | 12 | $also and /[$also]/u | |
695 | 0 | 0 | 322 | length $_ < $self->get('longstr') and not $self->is_keyword($_) |
0 | 32 | 290 | length $_ < $self->get('longstr') and not $self->is_keyword($_) and /\A-?[[:alpha:]_]\w*\z/u | |
835 | 0 | 32 | 0 | defined &Scalar::Util::blessed($object) and overload::Overloaded($object) |
953 | 0 | 0 | 8 | @_ and defined $_[0] |
1041 | 0 | 0 | 5 | not ref $_[0] and length($class = $_[0]) |
1147 | 0 | 0 | 1 | 65536 <= $ord and $ord <= 1114111 |
1149 | 5 | 0 | 0 | 55296 <= $ord and $ord <= 57343 |
1175 | 0 | 2 | 4 | 128 <= $ord and $ord <= 2047 |
0 | 1 | 1 | 2048 <= $ord and $ord <= 65535 | |
0 | 0 | 1 | 65536 <= $ord and $ord <= 1114111 | |
1189 | 1 | 0 | 0 | 55296 <= $ord and $ord <= 57343 |
line | l | !l | condition |
---|---|---|---|
23 | 2835 | 0 | shift() || 'Datify' |
396 | 410 | 0 | eval $tr1 // die($@) |
402 | 21 | 0 | eval $tr2 // die($@) |
618 | 4 | 0 | eval $tr3 // die($@) |
679 | 63 | 0 | $self->get('keywords') // [] |
838 | 0 | 0 | $self->get('overloads') || [] |
1025 | 0 | 0 | $self->can($method) || die("Cannot $method") |
1055 | 7247 | 2304 | $_[1] // 0 |
1093 | 0 | 0 | $self->get('qpairs') || [] |
1224 | 18 | 277 | $encode->{'utf'} // 0 |
1250 | 1 | 0 | $self->get('qpairs') || [] |
1260 | 23 | 0 | $counts{$a} //= 0 |
23 | 0 | $counts{$b} //= 0 | |
1266 | 592 | 0 | $self->{'_position'} //= [] |
1279 | 66 | 76 | $self->{'_position'} //= [] |
1310 | 110 | 0 | $self->{'_cache'} //= {} |
1311 | 110 | 0 | $_cache->{$refaddr} //= [$self->_cache_position] |
1322 | 72 | 76 | $self->{'_cache'} //= {} |
1336 | 38 | 3 | $self->{'_cache'} //= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
50 | 1101 | 5471 | 689 | exists $$self{$_[0]} && $self || exists $$SETTINGS{$_[0]} && $SETTINGS |
113 | 1397 | 36 | 2 | $internal or $class->exists($k) |
266 | 1 | 399 | 0 | shift() // $quote1 |
294 | 0 | 60 | 0 | shift() // $quote2 |
390 | 0 | 12 | 410 | $longstr and $longstr < length $_ or $also and /[$also]/u |
487 | 6 | 538 | 4 | $self->_cache_get($_) // $self->_scalarify($_) |
531 | 0 | 18 | 0 | $self->get(lc($ref) . '_reference') || $self->get('reference') |
619 | 0 | 0 | 4 | shift() // $quoter |
734 | 1229 | 4 | 1 | ($numa && $numb ? $a <=> $b : ($numa ? -1 : ($numb ? 1 : CORE::fc $a cmp CORE::fc $b))) || $a cmp $b |
747 | 0 | 0 | 0 | $ref eq 'ARRAY' or $ref eq 'HASH' |
960 | 4 | 0 | 0 | $self->get('codename') // $template |
1041 | 5 | 5 | 0 | defined($class = &Scalar::Util::blessed($_[0])) or not ref $_[0] and length($class = $_[0]) |
1116 | 64 | 270 | 130 | $encode->{'also'} // () |
1155 | 1 | 0 | 0 | $encode->{'vwide'} || $format x 2 |
1182 | 4 | 0 | 0 | $encode->{'byte2'} || $format x 2 |
1194 | 1 | 0 | 0 | $encode->{'byte3'} || $format x 3 |
1204 | 1 | 0 | 0 | $encode->{'byte4'} || $format x 4 |
1234 | 2 | 0 | 0 | $encode->{'wide'} // $encode->{'byte'} |
1237 | 1 | 0 | 0 | $encode->{'vwide'} // $encode->{'wide'} |
0 | 0 | 0 | ($encode->{'vwide'} // $encode->{'wide'}) // $encode->{'byte'} | |
1276 | 142 | 0 | 0 | $self->get('nested') // $self->get('dereference') |
1284 | 0 | 0 | 142 | $sigil eq '@' or $sigil eq '%' |
1291 | 32 | 0 | 0 | $self->get('dereference') // $self->get('nested') |
1325 | 6 | 0 | 0 | $entry->[$repr] // Carp::croak('Recursive structures not allowed at ', $self->_cache_position) |