1 package MojoFacets::Import::Log;
8 use Data::Dump qw(dump);
10 __PACKAGE__->attr('full_path');
17 my $path = $self->full_path;
19 my $data = { items => [] };
23 @header = qw(Filesystem 1K-blocks Used Available Use% Mounted-on) if $path =~ m/date-df/;
25 open(my $fh, $path) || die "$path: $!";
31 my @v = split(/\s/, $_);
34 foreach my $i ( 0 .. $#v ) {
35 $item->{ $header[$i] || "f_$i" } = [ $v[$i] ];
37 push @{ $data->{items} }, $item;
40 $data->{header} = [ @header ];