Commit | Line | Data |
---|---|---|
7237418a | 1 | # $Id: Mod_EUCJP.pm,v 2.0 2004/05/16 20:55:17 dankogai Exp $ |
6be7c101 | 2 | # This file is in euc-jp |
3 | package Mod_EUCJP; | |
4 | use encoding "euc-jp"; | |
5 | sub new { | |
6 | my $class = shift; | |
7 | my $str = shift || qw/½é´üʸ»úÎó/; | |
8 | my $self = bless { | |
9 | str => '', | |
10 | }, $class; | |
11 | $self->set($str); | |
12 | $self; | |
13 | } | |
14 | sub set { | |
15 | my ($self,$str) = @_; | |
16 | $self->{str} = $str; | |
17 | $self; | |
18 | } | |
19 | sub str { shift->{str}; } | |
20 | sub put { print shift->{str}; } | |
21 | 1; | |
22 | __END__ |