Condition Coverage

blib/lib/Datify.pm
Criterion Covered Total %
condition 82 178 46.0


and 2 conditions

line l !l condition
734 5 0 $@ and die $@

and 3 conditions

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

or 2 conditions

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'} //= {}

or 3 conditions

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)