path: root/lib/Lingua/HI/Romanize.pm

package Lingua::HI::Romanize;
use Moose;
use utf8;

has unicode => (
    is      => 'ro',
    isa     => 'Bool',
    default => 0,
);

has default_ascii => (
    is      => 'ro',
    isa     => 'Str',
    default => 'itrans',
);

has default_unicode => (
    is      => 'ro',
    isa     => 'Str',
    default => 'iast',
);

sub romanize {
    my $self = shift;
    my $method = "romanize_";
    if ($self->unicode) {
        $method .= $self->default_unicode;
    }
    else {
        $method .= $self->default_ascii;
    }
    return $self->$method(@_);
}

sub romanize_iast {
}

sub romanize_kolkata {
}

sub romanize_iso15919 {
}

sub romanize_harvard_kyoto {
}

sub romanize_itrans {
}

sub romanize_velthuis {
}

1;