File Coverage

blib/lib/Catmandu/Store/AAT/Bag.pm
Criterion Covered Total %
statement 15 18 83.3
branch n/a
condition n/a
subroutine 5 7 71.4
pod 0 2 0.0
total 20 27 74.0


line stmt bran cond sub pod time code
1             package Catmandu::Store::AAT::Bag;
2              
3 2     2   6 use strict;
  2         2  
  2         46  
4 2     2   7 use warnings;
  2         3  
  2         36  
5              
6 2     2   6 use Moo;
  2         2  
  2         7  
7 2     2   366 use Catmandu::Sane;
  2         2  
  2         9  
8              
9 2     2   881 use Catmandu::AAT::API;
  2         4  
  2         407  
10              
11             with 'Catmandu::Bag';
12              
13             sub generator {
14 0     0 0   my $self = shift;
15             }
16              
17             sub get {
18             my ($self, $id) = @_;
19             my $api = Catmandu::AAT::API->new(term => $id, language => $self->store->lang);
20             return $api->id();
21             }
22              
23             sub add {
24             my ($self, $data) = @_;
25             Catmandu::NotImplemented->throw(
26             message => 'Adding item to store not supported.'
27             );
28             }
29              
30             sub update {
31 0     0 0   my ($self, $id, $data) = @_;
32 0           Catmandu::NotImplemented->throw(
33             message => 'Updating item in store not supported.'
34             );
35             }
36              
37             sub delete {
38             my ($self, $id) = @_;
39             Catmandu::NotImplemented->throw(
40             message => 'Deleting item from store not supported.'
41             );
42             }
43              
44             sub delete_all {
45             my $self = shift;
46             Catmandu::NotImplemented->throw(
47             message => 'Deleting items from store not supported.'
48             );
49             }
50              
51             1;
52             __END__