Podman::System

Provide system level information for the Podman service.

Attributes

has 'Client'; #16

Podman::Client API connector.

Methods

sub DiskUsage($Self); #41

Return information about disk usage for containers, images and volumes.

use Podman::Client;

my $System = Podman::System->new(Client => Podman::Client->new());

my $DiskUsage = $System->DiskUsage();
is(ref $DiskUsage, 'HASH', 'DiskUsage object ok.');

my @Keys = sort keys %{ $DiskUsage };
my @Expected = (
    'Containers',
    'Images',
    'Volumes',
);
is_deeply(\@Keys, \@Expected, 'DiskUsage object complete.');

sub Version($Self); #71

Obtain a dictionary of versions for the Podman components.

use Podman::Client;

my $System = Podman::System->new(Client => Podman::Client->new());

my $Version = $System->Version();
is(ref $Version, 'HASH', 'Version object ok.');
is($Version->{Version}, '3.0.1', 'Version number ok.');