File Coverage

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

Criterion	Covered	Total	%
statement	21	27	77.7
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	28	38	73.6

package WWW::NHKProgram::API::Provider::Now;
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 ($class, $context, $arg, $raw) = @_;

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

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

1;