File Coverage

blib/lib/Acme/Ikamusume/MAParser.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch			n/a
condition	0	2	0.0
subroutine	6	8	75.0
pod			n/a
total	24	33	72.7

package Acme::Ikamusume::MAParser;
use strict;
use warnings;
use Encode;

use base 'Text::MeCab';

my $encoding = Encode::find_encoding( Text::MeCab::ENCODING );

sub parse {
    shift->SUPER::parse($encoding->encode(@_));
}

package    # hide from the PAUSE indexer
  Text::MeCab::Node;

{
    no strict 'refs';
    no warnings 'redefine';
    for my $method (qw( surface feature )) {
        my $original = \&$method;
        *{$method} = sub {
            my $val = $original->(@_);
            defined $val ? $encoding->decode($val) : "";
        };
    }
}

sub features {
    my %f;

    @f{qw(
        pos category1 category2 category3
        inflect inflect_type original yomi pronounse
        extra
    )} = split(/,/, shift->feature, 10);

    $f{extra} = [ split /,/, $f{extra} || "" ];

    \%f;
};

1;
__END__