[p5sagit/p5-mst-13.2.git] / ext / Encode / t / Mod_EUCJP.pm

# $Id: Mod_EUCJP.pm,v 2.0 2004/05/16 20:55:17 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__
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__