CPAN::Groonga

f->names_only($opts{names_only});
  }

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

    $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};
 

 shift;

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

  my $data = $self->get('system/df')->json;

  my %disk_usage;
  for my $type (qw(Volumes Containers Images)) {
    my @data  = @{$data->{$t

f);

  return $self->get('info')->json;
}

sub version {
  my $self = shift;

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

  my $data = $self->get('info')->json;

  my $version = $data->{version

 shift;

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

  return $self->post('system/prune')->json;
}

1;

__END__

=encoding utf8

=head1 NAME

Podman::System - Service information.

=head1 SYNOP

}

sub inspect {
  my $self = shift;

  my $data   = $self->get(sprintf "containers/%s/json", $self->name)->json;
  my $status = $data->{State}->{Status};
  $status = $status eq 'configured' ? 'creat

{
  my $self = shift;

  my $data  = $self->get('containers/stats', parameters => {stream => 0})->json;
  my $stats = first { $_->{Name} eq $self->name } @{$data->{Stats}};

  return unless $stats;
  

stemd {
  my $self = shift;

  my $data = $self->get(sprintf "generate/%s/systemd", $self->name)->json;

  return (values %{$data})[0];
}

for my $name (qw(pause restart start stop unpause)) {
  Mojo:

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 => $d

se English qw( -no_match_vars );
use Mojo::Asset::File;
use Mojo::Asset::Memory;
use Mojo::JSON qw(encode_json);
use Mojo::URL;
use Mojo::UserAgent;
use Mojo::Util qw(url_escape);

use Podman::Excepti

>res->is_success;

  $tx = $self->_ua->get($base_url->path('version'));
  my $version = $tx->res->json->{Components}->[0]->{Details}->{APIVersion};

  say {*STDERR} "Potential insufficient supported P

 ? Mojo::Asset::File->new(path => $opts{data})
      : Mojo::Asset::Memory->new->add_chunk(encode_json($opts{data}));
    $tx->req->content->asset($asset);
  }
  $tx = $self->_ua->start($tx);

  Podma