Condition Coverage

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


and 2 conditions

line l !l condition
733 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
694 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
834 0 32 0 defined &Scalar::Util::blessed($object) and overload::Overloaded($object)
952 0 0 8 @_ and defined $_[0]
1040 0 0 5 not ref $_[0] and length($class = $_[0])
1146 0 0 1 65536 <= $ord and $ord <= 1114111
1148 5 0 0 55296 <= $ord and $ord <= 57343
1174 0 2 4 128 <= $ord and $ord <= 2047
0 1 1 2048 <= $ord and $ord <= 65535
0 0 1 65536 <= $ord and $ord <= 1114111
1188 1 0 0 55296 <= $ord and $ord <= 57343

or 2 conditions

line l !l condition
23 2817 0 shift() || 'Datify'
396 410 0 eval $tr1 // die($@)
402 21 0 eval $tr2 // die($@)
617 4 0 eval $tr3 // die($@)
678 63 0 $self->get('keywords') // []
837 0 0 $self->get('overloads') || []
1024 0 0 $self->can($method) || die("Cannot $method")
1054 7223 2304 $_[1] // 0
1092 0 0 $self->get('qpairs') || []
1223 18 277 $encode->{'utf'} // 0
1249 1 0 $self->get('qpairs') || []
1259 23 0 $counts{$a} //= 0
23 0 $counts{$b} //= 0
1265 592 0 $self->{'_position'} //= []
1278 66 76 $self->{'_position'} //= []
1309 110 0 $self->{'_cache'} //= {}
1310 110 0 $_cache->{$refaddr} //= [$self->_cache_position]
1321 72 76 $self->{'_cache'} //= {}
1335 38 3 $self->{'_cache'} //= {}

or 3 conditions

line l !l&&r !l&&!r condition
50 1101 5447 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
486 6 538 4 $self->_cache_get($_) // $self->_scalarify($_)
530 0 18 0 $self->get(lc($ref) . '_reference') || $self->get('reference')
618 0 0 4 shift() // $quoter
733 1223 1 1 ($numa && $numb ? $a <=> $b : ($numa ? -1 : ($numb ? 1 : CORE::fc $a cmp CORE::fc $b))) || $a cmp $b
746 0 0 0 $ref eq 'ARRAY' or $ref eq 'HASH'
959 4 0 0 $self->get('codename') // $template
1040 5 5 0 defined($class = &Scalar::Util::blessed($_[0])) or not ref $_[0] and length($class = $_[0])
1115 64 270 130 $encode->{'also'} // ()
1154 1 0 0 $encode->{'vwide'} || $format x 2
1181 4 0 0 $encode->{'byte2'} || $format x 2
1193 1 0 0 $encode->{'byte3'} || $format x 3
1203 1 0 0 $encode->{'byte4'} || $format x 4
1233 2 0 0 $encode->{'wide'} // $encode->{'byte'}
1236 1 0 0 $encode->{'vwide'} // $encode->{'wide'}
0 0 0 ($encode->{'vwide'} // $encode->{'wide'}) // $encode->{'byte'}
1275 142 0 0 $self->get('nested') // $self->get('dereference')
1283 0 0 142 $sigil eq '@' or $sigil eq '%'
1290 32 0 0 $self->get('dereference') // $self->get('nested')
1324 6 0 0 $entry->[$repr] // Carp::croak('Recursive structures not allowed at ', $self->_cache_position)