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 return { disk_usage => \@rows };
37 System::Introspector::DiskUsage - Gather disk space usage data
41 Uses C<df> to get data about current disk usage.
47 =item L<System::Introspector>