| line |
true |
false |
branch |
|
62
|
2 |
2 |
if ($dumper_for{$format}->is_available) |
|
70
|
0 |
2 |
if ($self->library) |
|
151
|
0 |
2 |
unless (defined $dumper_class) |
|
155
|
2 |
0 |
if ($dumper_class->is_available) { } |
|
166
|
0 |
0 |
if ($context =~ /^(s|scalar|\$)$/i) { } |
|
|
0 |
0 |
elsif ($context =~ /^(l|list|@)$/i) { } |
|
|
0 |
0 |
elsif ($context =~ /^(v|void|_)$/i) { } |
|
181
|
0 |
0 |
if ($context) { } |
|
192
|
2 |
0 |
if ($package =~ /( [a-zA-Z_] \w* :: )* [a-zA-Z_] \w* /x) { } |
|
206
|
0 |
0 |
if ($@) |
|
212
|
0 |
0 |
if ($ver > $v) |
|
222
|
0 |
0 |
if (not defined $version) { } |
|
|
0 |
0 |
elsif ($version eq q[''] or $version eq '""') { } |
|
230
|
0 |
0 |
if ($err) { } |
|
265
|
0 |
0 |
if $package eq 'main' |
|
293
|
0 |
0 |
if ($term->Features->{'readHistory'}) { } |
|
|
0 |
0 |
elsif ($term->Features->{'setHistory'}) { } |
|
296
|
0 |
0 |
if (-e $h) |
|
310
|
0 |
0 |
if ($term->Features->{'writeHistory'}) { } |
|
|
0 |
0 |
elsif ($term->Features->{'getHistory'}) { } |
|
345
|
0 |
0 |
if (/^:[^:]/) |
|
346
|
0 |
0 |
if /^:(exit|quit|q|x)/ |
|
347
|
0 |
0 |
if /^:set out (\S+)/ |
|
348
|
0 |
0 |
if /^:set ctx (\S+)/ |
|
349
|
0 |
0 |
if /^:set package (\S+)/ |
|
350
|
0 |
0 |
if /^:set perl_version(?: (\S+))?/ |
|
351
|
0 |
0 |
if /^:reset/ |
|
352
|
0 |
0 |
if /^:h(elp)?/ |
|
353
|
0 |
0 |
if /^:dump history(?:\s+(\S*))?/ |
|
359
|
0 |
0 |
if s/#(s|scalar|\$|l|list|\@|v|void|_)\z// |
|
360
|
0 |
0 |
unless $context |
|
361
|
0 |
0 |
if ($context eq 'scalar') { } |
|
|
0 |
0 |
elsif ($context eq 'list') { } |
|
|
0 |
0 |
elsif ($context eq 'void') { } |
|
363
|
0 |
0 |
if ($@) |
|
367
|
0 |
0 |
if ($@) |
|
371
|
0 |
0 |
if ($@) |
|
388
|
2 |
0 |
$perl_version ? : |
|
424
|
0 |
0 |
if (@ARGV) |
|
431
|
0 |
0 |
if ($options{'version'}) { } |
|
452
|
0 |
0 |
unless ($self->term->Features->{'getHistory'}) |
|
457
|
0 |
0 |
if ($file) { } |
|
459
|
0 |
0 |
unless (open my $fh, '>>', $file) |