File Coverage

blib/lib/METS/Parse/Simple.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	27	66.6

package METS::Parse::Simple;

use strict;
use warnings;

use Class::Utils qw(set_params);
use XML::Simple;

our $VERSION = 0.01;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Process parameters.
	set_params($self, @params);

	return $self;
}

# Parse XML data.
sub parse {
	my ($self, $mets_data) = @_;
	my $mets_hr = XMLin($mets_data);
	return $mets_hr;
}

1;

__END__