Branch Coverage

blib/lib/Shell/Perl.pm
Criterion Covered Total %
branch 9 96 9.3


line true false branch
64 2 2 if ($dumper_for{$format}->is_available)
72 0 2 if ($self->library)
154 0 2 unless (defined $dumper_class)
158 2 0 if ($dumper_class->is_available) { }
169 0 0 if ($context =~ /^(s|scalar|\$)$/i) { }
0 0 elsif ($context =~ /^(l|list|@)$/i) { }
0 0 elsif ($context =~ /^(v|void|_)$/i) { }
184 0 0 if ($context) { }
195 2 0 if ($package =~ /( [a-zA-Z_] \w* :: )* [a-zA-Z_] \w* /x) { }
214 2 0 if (exists $on_quit{$handler}) { }
0 0 elsif (ref $handler eq 'CODE') { }
227 2 0 if ($handler) { }
240 0 0 if ($@)
246 0 0 if ($ver > $v)
256 0 0 if (not defined $version) { }
0 0 elsif ($version eq q[''] or $version eq '""') { }
264 0 0 if ($err) { }
299 0 0 if $package eq 'main'
327 0 0 if ($term->Features->{'readHistory'}) { }
0 0 elsif ($term->Features->{'setHistory'}) { }
330 0 0 if (-e $h)
344 0 0 if ($term->Features->{'writeHistory'}) { }
0 0 elsif ($term->Features->{'getHistory'}) { }
358 0 0 if $term->Features->{'ornaments'}
381 0 0 if (/^:[^:]/)
382 0 0 if /^:(exit|quit|q|x)/
383 0 0 if /^:set out (\S+)/
384 0 0 if /^:set ctx (\S+)/
385 0 0 if /^:set package (\S+)/
386 0 0 if /^:set perl_version(?: (\S+))?/
387 0 0 if /^:reset/
388 0 0 if /^:h(elp)?/
389 0 0 if /^:dump history(?:\s+(\S*))?/
395 0 0 if s/#(s|scalar|\$|l|list|\@|v|void|_)\z//
396 0 0 unless $context
397 0 0 if ($context eq 'scalar') { }
0 0 elsif ($context eq 'list') { }
0 0 elsif ($context eq 'void') { }
399 0 0 if ($@)
403 0 0 if ($@)
407 0 0 if ($@)
411 0 0 if $self->{'quitting'}
425 2 0 $perl_version ? :
461 0 0 if (@ARGV)
468 0 0 if ($options{'version'}) { }
489 0 0 unless ($self->term->Features->{'getHistory'})
494 0 0 if ($file) { }
496 0 0 unless (open my $fh, '>>', $file)