File Coverage

blib/lib/Podman/Image.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch			n/a
condition	2	4	50.0
subroutine	8	8	100.0
pod	3	4	75.0
total	52	55	94.5

package Podman::Image;

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

use Archive::Tar;
use Exporter qw(import);
use Mojo::File qw(path tempfile);

our @EXPORT_OK = qw(build pull);

has 'name' => sub { return '' };

sub build {
  my ($name, $file, %options) = @_;

  my $self = __PACKAGE__->new;

  my $dir   = path($file)->dirname;
  my @files = map { $_->basename } @{path($dir)->list({dir => 1})->to_array};

  chdir $dir;
  my $archive = Archive::Tar->new();
  $archive->add_files(@files);

  my $archive_file = tempfile;
  $archive->write($archive_file);

  $self->post(
    'build',
    data       => $archive_file,
    parameters => {'file'         => path($file)->basename, 't' => $name, %options},
    headers    => {'Content-Type' => 'application/x-tar'},
  );
  $self->get(sprintf "images/%s/exists", $name);

  return $self->name($name);
}

sub pull {
  my ($name, $tag, %options) = @_;

  my $self = __PACKAGE__->new;

  my $reference = sprintf "%s:%s", $name, $tag // 'latest';

  $self->post('images/pull', parameters => {reference => $reference, tlsVerify => 1, %options});
  $self->get(sprintf "images/%s/exists", $name);

  return $self->name($name);
}

sub inspect {
  my $self = shift;

  my $data = $self->get(sprintf "images/%s/json", $self->name)->json;
  my $tag  = (split /:/, $data->{RepoTags}->[0])[1];

  return {Tag => $tag, Id => $data->{Id}, Created => $data->{Created}, Size => $data->{Size}};
}

sub remove {
  my ($self, $force) = @_;

  $self->delete('images', parameters => {images => $self->name, force => $force // 0});

  return 1;
}

1;

__END__