diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-03 06:17:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-03 06:17:28 +0000 |
| commit | 6be7c10195c1f65811dd5bd2452ad83544044891 (patch) | |
| tree | e000e75fc56bae8078b7f459cff84640181c3d06 /ext/Encode/t/Mod_EUCJP.pm | |
| parent | 32fdb0651975fc8e2d4b926fd3bd5792b31acf57 (diff) | |
| download | perl-6be7c10195c1f65811dd5bd2452ad83544044891.tar.gz | |
Upgrade to Encode 1.89. The enc_module.t required
a little tweak, sending that to Dan.
p4raw-id: //depot/perl@18816
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__ |