summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Lingua/HI/Romanize.pm46
1 files changed, 46 insertions, 0 deletions
diff --git a/lib/Lingua/HI/Romanize.pm b/lib/Lingua/HI/Romanize.pm
new file mode 100644
index 0000000..8319b2a
--- /dev/null
+++ b/lib/Lingua/HI/Romanize.pm
@@ -0,0 +1,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;