| line |
true |
false |
branch |
|
56
|
65 |
3 |
unless @opts |
|
81
|
66 |
2 |
if ($all or $opts{'opts'}) |
|
159
|
66 |
2 |
if ($all or $opts{'commands'}) |
|
206
|
66 |
2 |
if $all or $opts{'env'} |
|
208
|
65 |
3 |
if ($all or $opts{'out'}) |
|
223
|
4 |
2 |
unless defined $dire |
|
230
|
59 |
2 |
unless defined $mode |
|
237
|
4 |
12 |
unless @tmp |
|
257
|
62 |
185 |
if ($opt eq 'mode') { } |
|
|
12 |
173 |
elsif ($opt eq 'dire') { } |
|
|
6 |
167 |
elsif ($opt eq 'output') { } |
|
|
26 |
141 |
elsif ($opt eq 'script') { } |
|
|
4 |
137 |
elsif ($opt eq 'echo') { } |
|
|
13 |
124 |
elsif ($opt eq 'failure') { } |
|
|
1 |
123 |
elsif ($opt =~ s/^ssh://) { } |
|
|
2 |
121 |
elsif ($opt eq 'ssh_num' or $opt eq 'ssh_sleep') { } |
|
|
120 |
1 |
elsif ($opt eq 'tmp_script' or $opt eq 'tmp_script_keep' or $opt eq 'ssh_script' or $opt eq 'ssh_script_keep') { } |
|
259
|
61 |
1 |
if (lc($val) =~ /^(run|dry-run|script)$/) |
|
270
|
5 |
1 |
if (lc($val) =~ /^(both|merged|stdout|stderr|quiet)$/) |
|
277
|
25 |
1 |
if (lc($val) =~ /^(run|script|simple)$/) |
|
284
|
3 |
1 |
if (lc($val) =~ /^(echo|noecho|failed)$/) |
|
291
|
12 |
1 |
if (lc($val) =~ /^(exit|display|continue)$/) |
|
337
|
1 |
181 |
if (ref $cmd ne '' and ref $cmd ne 'ARRAY') |
|
345
|
179 |
2 |
if (@args and ref $args[0] eq 'HASH') |
|
350
|
2 |
82 |
unless ($opt =~ /^(dire|noredir|retry|sleep|check|label)$/) |
|
355
|
1 |
81 |
if ($opt eq 'dire') { } |
|
366
|
0 |
179 |
if $err |
|
371
|
7 |
172 |
if (ref $cmd eq 'ARRAY') { } |
|
373
|
7 |
0 |
if ($n > $self->{'max_alt'}) |
|
394
|
7 |
172 |
if ref $cmd |
|
402
|
6 |
166 |
if ($cmd =~ /^\s*(if)\s+.*?;\s*then\s*$/ or $cmd =~ /^\s*(elif)\s+.*?;\s*then\s*$/ or $cmd =~ /^\s*(else)\s*$/ or $cmd =~ /^\s*(fi)\s*$/) { } |
|
|
22 |
144 |
elsif ($cmd =~ /^\s*(while)\s+.*?;\s*do\s*$/ or $cmd =~ /^\s*(until)\s+.*?;\s*do\s*$/ or $cmd =~ /^\s*(for)\s+.*?;\s*do\s*$/ or $cmd =~ /^\s*(done)\s*$/) { } |
|
408
|
2 |
4 |
if ($flow eq 'if') { } |
|
|
2 |
2 |
elsif ($flow eq 'fi') { } |
|
426
|
11 |
11 |
if ($flow eq 'while' or $flow eq 'until' or $flow eq 'for') { } |
|
445
|
0 |
112 |
if (exists $self->{'cmd'}{$cmd_num}{$opt}) |
|
451
|
0 |
28 |
if $err |
|
457
|
57 |
15 |
unless @flow |
|
472
|
0 |
13 |
if ($flow ne $curr_flow) |
|
484
|
0 |
2 |
if ($flow ne $curr_flow) |
|
493
|
0 |
57 |
if $self->{'err'} |
|
495
|
0 |
57 |
if ($curr_flow) |
|
508
|
0 |
57 |
if ($self->_cmd_valid_script) |
|
519
|
24 |
33 |
if $self->{'g'}{'mode'} eq 'dry-run' |
|
526
|
0 |
33 |
unless ($tmp_script) |
|
533
|
33 |
0 |
if ($out->open("> $tmp_script")) { } |
|
541
|
29 |
4 |
if ($self->{'g'}{'mode'} eq 'run') |
|
545
|
0 |
29 |
unless ($self->{'g'}{'tmp_script_keep'}) |
|
559
|
4 |
0 |
if ($self->{'g'}{'out'} and $self->{'g'}{'err'}) { } |
|
|
0 |
0 |
elsif ($self->{'g'}{'out'}) { } |
|
|
0 |
0 |
elsif ($self->{'g'}{'err'}) { } |
|
572
|
0 |
4 |
unless ($self->{'g'}{'tmp_script_keep'}) |
|
576
|
4 |
0 |
if $stdout |
|
577
|
4 |
0 |
if $stderr |
|
607
|
5 |
52 |
if ($self->{'g'}{'simple'}) |
|
617
|
1 |
4 |
if $self->{'g'}{'simple'} eq 'simple' |
|
640
|
5 |
56 |
if ($simple) { } |
|
646
|
5 |
56 |
if ($simple) { } |
|
695
|
56 |
5 |
unless $simple |
|
714
|
5 |
56 |
if ($simple) { } |
|
760
|
24 |
33 |
if ($self->{'g'}{'mode'} eq 'dry-run') { } |
|
762
|
1 |
23 |
if ($self->{'g'}{'script'} eq 'simple') { } |
|
|
2 |
21 |
elsif ($self->{'g'}{'s_type'} eq 'run' and $self->{'g'}{'failure'} eq 'display') { } |
|
772
|
2 |
31 |
if ($self->{'g'}{'s_type'} eq 'run' and $self->{'g'}{'failure'} eq 'display') { } |
|
785
|
29 |
28 |
if ($self->{'g'}{'mode'} eq 'run') { } |
|
796
|
1 |
56 |
if ($self->{'g'}{'s_type'} eq 'simple') { } |
|
815
|
56 |
1 |
if ($self->{'g'}{'s_type'} eq 'run' or $self->{'g'}{'s_type'} eq 'script') { } |
|
818
|
52 |
4 |
if ($self->{'g'}{'output'} eq 'both') { } |
|
|
1 |
3 |
elsif ($self->{'g'}{'output'} eq 'merged') { } |
|
|
1 |
2 |
elsif ($self->{'g'}{'output'} eq 'stdout') { } |
|
|
1 |
1 |
elsif ($self->{'g'}{'output'} eq 'stderr') { } |
|
|
1 |
0 |
elsif ($self->{'g'}{'output'} eq 'quiet') { } |
|
866
|
28 |
162 |
if ($self->{'cmd'}{$cmd_num}{'flow'}) { } |
|
878
|
13 |
15 |
if ($type eq 'open') { } |
|
|
2 |
13 |
elsif ($type eq 'cont') { } |
|
897
|
6 |
156 |
if ($n > 1) { } |
|
945
|
16 |
146 |
if $self->{'c'}{'c_retries'} and not $self->{'c'}{'simp'} |
|
996
|
184 |
16 |
unless ($self->{'c'}{'simp'}) |
|
997
|
156 |
28 |
unless ($self->{'c'}{'c_flow'}) |
|
1050
|
28 |
172 |
if ($self->{'c'}{'c_flow'}) { } |
|
|
16 |
156 |
elsif ($self->{'c'}{'simp'}) { } |
|
1102
|
0 |
16 |
$label ? : |
|
1112
|
0 |
190 |
$cmd_num > 200 ? : |
|
1116
|
18 |
172 |
$self->{'cmd'}{$cmd_num}{'retry'} ? : |
|
1119
|
0 |
190 |
$self->{'cmd'}{$cmd_num}{'sleep'} ? : |
|
1125
|
182 |
8 |
$self->{'cmd'}{$cmd_num}{'noredir'} || $simple || !$self->{'g'}{'redir'} ? : |
|
1127
|
8 |
182 |
$self->{'cmd'}{$cmd_num}{'check'} ? : |
|
1131
|
0 |
190 |
$self->{'cmd'}{$cmd_num}{'dir'} ? : |
|
1134
|
0 |
190 |
if $self->{'c'}{'c_retries'} == 1 |
|
1137
|
16 |
174 |
if $simple |
|
1139
|
28 |
162 |
$self->{'cmd'}{$cmd_num}{'flow'} ? : |
|
1145
|
0 |
190 |
if (not $cmd_num) { } |
|
|
184 |
6 |
elsif ($n == 1) { } |
|
1165
|
65 |
119 |
$label ? : |
|
1213
|
4161 |
9863 |
if ($tagstr =~ /^(.*?)=(.*)$/) { } |
|
1215
|
514 |
3647 |
if ($self->_tagval($tag) eq $req) { } |
|
1216
|
68 |
446 |
if $not |
|
1218
|
3131 |
516 |
unless $not |
|
1223
|
968 |
8895 |
if ($self->_tagval($tag)) { } |
|
1224
|
473 |
495 |
if $not |
|
1226
|
4656 |
4239 |
unless $not |
|
1237
|
1139 |
4666 |
unless ($cmd) |
|
1243
|
897 |
3769 |
if $line_ind eq '' |
|
1245
|
844 |
3822 |
if ($len > $line_ind) { } |
|
|
860 |
2962 |
elsif ($len < $line_ind) { } |
|
1263
|
8220 |
6875 |
if (exists $self->{'c'}{$tag}) { } |
|
|
4769 |
2106 |
elsif (exists $self->{'g'}{$tag}) { } |
|
1269
|
2106 |
12989 |
unless defined $val |
|
1285
|
121 |
1798 |
$self->{'g'}{'ind_cur_lev'} == 0 ? : |
|
1302
|
0 |
931 |
if $self->{'g'}{'ind_cur_lev'} < 0 |
|
1312
|
8 |
1 |
if ($ENV{'SHELL_CMD_TESTING'}) |
|
1316
|
1 |
0 |
$err ? : |
|
1317
|
1 |
0 |
$err ? : |
|
1380
|
0 |
28 |
unless ($out_hdr =~ /^\#SC CMD (\d+)\.(\d+)$/) |
|
1389
|
10 |
56 |
if ($out[0] =~ /^\#SC TRY (\d+)$/) { } |
|
|
12 |
44 |
elsif ($out[0] =~ /^\#SC EXIT $cmd_num\.$alt_num (\d+)$/) { } |
|
1402
|
25 |
3 |
if not defined $output[$#output] or $output[$#output] eq '' |
|
1472
|
12 |
8 |
if ($alt_next <= 1 and $try_next == 0) |
|
1491
|
4 |
4 |
if ($cmd_next == $cmd_curr and $alt_next == $alt_curr + 1 and $try_next == $try_curr) |
|
1506
|
4 |
0 |
if ($cmd_next == $cmd_curr and $alt_next <= 1 and $try_next == $try_curr + 1) |
|
1543
|
0 |
0 |
unless (@hosts) |
|
1548
|
0 |
0 |
if ($self->_cmd_valid_script) |
|
1559
|
0 |
0 |
if $self->{'g'}{'mode'} eq 'dry-run' |
|
1566
|
0 |
0 |
unless ($tmp_script) |
|
1573
|
0 |
0 |
if ($out->open("> $tmp_script")) { } |
|
1585
|
0 |
0 |
if ($self->{'g'}{'ssh_num'} == 1) { } |
|
1591
|
0 |
0 |
unless ($self->{'g'}{'tmp_script_keep'}) |
|
1613
|
0 |
0 |
$self->{'g'}{'ssh_num'} ? : |
|
1622
|
0 |
0 |
if $stdout |
|
1623
|
0 |
0 |
if $stderr |
|
1629
|
0 |
0 |
if $manager->start |
|
1647
|
0 |
0 |
unless $ssh->scp_put($script_loc, $script_rem) |
|
1653
|
0 |
0 |
if ($self->{'g'}{'ssh_sleep'}) |
|
1655
|
0 |
0 |
if ($n < 0) { } |
|
1666
|
0 |
0 |
if ($self->{'g'}{'mode'} eq 'run') |
|
1670
|
0 |
0 |
unless ($self->{'g'}{'ssh_script_keep'}) |
|
1682
|
0 |
0 |
if ($self->{'g'}{'err'}) { } |
|
|
0 |
0 |
elsif ($self->{'g'}{'out'}) { } |
|
1684
|
0 |
0 |
unless $self->{'g'}{'out'} |
|
1693
|
0 |
0 |
unless ($self->{'g'}{'ssh_script_keep'}) |
|
1705
|
0 |
47 |
exists $options{'host'} ? : |
|
1706
|
47 |
0 |
exists $options{'output'} ? : |
|
1707
|
47 |
0 |
exists $options{'command'} ? : |
|
1709
|
0 |
47 |
unless ($type =~ /^(stdout|stderr|command|num|label|exit)$/) |
|
1718
|
0 |
47 |
if ($host) |
|
1720
|
0 |
0 |
unless (@all) |
|
1729
|
0 |
0 |
if ($host eq 'all' or $host =~ /,/) |
|
1731
|
0 |
0 |
$host eq 'all' ? : |
|
1736
|
0 |
0 |
unless (exists $self->{'s'}{$host}) |
|
1748
|
0 |
0 |
unless (exists $self->{'s'}{$host}) |
|
1770
|
47 |
0 |
exists $output->{'out'} ? : |
|
1771
|
47 |
0 |
exists $output->{'err'} ? : |
|
1772
|
0 |
47 |
$no > $ne ? : |
|
1774
|
6 |
41 |
if ($cmd eq 'curr') { } |
|
|
1 |
40 |
elsif ($cmd eq 'next') { } |
|
|
19 |
21 |
elsif ($cmd eq 'all') { } |
|
|
15 |
6 |
elsif ($cmd eq 'fail') { } |
|
|
6 |
0 |
elsif ($cmd =~ /^\d+$/) { } |
|
1788
|
30 |
0 |
if (exists $output->{'out'} and defined $output->{'out'}[$i]) { } |
|
|
0 |
0 |
elsif (exists $output->{'err'} and defined $output->{'err'}[$i]) { } |
|
1789
|
9 |
21 |
if ($output->{'out'}[$i][1]) |
|
1795
|
0 |
0 |
if ($output->{'err'}[$i][1]) |
|
1806
|
12 |
0 |
if (exists $output->{'out'} and defined $output->{'out'}[$i]) { } |
|
|
0 |
0 |
elsif (exists $output->{'err'} and defined $output->{'err'}[$i]) { } |
|
1807
|
6 |
6 |
if ($output->{'out'}[$i][0] eq $cmd) |
|
1812
|
0 |
0 |
if ($output->{'err'}[$i][0] eq $cmd) |
|
1822
|
0 |
0 |
if (exists $output->{'out'} and defined $output->{'out'}[$i]) { } |
|
|
0 |
0 |
elsif (exists $output->{'err'} and defined $output->{'err'}[$i]) { } |
|
1824
|
0 |
0 |
if ($self->{'cmd'}{$n}{'label'} eq $cmd) |
|
1830
|
0 |
0 |
if ($self->{'cmd'}{$n}{'label'} eq $cmd) |
|
1837
|
6 |
41 |
unless @c |
|
1846
|
14 |
54 |
if ($type eq 'stdout') { } |
|
|
4 |
50 |
elsif ($type eq 'stderr') { } |
|
|
14 |
36 |
elsif ($type eq 'command') { } |
|
|
15 |
21 |
elsif ($type eq 'num') { } |
|
|
7 |
14 |
elsif ($type eq 'label') { } |
|
|
14 |
0 |
elsif ($type eq 'exit') { } |
|
1848
|
14 |
0 |
if (exists $output->{'out'} and defined $output->{'out'}[$i]) |
|
1862
|
4 |
0 |
if (exists $output->{'err'} and defined $output->{'err'}[$i]) |
|
1876
|
14 |
0 |
if (exists $output->{'out'} and defined $output->{'out'}[$i]) { } |
|
|
0 |
0 |
elsif (exists $output->{'err'} and defined $output->{'err'}[$i]) { } |
|
1885
|
15 |
0 |
if (exists $output->{'out'} and defined $output->{'out'}[$i]) { } |
|
|
0 |
0 |
elsif (exists $output->{'err'} and defined $output->{'err'}[$i]) { } |
|
1894
|
7 |
0 |
if (exists $output->{'out'} and defined $output->{'out'}[$i]) { } |
|
|
0 |
0 |
elsif (exists $output->{'err'} and defined $output->{'err'}[$i]) { } |
|
1903
|
14 |
0 |
if (exists $output->{'out'} and defined $output->{'out'}[$i]) { } |
|
|
0 |
0 |
elsif (exists $output->{'err'} and defined $output->{'err'}[$i]) { } |