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