File Coverage

blib/lib/Catmandu/AlephX/Op/UserAuth.pm
Criterion Covered Total %
statement 9 16 56.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 23 52.1


line stmt bran cond sub pod time code
1             package Catmandu::AlephX::Op::UserAuth;
2 1     1   103318 use Catmandu::Sane;
  1         192273  
  1         8  
3 1     1   344 use Catmandu::Util qw(:check :is);
  1         3  
  1         464  
4 1     1   8 use Moo;
  1         2  
  1         4  
5              
6             our $VERSION = "1.072";
7              
8             with('Catmandu::AlephX::Response');
9              
10             has z66 => (
11             is => 'ro',
12             isa => sub{
13             check_hash_ref($_[0]);
14             }
15             );
16             has reply => (
17             is => 'ro'
18             );
19 0     0 0   sub op { 'user-auth' }
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($z66) = $xpath->find('/z66')->get_nodelist();
27 0           $z66 = get_children($z66,1);
28              
29 0           __PACKAGE__->new(
30             session_id => $xpath->findvalue('/'.$op.'/session-id'),
31             errors => $class->parse_errors($xpath),
32             reply => $xpath->findvalue('/'.$op.'/reply'),
33             z66 => $z66,
34             content_ref => $str_ref
35             );
36             }
37              
38             1;