lib/Lingua/HI/Romanize.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

package Lingua::HI::Romanize;
use strict;
use warnings;
use utf8;

sub new {
    my $class = shift;
    my %args = @_;
    return bless {
        unicode         => $args{unicode},
        default_unicode => 'iast',
        default_ascii   => 'itrans',
    }, $class;
}

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;