1# $Id: Mod_EUCJP.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $ 2# This file is in euc-jp 3package Mod_EUCJP; 4use encoding "euc-jp"; 5sub 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} 14sub set { 15 my ($self,$str) = @_; 16 $self->{str} = $str; 17 $self; 18} 19sub str { shift->{str}; } 20sub put { print shift->{str}; } 211; 22__END__ 23