added base pod to all probes

[scpubgit/System-Introspector.git] / lib / System / Introspector / DiskUsage.pm

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

sub gather {
    my ($self) = @_;
    my @lines = `df -aP`;
    shift @lines; # header
    chomp @lines;
    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;
    }
    return \@rows;
}

1;

__END__

=head1 NAME

System::Introspector::DiskUsage - Gather disk space usage data

=head1 DESCRIPTION

Uses C<df> to get data about current disk usage.

=head1 SEE ALSO

=over

=item L<System::Introspector>

=back

=cut