| line |
true |
false |
branch |
|
12
|
1 |
0 |
if require Exporter |
|
26
|
0 |
1 |
scalar @_ ? : |
|
29
|
0 |
1 |
if defined $_ |
|
37
|
0 |
0 |
unless ($TermReadLine) |
|
48
|
0 |
0 |
scalar @_ ? : |
|
64
|
0 |
3 |
unless length $input |
|
66
|
0 |
3 |
unless $input =~ /\A\s*(\S+)(?:\s(?![\)])(.*))?\Z/ |
|
72
|
3 |
0 |
if ($command =~ /^(.*)::([^:]+)$/) { } |
|
77
|
0 |
0 |
if ($sub = UNIVERSAL::can($package, $command)) |
|
82
|
0 |
3 |
unless ($sub) |
|
84
|
0 |
0 |
unless my $rewriter = UNIVERSAL::can($package, '_shell_rewrite') |
|
86
|
0 |
0 |
if (scalar @out) |
|
96
|
2 |
1 |
if (not defined $ptype or $ptype eq '@') { } |
|
|
1 |
0 |
elsif ($ptype eq ';$') { } |
|
|
0 |
0 |
elsif ($ptype eq '$') { } |
|
98
|
0 |
2 |
if $@ |
|
100
|
1 |
0 |
defined $args ? : |
|
102
|
0 |
0 |
unless length $args |
|
106
|
0 |
0 |
if $@ |
|
125
|
0 |
2 |
/\n\Z/m ? : |
|
140
|
0 |
1 |
scalar @_ ? : |
|
143
|
1 |
3 |
unless (scalar @Term::ShellKit::CommandQueue) |
|
144
|
0 |
1 |
unless my $get_cmd = $Term::ShellKit::SubReadLine |
|
149
|
1 |
3 |
unless defined $cmd |
|
152
|
0 |
3 |
if ($@) |
|
153
|
0 |
0 |
if ($@ =~ /Term::ShellKit command completed/) { } |
|
170
|
1 |
1 |
if $INC{$file} |
|
177
|
0 |
1 |
if ($@) |
|
188
|
1 |
0 |
unless $package =~ /::/ |
|
191
|
0 |
1 |
if $package->can('import') |