File Coverage

lib/Rex/Virtualization/Docker/delete.pm
Criterion Covered Total %
statement 11 21 52.3
branch 0 6 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 15 33 45.4


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Virtualization::Docker::delete;
6              
7 1     1   14 use v5.12.5;
  1         6  
8 1     1   6 use warnings;
  1         2  
  1         41  
9              
10             our $VERSION = '1.14.2.2'; # TRIAL VERSION
11              
12 1     1   5 use Rex::Logger;
  1         8  
  1         26  
13 1     1   27 use Rex::Helper::Run;
  1         2  
  1         198  
14              
15             sub execute {
16 0     0 0   my ( $class, $arg1, %opt ) = @_;
17              
18 0 0         unless ($arg1) {
19 0           die("You have to define the container ID!");
20             }
21              
22 0           my $dom = $arg1;
23 0           Rex::Logger::debug("deleteing container $dom");
24              
25 0 0         unless ($dom) {
26 0           die("VM $dom not found.");
27             }
28              
29 0           i_run "docker rm \"$dom\"", fail_ok => 1;
30 0 0         if ( $? != 0 ) {
31 0           die("Error deleteing container $dom");
32             }
33              
34             }
35              
36             1;