| 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'}) { } |
|
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) |