Changeset 2681 for lang/perl/Acme-JapaneseAvActress/trunk/lib/Acme/JapaneseAvActress.pm

Timestamp:

12/07/07 00:02:03 (12 months ago)

Author:

yusukebe

Message:

add yomi method

Files:

• lang/perl/Acme-JapaneseAvActress/trunk/lib/Acme/JapaneseAvActress.pm (modified) (1 diff)

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

@@ -116 +116 @@
     return;
 }
+sub yomi {
+    my ( $self, $yomi ) = @_;
+    foreach my $actress ( @{ $self->{actress} } ) {
+        my $y = $actress->yomi;
+        $y =~ s/ //;
+        $yomi =~ s/ //;
+        return $actress if $y eq $yomi;
+    }
+    return;
+}
 
 package Acme::JapaneseAvActress::Actress;