| line |
true |
false |
branch |
|
156
|
0 |
0 |
if debug() |
|
158
|
0 |
0 |
unless my $return = open(CMD, "$string 2>&1 |") |
|
160
|
0 |
0 |
if (debug()) { } |
|
164
|
0 |
0 |
wantarray ? : |
|
184
|
0 |
0 |
unless ((shift())->_getchangerparms)[0] |
|
185
|
0 |
0 |
unless ((shift())->_getchangerparms)[1] |
|
186
|
0 |
0 |
unless ((shift())->_getchangerparms)[2] |
|
187
|
0 |
0 |
unless ((shift())->_getchangerparms)[3] |
|
188
|
0 |
0 |
unless ((shift())->_getchangerparms)[4] |
|
195
|
0 |
0 |
unless ($? eq 0) |
|
200
|
0 |
0 |
if (/^Data Transfer Element/) { } |
|
203
|
0 |
0 |
if (/\(Storage Element (\d+) Loaded\).*$/) |
|
208
|
0 |
0 |
if (/^\s*Storage Element \d+/) |
|
209
|
0 |
0 |
if (m[^\s*Storage Element \d+ IMPORT/EXPORT:]) |
|
232
|
0 |
0 |
unless ($? eq 0) |
|
234
|
0 |
0 |
if (/^\s*Storage Element (\d+)(\s([^:]*))*:([^(:|\s)]*)\s*(:VolumeTag=([^\s]*))*.*/) |
|
255
|
0 |
0 |
unless ($? eq 0) |
|
257
|
0 |
0 |
if (/Data Transfer Element (\d+):([^\s|\(]*)(\s*\(Storage Element (\d+) Loaded\))*(:VolumeTag = ([^\s]*))*.*/) |
|
289
|
0 |
0 |
if (lc $slot eq 'current') { } |
|
|
0 |
0 |
elsif (lc $slot eq 'prev') { } |
|
|
0 |
0 |
elsif (lc $slot eq 'next') { } |
|
|
0 |
0 |
elsif (lc $slot eq 'first') { } |
|
|
0 |
0 |
elsif (lc $slot eq 'last') { } |
|
|
0 |
0 |
elsif (lc $slot =~ /^(\d+)$/) { } |
|
297
|
0 |
0 |
unless $self->checkdrive |
|
305
|
0 |
0 |
if $slot eq $loaded |
|
306
|
0 |
0 |
if $self->_ejectdrive |
|
|
0 |
0 |
if ($loaded) |
|
308
|
0 |
0 |
if $loaded |
|
309
|
0 |
0 |
$slot ? : |
|
358
|
0 |
0 |
if ($slots{$from}[1] eq 'Empty') |
|
362
|
0 |
0 |
if ($slots{$to}[1] eq 'Full') |
|
380
|
0 |
0 |
unless ($? eq 0) |
|
384
|
0 |
0 |
if (/^\s*Storage Element (\d+)[^:]*:Full :VolumeTag=$tag/) |
|
386
|
0 |
0 |
unless $slot |
|
400
|
0 |
0 |
unless ($? eq 0) |
|
404
|
0 |
0 |
if (/^\s*Storage Element ${slot}[^:]*:Full :VolumeTag=(.*)/) |
|
421
|
0 |
0 |
unless ($? eq 0) |
|
425
|
0 |
0 |
if (/^Data Transfer Element (\d+):Full (Storage Element \d+ Loaded):VolumeTag = $tag/) |
|
441
|
0 |
0 |
unless ($? eq 0) |
|
445
|
0 |
0 |
if (/^Data Transfer Element $drive:Full \(Storage Element \d+ Loaded\):VolumeTag = ([^\s]*)/) |
|
461
|
0 |
0 |
if ($loaded) { } |
|
464
|
0 |
0 |
$? ? : |
|
473
|
0 |
0 |
unless $loaded |
|
474
|
0 |
0 |
if ($TapeChanger::MTX::EJECT) |
|
476
|
0 |
0 |
if ($? ne 0) |
|
477
|
0 |
0 |
unless $RETURN[0] =~ /no tape/ |
|
510
|
0 |
0 |
unless $? |
|
546
|
0 |
0 |
unless (-x $TapeChanger::MTX::MTX) |
|
547
|
0 |
0 |
unless (-x $TapeChanger::MTX::MT) |
|
548
|
0 |
0 |
unless (-r $TapeChanger::MTX::DRIVE) |
|
549
|
0 |
0 |
unless (-w $TapeChanger::MTX::DRIVE) |
|
550
|
0 |
0 |
unless (-r $TapeChanger::MTX::CONTROL) |
|
551
|
0 |
0 |
unless (-w $TapeChanger::MTX::CONTROL) |
|
553
|
0 |
0 |
scalar @problems ? : |
|
566
|
0 |
1 |
if (-f $file) { } |
|
568
|
0 |
0 |
unless ($return) |
|
569
|
0 |
0 |
if $@ |
|
570
|
0 |
0 |
unless defined $return |
|
571
|
0 |
0 |
unless $return |
|
577
|
0 |
0 |
$TapeChanger::MTX::DEBUG > 0 ? : |
|
578
|
0 |
0 |
$TapeChanger::MTX::DEBUG < 0 ? : |