| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless index($self->command, ':') >= 0 |
|
55
|
28 |
10 |
if ($command =~ m[^/([^= ]+)=(.+)$]) { } |
|
|
10 |
0 |
elsif ($command =~ m[^/([^ ]+)$]) { } |
|
65
|
10 |
6 |
if @command_line and not $command_line[0] =~ /^--/ |
|
71
|
1 |
8 |
if (substr($command, 0, 1) eq '@') |
|
72
|
0 |
1 |
unless open my $lf, '<', substr($command, 1) |
|
92
|
5 |
27 |
if ($command =~ /^--no-([^ ]+)$/) { } |
|
|
10 |
17 |
elsif (!@command_line || $command_line[0] =~ /^--/ and $command =~ /^--([^ =]+)$/) { } |
|
100
|
0 |
17 |
if ($command =~ /^([^=]+)=(.+?)$/) { } |
|
106
|
2 |
15 |
if (substr($argument, 0, 1) eq '@') { } |
|
107
|
0 |
2 |
unless open my $lf, '<', substr($argument, 1) |
|
113
|
9 |
6 |
if (not $data->{'settings'}{$command}) { } |
|
|
0 |
6 |
elsif (ref $data->{'settings'}{$command} eq 'ARRAY') { } |
|
127
|
16 |
0 |
unless (-t STDIN) |