1# 2# (c) Jan Gehring <jan.gehring@gmail.com> 3# 4# vim: set ts=2 sw=2 tw=0: 5# vim: set expandtab: 6 7package Rex::Virtualization::Docker::status; 8 9use 5.010001; 10use strict; 11use warnings; 12 13our $VERSION = '1.13.4'; # VERSION 14 15use Data::Dumper; 16use Rex::Virtualization::Docker::list; 17 18sub execute { 19 my ( $class, $arg1, %opt ) = @_; 20 21 my $vms = Rex::Virtualization::Docker::list->execute("all"); 22 23 my ($vm) = grep { $_->{name} eq $arg1 } @{$vms}; 24 return "stopped" unless $vm; 25 26 if ( $vm->{status} =~ m/exited/i ) { 27 return "stopped"; 28 } 29 else { 30 return "running"; 31 } 32} 33 341; 35