diff options
Diffstat (limited to 'ext/Encode/t/Mod_EUCJP.pm')
| -rw-r--r-- | ext/Encode/t/Mod_EUCJP.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/ext/Encode/t/Mod_EUCJP.pm b/ext/Encode/t/Mod_EUCJP.pm new file mode 100644 index 0000000000..5693631c00 --- /dev/null +++ b/ext/Encode/t/Mod_EUCJP.pm @@ -0,0 +1,22 @@ +# $Id: Mod_EUCJP.pm,v 1.1 2003/02/28 01:40:27 dankogai Exp dankogai $ +# This file is in euc-jp +package Mod_EUCJP; +use encoding "euc-jp"; +sub new { + my $class = shift; + my $str = shift || qw/½é´üʸ»úÎó/; + my $self = bless { + str => '', + }, $class; + $self->set($str); + $self; +} +sub set { + my ($self,$str) = @_; + $self->{str} = $str; + $self; +} +sub str { shift->{str}; } +sub put { print shift->{str}; } +1; +__END__ |