From fc5f9edb2ac8d2f4f6e23a24825f42e062fd5ac2 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 6 Jun 2009 15:47:47 -0500
Subject: meh, let's use moose

---
 lib/Lingua/HI/Romanize.pm | 35 +++++++++++++++++++++--------------
 1 file 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(@_);
 }
-- 
cgit v1.2.3