package Text::VisualWidth::EUC_JP; use 5.006; use strict; use warnings; use Text::VisualWidth; sub width { my $str = shift; return xs_get_visualwidth_eucjp($str); } sub trim { my ( $str, $length ) = @_; return $str unless ( defined $str and defined $length ); return xs_trim_visualwidth_eucjp($str, $length); } 1; __END__ =head1 NAME Text::VisualWidth::EUC_JP - Perl extension for Triming EUC-JP text by the number of the columns of terminals and mobile phones. =head1 SYNOPSIS use Text::VisualWidth::EUC_JP; my $length = Text::VisualWidth::EUC_JP::width($str); my $str = Text::VisualWidth::EUC_JP::trim($str, 20); =head1 AUTHOR Takaaki Mizuno, E<lt>module@takaaki.infoE<gt> =head1 COPYRIGHT AND LICENSE Copyright (C) 2007 by Takaaki Mizuno This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut