ext/Encode/t/Mod_EUCJP.pm

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