| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless eval {
|
|
37
|
0 |
16 |
if ($cleanup_readmode)
|
|
43
|
0 |
0 |
if $ssh->error
|
|
53
|
0 |
0 |
unless open $fdperlmod, "<", $INC{'StorageDisplay/Collect.pm'}
|
|
58
|
0 |
0 |
if $line =~ /^__END__\s*$/
|
|
81
|
0 |
0 |
if ($!)
|
|
84
|
0 |
0 |
if (scalar @ready) { }
|
|
86
|
0 |
0 |
if ($fd == $out) { }
|
|
88
|
0 |
0 |
if (defined $line) { }
|
|
97
|
0 |
0 |
if (print $in $line) { }
|
|
108
|
0 |
0 |
if ($res == -1)
|
|
111
|
0 |
0 |
if ($res)
|
|
112
|
0 |
0 |
unless ($in_closed)
|
|
122
|
0 |
0 |
unless ($out_closed)
|
|
154
|
0 |
16 |
unless &GetOptions("d|data=s", \$data, "r|remote=s", \$remote, "o|output=s", \$output, "c|collect-only", \$collect, "record-file=s", \$recordfile, "replay-file=s", \$replayfile, "verbose", \$verbose, "h|help", \$help, "man", \$man)
|
|
166
|
1 |
15 |
if $help
|
|
167
|
1 |
14 |
if $man
|
|
169
|
0 |
7 |
if (defined $data and defined $remote || defined $recordfile || defined $replayfile)
|
|
177
|
0 |
7 |
if (defined $replayfile and defined $remote || defined $recordfile)
|
|
184
|
7 |
7 |
unless ($collect)
|
|
186
|
0 |
7 |
unless require StorageDisplay
|
|
191
|
7 |
7 |
if ($replayfile)
|
|
193
|
0 |
7 |
unless require StorageDisplay::Collect::CMD::Replay
|
|
195
|
0 |
7 |
unless open $dh, "<", $replayfile
|
|
212
|
0 |
14 |
if (defined $recordfile)
|
|
215
|
7 |
7 |
if (defined $data) { }
|
|
|
0 |
7 |
elsif (defined $remote) { }
|
|
|
0 |
7 |
elsif (not defined $infos) { }
|
|
217
|
0 |
7 |
unless open $dh, "<", $data
|
|
228
|
7 |
7 |
if (defined $contents)
|
|
238
|
0 |
14 |
if (defined $recordfile)
|
|
239
|
0 |
0 |
if (not exists $infos->{'recorder'}) { }
|
|
243
|
0 |
0 |
unless open $dh, ">", $recordfile
|
|
252
|
14 |
0 |
if (defined $output)
|
|
257
|
0 |
14 |
unless open STDOUT, ">", $output
|
|
260
|
7 |
7 |
if ($collect)
|