File Coverage

blib/lib/Catmandu/AlephX/Op/IllLoanInfo.pm
Criterion Covered Total %
statement 9 17 52.9
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 26 46.1


line stmt bran cond sub pod time code
1             package Catmandu::AlephX::Op::IllLoanInfo;
2 1     1   82292 use Catmandu::Sane;
  1         158285  
  1         7  
3 1     1   317 use Catmandu::Util qw(:check :is);
  1         2  
  1         381  
4 1     1   6 use Moo;
  1         1  
  1         5  
5              
6             our $VERSION = "1.071";
7              
8             with('Catmandu::AlephX::Response');
9              
10             has z36 => (
11             is => 'ro',
12             lazy => 1,
13             isa => sub { check_hash_ref($_[0]); },
14             default => sub {
15             +{};
16             }
17             );
18              
19 0     0 0   sub op { 'ill-loan-info' }
20              
21             sub parse {
22 0     0 0   my($class,$str_ref) = @_;
23 0           my $xpath = xpath($str_ref);
24 0           my $op = op();
25              
26 0           my $z36 = {};
27              
28 0           my($z) = $xpath->find("/ill-LOAN-INFO/z36")->get_nodelist();
29              
30 0 0         $z36 = get_children($z) if $z;
31              
32 0           __PACKAGE__->new(
33             session_id => $xpath->findvalue('/ill-LOAN-INFO/session-id'),
34             errors => $class->parse_errors($xpath),
35             z36 => $z36,
36             content_ref => $str_ref
37             );
38             }
39              
40             1;