1 package System::Introspector::DiskUsage;
4 use System::Introspector::Util qw(
11 return transform_exceptions {
12 my @lines = lines_from_command ['df', '-aP'];
13 shift @lines; # header
15 for my $line (@lines) {
24 )} = split m{\s+}, $line;
27 no warnings 'uninitialized';
28 return { disk_usage => [ sort {
29 ($a->{filesystem} cmp $b->{filesystem})
31 ($a->{mount_point} cmp $b->{mount_point})
42 System::Introspector::DiskUsage - Gather disk space usage data
46 Uses C<df> to get data about current disk usage.
52 =item L<System::Introspector>