Branch Coverage

blib/lib/Eval/TypeTiny.pm
Criterion Covered Total %
branch 87 102 85.2


line true false branch
8 2 0 unless Type::Tiny::XS::AUTO::TC2($rv)
16 309 0 $] >= 5.018 ? :
17 309 0 $] >= 5.014 ? :
24 286 3 if ($type eq 'needs') { }
3 0 elsif ($type eq 'if') { }
25 286 0 if eval "require $condition; 1"
28 2 1 if $condition
30 1 288 unless $ok
31 286 2 ref $result eq 'SCALAR' ? :
0 288 ref $result eq 'CODE' ? :
62 306 3 $ENV{'EXTENDED_TESTING'} ? :
87 0 2 ref $_[0] ? :
96 286 70729 unless defined $subname
101 49790 21225 if $subname and not $already{$_[1]}++
112 811 14607 if (not defined $type) { }
119 0 426 if ref $_[0] eq "ARRAY"
122 0 424 unless $library->can("get_type")
129 3 423 if ($type) { }
130 0 3 $params ? :
131 0 3 if $post_method
134 0 423 if $params
140 1 425 @_ && wantarray ? :
143 811 0 if require Scalar::Util
149 6695 7912 $type->is_parameterizable ? :
177 0 15418 $args{'anonymous'} ? :
185 4 31991 ref $args{'source'} eq 'ARRAY' ? :
187 31979 16 unless defined $args{'alias'}
188 31993 2 unless defined $args{'line'}
190 31876 119 if defined $args{'description'}
192 31876 119 if defined $args{'description'} and not $^P & 16
200 15143 299 if $k =~ /^\$/ and &Scalar::Util::reftype($args{'environment'}{$k}) =~ /^(SCALAR|REF)$/
203 289 274 if $k =~ /^\@/ and &Scalar::Util::reftype($args{'environment'}{$k}) eq "ARRAY"
206 7 3 if $k =~ /^\%/ and &Scalar::Util::reftype($args{'environment'}{$k}) eq "HASH"
209 2 265 if $k =~ /^\&/ and &Scalar::Util::reftype($args{'environment'}{$k}) eq "CODE"
220 31730 264 exists $args{'alias'} ? :
231 5 31989 if ($alias and &ALIAS_IMPLEMENTATION() eq "tie")
236 4 31726 if ($e)
245 1 3 ref $args{'source'} eq 'ARRAY' ? :
251 3 31723 if ($alias and &ALIAS_IMPLEMENTATION() eq "Devel::LexAlias")
257 3 31723 if ($alias and &ALIAS_IMPLEMENTATION() eq "PadWalker")
272 2 15295 if ($key =~ /^\&/)
282 15271 24 if (not $alias) { }
7 17 elsif (&ALIAS_IMPLEMENTATION() eq 'perl') { }
5 12 elsif (&ALIAS_IMPLEMENTATION() eq 'Devel::LexAlias') { }
5 7 elsif (&ALIAS_IMPLEMENTATION() eq 'PadWalker') { }
318 2 2 if defined tied $$self
2 0 unless $method eq "DESTROY"
1 1 if defined tied @$self
5 2 unless $method eq "DESTROY"
2 2 if defined tied %$self
2 2 unless $method eq "DESTROY"