File Coverage

blib/lib/Lingua/ZH/CCDICT/ResultItem.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	3	6	50.0
condition			n/a
subroutine	17	17	100.0
pod	10	11	90.9
total	56	60	93.3

package Lingua::ZH::CCDICT::ResultItem;

use strict;
use warnings;

use Params::Validate qw( validate SCALAR UNDEF ARRAYREF );
use Sub::Name qw( subname );

foreach my $item ( qw( unicode radical index stroke_count cangjie four_corner ) )
{
    my $sub = sub { return unless exists $_[0]->{$item};
                    $_[0]->{$item} };

    my $sub_name = __PACKAGE__ . "::$item";

    no strict 'refs';
    *{$sub_name} = subname $sub_name => $sub;
}

foreach my $item ( qw( jyutping pinyin pinjim english ) )
{
    my $sub = sub { return unless exists $_[0]->{$item};
                    wantarray ? @{ $_[0]->{$item} } : $_[0]->{$item}[0] };

    my $sub_name = __PACKAGE__ . "::$item";

    no strict 'refs';
    *{$sub_name} = subname $sub_name => $sub;
}


sub new
{
    my $class = shift;
    my %p = validate( @_,
                      { unicode      => { type => SCALAR },
                        radical      => { type => SCALAR },
                        index        => { type => SCALAR },
                        stroke_count => { type => SCALAR, optional => 1 },
                        cangjie      => { type => SCALAR, optional => 1 },
                        four_corner  => { type => SCALAR, optional => 1 },
                        jyutping     => { type => ARRAYREF, optional => 1 },
                        pinyin       => { type => ARRAYREF, optional => 1 },
                        pinjim       => { type => ARRAYREF, optional => 1 },
                        english      => { type => ARRAYREF, optional => 1 },
                      },
                    );

    return bless \%p, $class;
}


1;

__END__