line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Catmandu::Store::RKD::API::Number; |
2
|
|
|
|
|
|
|
|
3
|
2
|
|
|
2
|
|
7
|
use Moo; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
15
|
|
4
|
2
|
|
|
2
|
|
504
|
use LWP::UserAgent; |
|
2
|
|
|
|
|
2
|
|
|
2
|
|
|
|
|
29
|
|
5
|
|
|
|
|
|
|
|
6
|
2
|
|
|
2
|
|
6
|
use Catmandu::Sane; |
|
2
|
|
|
|
|
2
|
|
|
2
|
|
|
|
|
15
|
|
7
|
|
|
|
|
|
|
|
8
|
2
|
|
|
2
|
|
1076
|
use Catmandu::Store::RKD::API::Search; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
has artist_id => (is => 'ro', required => 1); |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
has results => (is => 'lazy'); |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
sub _build_results { |
15
|
|
|
|
|
|
|
my $self = shift; |
16
|
|
|
|
|
|
|
my $template = 'https://rkd.nl/opensearch-eac-cpf?q=kunstenaarsnummer:%s'; |
17
|
|
|
|
|
|
|
my $url = sprintf($template, $self->artist_id); |
18
|
|
|
|
|
|
|
my $search = Catmandu::Store::RKD::API::Search->new(url => $url); |
19
|
|
|
|
|
|
|
return $search->results; |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |