관리-도구

편집 파일: Mod_EUCJP.pm

# $Id: Mod_EUCJP.pm,v 2.1 2013/02/18 02:23:56 dankogai Exp $ # This file is in euc-jp package Mod_EUCJP; no warnings "deprecated"; 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__