1# $Id: Mod_EUCJP.pm,v 2.1 2013/02/18 02:23:56 dankogai Exp $
2# This file is in euc-jp
3package Mod_EUCJP;
4no warnings "deprecated";
5use encoding "euc-jp";
6sub new {
7  my $class = shift;
8  my $str = shift || qw/����������/;
9  my $self = bless {
10      str => '',
11  }, $class;
12  $self->set($str);
13  $self;
14}
15sub set {
16  my ($self,$str) = @_;
17  $self->{str} = $str;
18  $self;
19}
20sub str { shift->{str}; }
21sub put { print shift->{str}; }
221;
23__END__
24