# $Id: Mod_EUCJP.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $ | |
# 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__ |