File Coverage

blib/lib/Catmandu/AlephX/Op/UpdateDoc.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 21 57.1


line stmt bran cond sub pod time code
1             package Catmandu::AlephX::Op::UpdateDoc;
2 1     1   105444 use Catmandu::Sane;
  1         195607  
  1         8  
3 1     1   330 use Catmandu::Util qw(:check :is);
  1         2  
  1         488  
4 1     1   9 use Moo;
  1         2  
  1         4  
5              
6             our $VERSION = "1.072";
7              
8             with('Catmandu::AlephX::Response');
9              
10 0     0 0   sub op { 'update-doc' }
11              
12             sub parse {
13 0     0 0   my($class,$str_ref) = @_;
14 0           my $xpath = xpath($str_ref);
15 0           my $op = op();
16              
17 0           __PACKAGE__->new(
18             session_id => $xpath->findvalue("/$op/session-id"),
19             errors => $class->parse_errors($xpath),
20             content_ref => $str_ref
21             );
22             }
23              
24             1;