File Coverage

blib/lib/Podman/Images.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	1	2	50.0
total	29	44	65.9

package Podman::Images;

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

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

use Podman::Image;

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('images/json', parameters => {all => 1},)->json;
  my @list = map {
    my ($name) = split /:/, $_->{Names}->[0] || $_->{Id};
    $self->names_only ? $name : Podman::Image->new(name => $name);
  } @{$images};

  return c(@list);
}

sub prune {
  my $self = shift;

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

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

  return 1;
}

1;

__END__