Changeset 18640 for lang/perl/Acme-Shigin

Timestamp:

09/02/08 17:20:07 (5 years ago)

Author:

bayashi

Message:

bug fixed

Files:

• lang/perl/Acme-Shigin/trunk/lib/Acme/Shigin.pm (modified) (3 diffs)

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

@@ -12 +12 @@
 use Lingua::JA::Kana;
 
-our $VERSION = '0.0.2';
+our $VERSION = '0.0.3';
 
 sub new {
@@ -38 +38 @@
         if($i == $split_point[$j]){
             my ($boin) = ($phrase->{romaji} =~ /(.)$/);
-            my @Boin = split(//, $self->_tune($boin));
-            $shigin .= $self->_rm_utf8(
-                "ー"   . $self->_ret_boin(@Boin) .
-                "ー～" . $self->_ret_boin(@Boin) .
-                "～～" . $self->_ret_boin(@Boin) . "～～ー "
-            );
+            my $tune = $self->_tune($boin);
+            if($tune){
+                my @Boin = split(//, $tune);
+                $shigin .= $self->_rm_utf8(
+                    "ー"   . $self->_ret_boin(@Boin) .
+                    "ー～" . $self->_ret_boin(@Boin) .
+                    "～～" . $self->_ret_boin(@Boin) . "～～ー "
+                );
+            }else{
+                $shigin .= $self->_rm_utf8("ーー～～ー ");
+            }
             $j++;
         }
@@ -74 +79 @@
         }else{
             # 文末や記号以外なら文節に追加
-            if($hinshi ne 'BOS/EOS' && $hinshi ne '記号'){
+            if($hinshi !~ /^(?:BOS\/EOS|記号|読点)$/){
                 $bunsetsu->[$c]->{surface} .= $surface;
                 $bunsetsu->[$c]->{romaji}  .= kana2romaji($yomi) if $yomi;