File Coverage

blib/lib/Catmandu/Importer/SRU/Parser.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 Catmandu::Importer::SRU::Parser;

use Moo;
use XML::LibXML::Simple qw(XMLin);

sub parse {
	my ($self,$record) = @_;

	return unless defined $record;

	# By default we use XML::LibXML::Simple to keep backwards compatible...
    my $xs = XML::LibXML::Simple->new();
    $record->{recordData} = $xs->XMLin($record->{recordData} , KeepRoot => 1, NsStrip => 1);

    $record;
}

=head1 NAME

  Catmandu::Importer::SRU::Parser - Package transforms SRU responses into Perl

=head1 SYNOPSIS

  package MyParser;

  use Moo;

  sub parse {
	my ($self,$record) = @_;
	my $schema  = $record->{recordSchema};
	my $packing = $record->{recordPacking};
	my $data    = $record->{recordData};

	... do some magic...

	return $perl_hash;
  }

=head1 DESCRIPTION

Catmandu::Importer::SRU can optionally include a parser to transform the
returned records from SRU requests.  Any such parser needs to implement one
instance method 'parse' which receives an SRU-record and returns a perl hash;

=head1 AUTHOR

Patrick Hochstenbach, C<< <patrick.hochstenbach at ugent.be> >>

=cut

1;