File Coverage

blib/lib/Catmandu/Importer/Parltrack.pm

Criterion	Covered	Total	%
statement	18	31	58.0
branch	0	12	0.0
condition			n/a
subroutine	6	9	66.6
pod	1	1	100.0
total	25	53	47.1

package Catmandu::Importer::Parltrack;

use strict;
use warnings;

use Catmandu::Sane;
use Moo;
use Types::Standard qw( Bool );
use URI::Template;

extends 'Catmandu::Importer::getJSON';

our $AUTHORITY = 'cpan:JONASS';
our $VERSION   = '0.001';

has api => (
	is      => 'ro',
	default => sub {'http://parltrack.euwiki.org'}
);

has '+url' => (
	is      => 'ro',
	lazy    => 1,
	builder => sub {
		URI::Template->new( $_[0]->api . '{/topic,reference}?format=json' );
	}
);

has '+from' => (
	is      => 'ro',
	lazy    => 1,
	builder => \&_build_from,
);

has dossier => (
	is => 'ro',
);

has meps => (
	is  => 'ro',
	isa => Bool,
);

has mep => (
	is => 'ro',
);

has committee => (
	is => 'ro',
);

sub _build_from
{
	my ($self) = @_;

	my $vars;

	if ( $self->dossier ) {
		$vars = { topic => 'dossier', reference => $self->dossier };
	}
	elsif ( $self->meps ) {
		$vars = { topic => 'meps', reference => '' };
	}
	elsif ( $self->mep ) {
		$vars = { topic => 'mep', reference => $self->mep };
	}
	elsif ( $self->committee ) {
		$vars = { topic => 'committee', reference => $self->committee };
	}

	return ( $vars ? $self->url->process($vars) : undef );
}

sub request_hook
{
	my ( $self, $line ) = @_;

	if ( $line =~ /^\/([a-z]+)\/(.+)$/ ) {
		return { topic => $1, reference => $2 };
	}
	return;
}

1;

__END__