| line |
true |
false |
branch |
|
75
|
0 |
0 |
unless $self->brik_help_run_undef_arg('command', $command) |
|
84
|
0 |
0 |
unless my $lines = $self->command('list vms') |
|
97
|
0 |
0 |
unless $self->brik_help_run_undef_arg('register', $vbox) |
|
98
|
0 |
0 |
unless $self->brik_help_run_file_not_found('register', $vbox) |
|
100
|
0 |
0 |
unless ($vbox =~ /\.vbox$/) |
|
112
|
0 |
0 |
unless $self->brik_help_run_undef_arg('start', $name) |
|
113
|
0 |
0 |
unless $self->brik_help_run_undef_arg('start', $type) |
|
115
|
0 |
0 |
if ($self->is_started($name)) |
|
132
|
0 |
0 |
unless $self->brik_help_run_undef_arg('stop', $name) |
|
134
|
0 |
0 |
if ($self->is_stopped($name)) |
|
145
|
0 |
0 |
unless $self->brik_help_run_undef_arg('save', $name) |
|
154
|
0 |
0 |
unless $self->brik_help_run_undef_arg('pause', $name) |
|
163
|
0 |
0 |
unless $self->brik_help_run_undef_arg('resume', $name) |
|
172
|
0 |
0 |
unless $self->brik_help_run_undef_arg('snapshot_list', $name) |
|
176
|
0 |
0 |
if ($self->log->level > 1) |
|
181
|
0 |
0 |
if ($? != 0) |
|
187
|
0 |
0 |
if ($line =~ /^\s*Name:/) |
|
189
|
0 |
0 |
if (defined $descr and defined $id) |
|
191
|
0 |
0 |
if ($line =~ /\*$/) |
|
212
|
0 |
0 |
unless $self->brik_help_run_undef_arg('snapshot_live', $name) |
|
213
|
0 |
0 |
unless $self->brik_help_run_undef_arg('snapshot_live', $snapshot_name) |
|
217
|
0 |
0 |
if ($self->log->level > 1) |
|
221
|
0 |
0 |
if ($? != 0) |
|
232
|
0 |
0 |
unless $self->brik_help_run_undef_arg('snapshot_delete', $name) |
|
233
|
0 |
0 |
unless $self->brik_help_run_undef_arg('snapshot_delete', $snapshot_name) |
|
238
|
0 |
0 |
if ($? != 0) |
|
249
|
0 |
0 |
unless $self->brik_help_run_undef_arg('snapshot_restore', $name) |
|
250
|
0 |
0 |
unless $self->brik_help_run_undef_arg('snapshot_restore', $snapshot_name) |
|
260
|
0 |
0 |
unless $self->brik_help_run_undef_arg('screenshot', $name) |
|
262
|
0 |
0 |
unless $self->command(qq[controlvm "$name" screenshotpng "$output"]) |
|
275
|
0 |
0 |
unless $self->brik_help_run_undef_arg('dumpguestcore', $name) |
|
277
|
0 |
0 |
if (-f $output) |
|
278
|
0 |
0 |
unless my $sf = 'Metabrik::System::File'->new_from_brik_init($self) |
|
279
|
0 |
0 |
unless $sf->remove($output) |
|
282
|
0 |
0 |
unless $self->command(qq[debugvm "$name" dumpguestcore --filename "$output"]) |
|
296
|
0 |
0 |
unless $self->brik_help_run_undef_arg('dumpvmcore', $name) |
|
298
|
0 |
0 |
if (-f $output) |
|
299
|
0 |
0 |
unless my $sf = 'Metabrik::System::File'->new_from_brik_init($self) |
|
300
|
0 |
0 |
unless $sf->remove($output) |
|
303
|
0 |
0 |
unless $self->command(qq[debugvm "$name" dumpvmcore --filename "$output"]) |
|
317
|
0 |
0 |
unless $self->brik_help_run_undef_arg('extract_memdump_from_dumpguestcore', $input) |
|
319
|
0 |
0 |
unless my $fraw = 'Metabrik::File::Raw'->new_from_brik_init($self) |
|
320
|
0 |
0 |
unless my $fread = 'Metabrik::File::Read'->new_from_brik_init($self) |
|
321
|
0 |
0 |
unless my $felf = 'Metabrik::File::Readelf'->new_from_brik_init($self) |
|
323
|
0 |
0 |
unless my $headers = $felf->program_headers($input) |
|
328
|
0 |
0 |
if ($section->{'type'} eq 'LOAD') |
|
334
|
0 |
0 |
unless ($offset and $size) |
|
341
|
0 |
0 |
unless my $fdin = $fread->open($input) |
|
342
|
0 |
0 |
unless $fread->seek($offset) |
|
344
|
0 |
0 |
if (-f $output) |
|
345
|
0 |
0 |
unless my $sf = 'Metabrik::System::File'->new_from_brik_init($self) |
|
346
|
0 |
0 |
unless $sf->remove($output) |
|
350
|
0 |
0 |
unless my $fdout = $fraw->open($output) |
|
353
|
0 |
0 |
if ($written + $this <= $size) { } |
|
359
|
0 |
0 |
if ($rest < 0) |
|
378
|
0 |
0 |
unless $self->brik_help_run_undef_arg('restart', $name) |
|
380
|
0 |
0 |
unless $self->stop($name) |
|
389
|
0 |
0 |
unless $self->brik_help_run_undef_arg('info', $name) |
|
391
|
0 |
0 |
unless my $lines = $self->command(qq[showvminfo "$name"]) |
|
394
|
0 |
0 |
if (@$lines > 0) |
|
399
|
0 |
0 |
unless defined $v |
|
404
|
0 |
0 |
if (length $k and length $v) |
|
420
|
0 |
0 |
unless $self->brik_help_run_undef_arg('is_started', $name) |
|
422
|
0 |
0 |
unless my $info = $self->info($name) |
|
424
|
0 |
0 |
if ($state =~ /running/) |
|
435
|
0 |
0 |
unless $self->brik_help_run_undef_arg('is_stopped', $name) |
|
444
|
0 |
0 |
unless $self->brik_help_run_undef_arg('get_current_snapshot_id', $name) |
|
446
|
0 |
0 |
unless my $list = $self->snapshot_list($name) |
|
449
|
0 |
0 |
if ($this->{'current'}) |
|
461
|
0 |
0 |
unless $self->brik_help_run_undef_arg('reset_vboxnet', $device) |
|
463
|
0 |
0 |
unless my $lines1 = $self->command("hostonlyif remove $device") |
|
464
|
0 |
0 |
unless my $lines2 = $self->command('hostonlyif create') |