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 24 718 699 defined $v and not ref $v
173 0 0 41 defined $_[0] and not ref $_[0]
232 21 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 326 length $_ < $self->get('longstr') and not $self->is_keyword($_)
0 32 294 length $_ < $self->get('longstr') and not $self->is_keyword($_) and /\A-?[[:alpha:]_]\w*\z/u
840 0 32 0 defined &Scalar::Util::blessed($object) and overload::Overloaded($object)
958 0 0 8 @_ and defined $_[0]
1046 0 0 5 not ref $_[0] and length($class = $_[0])
1152 0 0 1 65536 <= $ord and $ord <= 1114111
1154 5 0 0 55296 <= $ord and $ord <= 57343
1180 0 2 4 128 <= $ord and $ord <= 2047
0 1 1 2048 <= $ord and $ord <= 65535
0 0 1 65536 <= $ord and $ord <= 1114111
1194 1 0 0 55296 <= $ord and $ord <= 57343

or 2 conditions

line l !l condition
23 2905 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') // []
843 0 0 $self->get('overloads') || []
1030 0 0 $self->can($method) || die("Cannot $method")
1060 7317 2304 $_[1] // 0
1098 0 0 $self->get('qpairs') || []
1229 18 277 $encode->{'utf'} // 0
1255 1 0 $self->get('qpairs') || []
1265 23 0 $counts{$a} //= 0
23 0 $counts{$b} //= 0
1271 596 0 $self->{'_position'} //= []
1284 66 76 $self->{'_position'} //= []
1315 110 0 $self->{'_cache'} //= {}
1316 110 0 $_cache->{$refaddr} //= [$self->_cache_position]
1327 72 76 $self->{'_cache'} //= {}
1341 38 3 $self->{'_cache'} //= {}

or 3 conditions

line l !l&&r !l&&!r condition
50 1105 5537 689 exists $$self{$_[0]} && $self || exists $$SETTINGS{$_[0]} && $SETTINGS
113 1403 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 542 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 1264 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'
965 4 0 0 $self->get('codename') // $template
1046 5 5 0 defined($class = &Scalar::Util::blessed($_[0])) or not ref $_[0] and length($class = $_[0])
1121 64 270 130 $encode->{'also'} // ()
1160 1 0 0 $encode->{'vwide'} || $format x 2
1187 4 0 0 $encode->{'byte2'} || $format x 2
1199 1 0 0 $encode->{'byte3'} || $format x 3
1209 1 0 0 $encode->{'byte4'} || $format x 4
1239 2 0 0 $encode->{'wide'} // $encode->{'byte'}
1242 1 0 0 $encode->{'vwide'} // $encode->{'wide'}
0 0 0 ($encode->{'vwide'} // $encode->{'wide'}) // $encode->{'byte'}
1281 142 0 0 $self->get('nested') // $self->get('dereference')
1289 0 0 142 $sigil eq '@' or $sigil eq '%'
1296 32 0 0 $self->get('dereference') // $self->get('nested')
1330 6 0 0 $entry->[$repr] // Carp::croak('Recursive structures not allowed at ', $self->_cache_position)