File Coverage

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

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	31	38.7

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

our $VERSION = "1.073";

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

has reply => (
  is => 'ro',
  required => 1,
  isa => sub{
    check_maybe_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{$key} = is_string($args{$key}) ? $args{$key} : undef;
  }

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

  __PACKAGE__->new(%args);
}

1;