File Coverage

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

Criterion	Covered	Total	%
statement	24	25	96.0
branch	6	8	75.0
condition			n/a
subroutine	10	11	90.9
pod	2	4	50.0
total	42	48	87.5

package Lingua::ZH::CCDICT::Romanization;

use strict;
use warnings;

use Params::Validate qw( validate SCALAR BOOLEAN );

use overload
    ( '""'   => sub { $_[0]->syllable() },
      'bool' => sub { 1 },
      'cmp'  => sub { return
                          ( $_[2] ?
                            ( $_[1] cmp $_[0]->syllable() ) :
                            ( $_[0]->syllable() cmp $_[1] )
                          ); },
    );


sub new
{
    my $class = shift;

    my %p = validate( @_,
                      { syllable => { type => SCALAR },
                        obsolete => { type => BOOLEAN },
                      },
                    );

    unless ( $p{syllable} =~ /^[a-z1-9']+$/ )
    {
        warn "Bad romanization: $p{syllable}\n" if $ENV{DEBUG_CCDICT_SOURCE};
        return;
    }
    warn "FOUND\n" if $p{syllable} eq q{s'uk8};
    return bless \%p, $class;
}

sub syllable
{
    return $_[0]->{syllable};
}

sub is_obsolete
{
    return $_[0]->{obsolete};
}

# deprecated
sub obsolete
{
    return $_[0]->is_obsolete();
}


1;

__END__