From 6be7c10195c1f65811dd5bd2452ad83544044891 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 3 Mar 2003 06:17:28 +0000
Subject: Upgrade to Encode 1.89.  The enc_module.t required a little tweak,
 sending that to Dan.

p4raw-id: //depot/perl@18816
---
 ext/Encode/t/Mod_EUCJP.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 ext/Encode/t/Mod_EUCJP.pm

(limited to 'ext/Encode/t/Mod_EUCJP.pm')

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__
-- 
cgit v1.2.1