File Coverage

blib/lib/Catmandu/AlephX/Op/FindDoc.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	8	62.5
pod	0	2	0.0
total	20	43	46.5

package Catmandu::AlephX::Op::FindDoc;
use Catmandu::Sane;
use Moo;
use Catmandu::AlephX;
use Catmandu::AlephX::Metadata::MARC::Aleph;
use Catmandu::AlephX::Record;

our $VERSION = "1.072";

with('Catmandu::AlephX::Response');

has record => (
  is => 'ro'
);

sub op { 'find-doc' }

sub parse {
  my($class,$str_ref,$args) = @_;
  my $doc_num = $args->{doc_num} || $args->{doc_number};

  $doc_num = Catmandu::AlephX->format_doc_num($doc_num);

  my $xpath = xpath($str_ref);
  my $op = op();

  my @metadata = ();

  __PACKAGE__->new(
    record => Catmandu::AlephX::Record->new(metadata => sub {
      my($oai_marc) = $xpath->find("/$op/record[1]/metadata/oai_marc")->get_nodelist();
      if($oai_marc){
        my $m = Catmandu::AlephX::Metadata::MARC::Aleph->parse($oai_marc);
        $m->data->{_id} = $doc_num;
        return $m;
      }
    }),
    session_id => $xpath->findvalue("/$op/session-id"),
    errors => $class->parse_errors($xpath),
    content_ref => $str_ref
  );

}

1;