Changeset 422
- Timestamp:
- 03/31/06 19:43:55
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/Filter/Romanize/Japanese.pm
r421 r422 9 9 sub romanize { 10 10 my($self, $text) = @_; 11 $self->{kakasi} ||= Text::Kakasi->new(qw/-Ha -Ka -Ja -Ea -ka -iutf8/); 12 $self->{kakasi}->get( encode("utf-8", $text) ); 11 $self->{wakati} ||= Text::Kakasi->new(qw/-w -iutf8/); 12 $self->{roman} ||= Text::Kakasi->new(qw/-Ha -Ka -Ja -Ea -ka -iutf8/); 13 my @wakati = split /\s+/, $self->{wakati}->get( encode("utf-8", $text) ); 14 [ map $self->{roman}->get($_), @wakati ]; 13 15 } 14 16
