meh, let's use moose

1 files changed, 21 insertions, 14 deletions

diff --git a/lib/Lingua/HI/Romanize.pm b/lib/Lingua/HI/Romanize.pm
index 8319b2a..8dfdda9 100644
--- a/lib/Lingua/HI/Romanize.pm
+++ b/lib/Lingua/HI/Romanize.pm
@@ -1,26 +1,33 @@
 package Lingua::HI::Romanize;
-use strict;
-use warnings;
+use Moose;
 use utf8;
 
-sub new {
-    my $class = shift;
-    my %args = @_;
-    return bless {
-        unicode         => $args{unicode},
-        default_unicode => 'iast',
-        default_ascii   => 'itrans',
-    }, $class;
-}
+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};
+    if ($self->unicode) {
+        $method .= $self->default_unicode;
     }
     else {
-        $method .= $self->{default_ascii};
+        $method .= $self->default_ascii;
     }
     return $self->$method(@_);
 }