Branch Coverage

blib/lib/Perlito/Perl5/Runtime.pm
Criterion Covered Total %
branch 28 64 43.7


line true false branch
38 0 0 unless $$v{'match'}
62 15669 3410 if defined $cap
64 0 3410 unless $$obj{'bool'}
65 0 3410 if $_[0]->from > length $$obj{'str'}
84 6308 5433 substr($str, $$MATCH{'to'}) =~ /^([[:space:]])/ ? :
95 1692 13413 substr($str, $$MATCH{'to'}) =~ /^([[:digit:]])/ ? :
107 8113 8719 substr($str, $$MATCH{'to'}) =~ /^([[:word:]])/ ? :
119 0 0 unless open FILE, $source_filename
139 0 0 $_[1] ? :
164 0 0 $_[1] ? :
170 0 19 if $can
171 5 14 if (ref $_[0])
172 5 0 if ref $_[0] eq 'ARRAY'
173 0 0 if ref $_[0] eq 'HASH'
180 4 500 if (ref $_)
192 6645 3006 unless $ref eq 'ARRAY' and $_[1] eq 'Array' or $ref eq 'HASH' and $_[1] eq 'Hash' or $ref eq '' and $_[1] eq 'Str' or $ref eq $_[1]
222 0 0 unless &Scalar::Util::refaddr($_[0])
227 0 11 unless defined $_[0]
231 3 8 if (ref $o) { }
233 0 3 if ($_seen{$key} || 0) > 3
235 0 3 if ref $o eq 'ARRAY'
237 3 0 if ref $o eq 'HASH'
239 0 0 if ref $o eq 'CODE'
243 4 4 if $o =~ /^[0-9]/ and 0 + $o eq $o
249 0 0 if $can
251 0 0 if $ref eq 'SCALAR'
259 0 0 if ($can) { }
269 0 1660 unless defined $_[0]
271 0 1660 if ($can) { }
280 0 0 unless defined $_[0]
282 0 0 if ($can) { }
291 0 0 $_[0] ? :