File Coverage

blib/lib/WWW/NHKProgram/API/Genre.pm

Criterion	Covered	Total	%
statement	18	25	72.0
branch	0	2	0.0
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	24	35	68.5

package WWW::NHKProgram::API::Genre;
use strict;
use warnings;
use utf8;
use Encode qw/decode_utf8/;
use TV::ARIB::ProgramGenre qw/get_genre_id/;
use parent qw/Exporter/;
our @EXPORT_OK = qw/fetch_genre_id/;

sub fetch_genre_id {
    my $arg = shift;

    if ($arg =~ /\A\d{4}\Z/) {
        return $arg;
    }

    eval { $arg = decode_utf8($arg) };
    my $id = get_genre_id($arg);
    return sprintf("%02d%02d", $id->[0], $id->[1]);
}

1;