File Coverage

blib/lib/WWW/NHKProgram/API/Provider/Info.pm

Criterion	Covered	Total	%
statement	21	28	75.0
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	28	39	71.7

package WWW::NHKProgram::API::Provider::Info;
use strict;
use warnings;
use utf8;
use JSON ();
use WWW::NHKProgram::API::Area    qw/fetch_area_id/;
use WWW::NHKProgram::API::Service qw/fetch_service_id/;
use WWW::NHKProgram::API::Provider::Common;

sub call {
    my ($self, $context, $arg, $raw) = @_;

    my $area    = fetch_area_id($arg->{area});
    my $service = fetch_service_id($arg->{service});
    my $id      = $arg->{id};

    my $content = WWW::NHKProgram::API::Provider::Common::call(
        $context,
        "info/%(area)s/%(service)s/%(id)s.json",
        {
            area    => $area,
            service => $service,
            id      => $id,
        },
        $raw,
    );
    return $content if $raw;
    return JSON::decode_json($content)->{list}->{$service}->[0];
}

1;