File Coverage

blib/lib/Net/AnimeNewsNetwork/Encyclopedia.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	30	32	93.7

package Net::AnimeNewsNetwork::Encyclopedia;
use 5.10.0;
use strict;
use warnings;
use Moo;
use Data::Validator;
use URI;
use LWP::Simple;
use XML::Simple;

our $VERSION = "0.02";
our $URL = 'http://cdn.animenewsnetwork.com/encyclopedia';

has url => (
    is      => 'ro',
    default => $URL,
);

sub get_reports {
    state $rule = Data::Validator->new(
        id    => 'Int',
        type  => 'Str',
        nskip => { isa => 'Int', optional => 1 },
        nlist => { isa => 'Int', optional => 1 },
        name  => { isa => 'Str', optional => 1 },
    )->with('Method');
    my ($self, $args) = $rule->validate(@_);

    my $content = $self->_get("/reports.xml", $args);
    return XMLin($content);
}

sub get_details {
    state $rule = Data::Validator->new(
        anime    => { isa => 'Int', xor => [qw/manga title/] },
        manga    => { isa => 'Int', xor => [qw/anime title/] },
        title    => { isa => 'Int', xor => [qw/anime manga/] },
    )->with('Method');
    my ($self, $args) = $rule->validate(@_);

    my $content = $self->_get("/api.xml", $args);
    return XMLin($content);
}

sub _get {
    my ($self, $path, $query) = @_;
    my $uri = URI->new($self->url . $path);
    $uri->query_form($query);
    return get($uri);
}

1;
__END__