File Coverage

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

Criterion	Covered	Total	%
statement	9	21	42.8
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	28	42.8

package Catmandu::AlephX::Op::HoldReqCancel;
use Catmandu::Sane;
use Catmandu::Util qw(:check :is);
use Moo;

our $VERSION = "1.072";

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

has reply => (
  is => 'ro',
  required => 1,
  isa => sub{
    check_string($_[0]);
  }
);

sub op { 'hold-req-cancel' }

sub parse {
  my($class,$str_ref) = @_;
  my $xpath = xpath($str_ref);
  my $op = op();

  my %args;
  for(qw(session-id reply)){
    my $key = $_;
    $key =~ s/-/_/go;
    $args{$key} = $xpath->findvalue("/$op/$_");
  }

  $args{errors} = $class->parse_errors($xpath);
  $args{content_ref} = $str_ref;

  __PACKAGE__->new(%args);
}

1;