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