Cross Reference: Mod_EUCJP.pm
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
Encode
/
t
/
Mod_EUCJP.pm
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
# $Id:
Mod_EUCJP.pm
,v 1.1 2003/02/28 01:40:27 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__