File Coverage

blib/lib/Catmandu/Store/RKD/API/Extract.pm
Criterion Covered Total %
statement 6 17 35.2
branch n/a
condition n/a
subroutine 2 5 40.0
pod 0 1 0.0
total 8 23 34.7


line stmt bran cond sub pod time code
1             package Catmandu::Store::RKD::API::Extract;
2              
3 1     1   2507 use Moo;
  1         1  
  1         18  
4              
5 1     1   173 use Catmandu::Sane;
  1         1  
  1         4  
6              
7             has results => (is => 'ro', required => 1);
8              
9             has items => (is => 'lazy');
10              
11             sub _build_items {
12 0     0     my $self = shift;
13 0           return $self->extract($self->results);
14             }
15              
16             sub __extract {
17 0     0     my ($self, $item) = @_;
18             return {
19             'guid' => $item->{'guid'}->{'content'},
20             'artist_link' => $item->{'link'},
21             'title' => $item->{'title'},
22 0           'description' => $item->{'description'}
23             };
24             }
25              
26             sub extract {
27 0     0 0   my ($self, $items) = @_;
28 0           my $extracted = [];
29 0           foreach my $item (@{$items}) {
  0            
30 0           push @{$extracted}, $self->__extract($item);
  0            
31             }
32 0           return $extracted;
33             }
34              
35             1;