Changeset 2947 for lang/perl/Acme-JapaneseAvActress

Timestamp:

12/09/07 21:12:05 (8 months ago)

Author:

yusukebe

Message:

add engname method

Files:

• lang/perl/Acme-JapaneseAvActress/trunk/lib/Acme/JapaneseAvActress.pm (modified) (7 diffs)

lang/perl/Acme-JapaneseAvActress/trunk/lib/Acme/JapaneseAvActress.pm

@@ -3 +3 @@
 use strict;
 use warnings;
+use utf8;
 use URI::Fetch;
 use XML::Simple;
@@ -8 +9 @@
 use Cache::File;
 
-our $VERSION = "0.0.1";
+our $VERSION = '0.0.1';
 
 sub new {
@@ -47 +48 @@
         $content = $xml->content;
     }
+    utf8::decode($content);
     my ( @actress, $initial );
     my $flag = 0;
@@ -80 +82 @@
                 $actress_info->{name} = $2;
             }
+            $actress_info->{yomi} = $actress_info->{name}
+                unless $actress_info->{yomi};
             decode_entities( $actress_info->{name} );
             decode_entities( $actress_info->{yomi} );
@@ -116 +120 @@
     return;
 }
+
 sub yomi {
     my ( $self, $yomi ) = @_;
@@ -131 +136 @@
 use warnings;
 use base qw(Class::Accessor::Fast);
+use Acme::JapaneseAvActress;
+use Encode;
+use Lingua::JA::Hepburn::Passport;
 
 __PACKAGE__->mk_accessors(qw(name initial yomi year));
 
+sub engname {
+    my $self = shift;
+    my $yomi = $self->yomi;
+    my $hepburn = Lingua::JA::Hepburn::Passport->new;
+    $yomi = decode("utf-8",$yomi) unless utf8::is_utf8($yomi);
+    return $hepburn->romanize($yomi);
+}
 
 1;
@@ -168 +183 @@
 Yusuke Wada  C<< <yusuke@kamawada.com> >>
 
-
 =head1 LICENCE AND COPYRIGHT