blob: 5693631c0046dfa32d27ba8bfd7d93939df03659 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# $Id: Mod_EUCJP.pm,v 1.1 2003/02/28 01:40:27 dankogai Exp dankogai $
# 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__
|
