File Coverage

blib/lib/Podman/Containers.pm

Criterion	Covered	Total	%
statement	20	27	74.0
branch	2	6	33.3
condition	1	2	50.0
subroutine	5	6	83.3
pod	2	2	100.0
total	30	43	69.7

package Podman::Containers;

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

use Mojo::Collection;
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 $images = $self->get('containers/json', parameters => {all => 1},)->json;

  my @list = map {
    my $name = $_->{Names}->[0] || 'none';
    $self->names_only ? $name : Podman::Container->new(name => $name);
  } @{$images};

  return Mojo::Collection->new(@list);
}

sub prune {
  my $self = shift;

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

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

  return 1;
}

1;

__END__