File Coverage

blib/lib/FileMetadata/Miner/Stat.pm

Criterion	Covered	Total	%
statement	38	42	90.4
branch	13	18	72.2
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	59	68	86.7

package FileMetadata::Miner::Stat;

use strict;
use utf8;
use POSIX qw(strftime);
use Fcntl ':mode';

our $VERSION = '1.0';

sub new {

  my $self = {};
  bless $self, shift;
  my $config = shift;

  # Set the size units

  $self->{'size_format'} = '';
  if (defined $config->{'size'}) {
    die "Invalid 'size' format" unless $config->{'size'} =~ /^(MB|KB|bytes)$/;
      $self->{'size_format'} = $config->{'size'};
  }

  # Set the format for date

  if (defined $config->{'date'}) {
    $self->{'time_format'} = $config->{'date'};
  } else {
    $self->{'time_format'} = '%T-%D';
  }
  return $self;
}

sub mine {

  my ($self, $path, $meta) = @_;
  my $result = stat ($path);
  my $name = ref ($self); # For efficiency

  return $result unless $result; # Return on error

  # Generate size in the right format
  my $size = (stat (_))[7];

  if ($self->{'size_format'} eq 'MB') {
    $meta->{"$name"."::size"} = $size/ (1024*1024) . " MB";
  } elsif ($self->{'size_format'} eq 'KB') {
    $meta->{"$name"."::size"} = $size/ (1024) . " KB";
  } elsif ($self->{'size_format'} eq 'bytes') {
    $meta->{"$name"."::size"} = "$size bytes";
  } else {
    $meta->{"$name"."::size"} = $size;
  }

  # Generate times in the right format

  my $time_str = strftime ($self->{'time_format'},
			   localtime ((stat (_))[9]));
  $meta->{"$name"."::mtime"} = $time_str;
  $time_str = strftime ($self->{'time_format'},
			localtime ((stat (_))[10]));
  $meta->{"$name"."::ctime"} = $time_str;

  # Figure out the type of file

  if (S_ISREG ((stat (_))[2])) {
    $meta->{"$name\:\:type"} = 'REG'
  } elsif (S_ISDIR ((stat (_))[2])) {
    $meta->{"$name\:\:type"} = 'DIR'
  } else {
    $meta->{"$name\:\:type"} = 'OTHER'
  }

  return $result;
}

1;
__END__