File Coverage

blib/lib/System/Introspector/Probe/DiskUsage.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	26	28	92.8

package System::Introspector::Probe::DiskUsage;
use Moo;

use System::Introspector::Util qw(
    lines_from_command
    transform_exceptions
);

sub gather {
    my ($self) = @_;
    return transform_exceptions {
        my @lines = lines_from_command ['df', '-aP'];
        shift @lines; # header
        my @rows;
        for my $line (@lines) {
            my %row;
            @row{qw(
                filesystem
                blocks_1024
                used
                available
                capacity
                mount_point
            )} = split m{\s+}, $line;
            push @rows, \%row;
        }
        no warnings 'uninitialized';
        return { disk_usage => [ sort {
            ($a->{filesystem} cmp $b->{filesystem})
            ||
            ($a->{mount_point} cmp $b->{mount_point})
        } @rows ] };
    };
}

1;

__END__