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