File Coverage

blib/lib/Catmandu/Store/RKD/Bag.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


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