File Coverage

blib/lib/Podman/System.pm

Criterion	Covered	Total	%
statement	31	34	91.1
branch	5	10	50.0
condition			n/a
subroutine	6	7	85.7
pod	4	4	100.0
total	46	55	83.6

package Podman::System;

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

use List::Util qw(sum);
use Scalar::Util qw(blessed);

sub disk_usage {
  my $self = 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->{$type}};
    my %entry = (
      Total  => scalar @data,
      Active => sum(map { $_->{Containers} ? 1 : 0 } @data),
      Size   => sum(map { $_->{Size} } @data),
    );
    $disk_usage{$type} = \%entry;
  }

  return \%disk_usage;
}

sub info {
  my $self = shift;

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

  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};
  delete $version->{GitCommit};
  delete $version->{Built};

  return $version;
}

sub prune {
  my $self = shift;

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

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

1;

__END__