blob: 4f381c587378a7ff7176dc19e98e767899abb17a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# $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__
|
