488f156d5a7ca0837fdacaa7d83ef4a280812cbe
[perl.git] / ext / Encode / t / Mod_EUCJP.pm
1 # $Id: Mod_EUCJP.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $
2 # This file is in euc-jp
3 package Mod_EUCJP;
4 use encoding "euc-jp";
5 sub new {
6   my $class = shift;
7   my $str = shift || qw/����ʸ����/;
8   my $self = bless { 
9       str => '',
10   }, $class;
11   $self->set($str);
12   $self;
13 }
14 sub set {
15   my ($self,$str) = @_;
16   $self->{str} = $str;
17   $self;
18 }
19 sub str { shift->{str}; }
20 sub put { print shift->{str}; }
21 1;
22 __END__