File Coverage

blib/lib/FileMetadata/Miner/Ext.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package FileMetadata::Miner::Ext;

our $VERSION = '0.1';

use strict;
use XML::Simple;

sub new {

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

  my $config = shift;

  # Obtain the file suffix to look for from the config

  if (exists $config->{'suffix'}) {
    $self->{'ext'} = $config->{'suffix'};
  } else {
    $self->{'ext'} = '.ext';
  }

  return $self;

}

sub mine {

  my ($self, $path, $meta) = @_;

  # Get the file path for the XML file to examine

  $path = $path . $self->{'ext'};

  if (-f $path && -r $path) {

    my $ext = XMLin ($path);

    while (my ($key, $value) = each (%{$ext})) {

      $meta->{ref ($self) . "::$key"} = $value;

    }
  }

  # If file cannot be opened, we still return true

  return 1;
}

1;

__END__