diff options
Diffstat (limited to 'cpan/Encode/t/Mod_EUCJP.pm')
| -rw-r--r-- | cpan/Encode/t/Mod_EUCJP.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/cpan/Encode/t/Mod_EUCJP.pm b/cpan/Encode/t/Mod_EUCJP.pm new file mode 100644 index 0000000000..488f156d5a --- /dev/null +++ b/cpan/Encode/t/Mod_EUCJP.pm @@ -0,0 +1,22 @@ +# $Id: Mod_EUCJP.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $ +# 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__ |