File Coverage

blib/lib/Podman/Containers.pm

Criterion	Covered	Total	%
statement	20	27	74.0
branch	2	6	33.3
condition	1	3	33.3
subroutine	5	6	83.3
pod	2	2	100.0
total	30	44	68.1

package Podman::Containers;

use Mojo::Base 'Podman::Client';

use Mojo::Collection qw(c);
use Scalar::Util qw(blessed);

use Podman::Container;

has 'names_only' => undef;

sub list {
  my $self = shift;

  if (!blessed($self)) {
    $self = __PACKAGE__->new();
    my %opts = @_;
    $self->names_only($opts{names_only});
  }

  my $containers = $self->get('containers/json', parameters => {all => 1})->json;
  my @list = map {
    my $name = $_->{Names}->[0] || $_->{Id};
    $self->names_only ? $name : Podman::Container->new(name => $name);
  } @{$containers};

  return c(@list);
}

sub prune {
  my $self = shift;

  $self = __PACKAGE__->new() unless blessed($self);

  $self->post('containers/prune');

  return 1;
}

1;

__END__