Index: lang/perl/Acme-Shigin/trunk/lib/Acme/Shigin.pm
===================================================================
--- lang/perl/Acme-Shigin/trunk/lib/Acme/Shigin.pm (revision 18542)
+++ lang/perl/Acme-Shigin/trunk/lib/Acme/Shigin.pm (revision 18640)
@@ -12,5 +12,5 @@
 use Lingua::JA::Kana;
 
-our $VERSION = '0.0.2';
+our $VERSION = '0.0.3';
 
 sub new {
@@ -38,10 +38,15 @@
         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,5 +79,5 @@
         }else{
             # 文末や記号以外なら文節に追加
-            if($hinshi ne 'BOS/EOS' && $hinshi ne '記号'){
+            if($hinshi !~ /^(?:BOS\/EOS|記号|読点)$/){
                 $bunsetsu->[$c]->{surface} .= $surface;
                 $bunsetsu->[$c]->{romaji}  .= kana2romaji($yomi) if $yomi;