| 57 |
$C; |
$C; |
| 58 |
} |
} |
| 59 |
|
|
| 60 |
|
sub __clone ($) { |
| 61 |
|
my $self = shift; |
| 62 |
|
bless {%$self}, ref $self; |
| 63 |
|
}; |
| 64 |
|
|
| 65 |
package Encode::ISO2022::JIS::JISX0201Latin7; |
package Encode::ISO2022::JIS::JISX0201Latin7; |
| 66 |
use vars qw/@ISA/; |
use vars qw/@ISA/; |
| 67 |
push @ISA, 'Encode::ISO2022::JIS'; |
push @ISA, 'Encode::ISO2022::JIS'; |
| 145 |
package Encode::ISO2022::JIS::JISX0201LatinKatakana8; |
package Encode::ISO2022::JIS::JISX0201LatinKatakana8; |
| 146 |
use vars qw/@ISA/; |
use vars qw/@ISA/; |
| 147 |
push @ISA, 'Encode::ISO2022::JIS'; |
push @ISA, 'Encode::ISO2022::JIS'; |
| 148 |
__PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit/); |
__PACKAGE__->Define (qw/jisx0201-1997-latin-latin-8bit kana8/); |
| 149 |
|
|
| 150 |
=item jisx0201-1997-latin-katakana-8bit |
=item jisx0201-1997-latin-katakana-8bit |
| 151 |
|
|