File Coverage

blib/lib/Catmandu/AlephX/Op/Find.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 2 0.0
total 8 17 47.0


line stmt bran cond sub pod time code
1             package Catmandu::AlephX::Op::Find;
2 1     1   111514 use Catmandu::Sane;
  1         195158  
  1         7  
3 1     1   312 use Moo;
  1         2  
  1         5  
4              
5             our $VERSION = "1.072";
6              
7             with('Catmandu::AlephX::Response');
8              
9             #'set_number' == id waaronder zoekactie wordt opgeslagen door Aleph (kan je later hergebruiken)
10             has set_number => (
11             is => 'ro'
12             );
13             has no_records => (
14             is => 'ro'
15             );
16             has no_entries => (
17             is => 'ro',
18             );
19 0     0 0   sub op { 'find' }
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           __PACKAGE__->new(
27             errors => $class->parse_errors($xpath),
28             session_id => $xpath->findvalue("/$op/session-id"),
29             set_number => $xpath->findvalue("/$op/set_number"),
30             no_records => $xpath->findvalue("/$op/no_records"),
31             no_entries => $xpath->findvalue("/$op/no_entries"),
32             content_ref => $str_ref
33             );
34             }
35              
36             1;