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