| 54 |
$C; |
$C; |
| 55 |
} |
} |
| 56 |
|
|
| 57 |
|
sub __clone ($) { |
| 58 |
|
my $self = shift; |
| 59 |
|
bless {%$self}, ref $self; |
| 60 |
|
}; |
| 61 |
|
|
| 62 |
package Encode::ISO2022::ISO646::ISO646basic1993; |
package Encode::ISO2022::ISO646::ISO646basic1993; |
| 63 |
use vars qw/@ISA/; |
use vars qw/@ISA/; |
| 64 |
push @ISA, 'Encode::ISO2022::ISO646'; |
push @ISA, 'Encode::ISO2022::ISO646'; |
| 589 |
|
|
| 590 |
=back |
=back |
| 591 |
|
|
| 592 |
|
=head1 AUTHORS |
| 593 |
|
|
| 594 |
|
Nanashi-san |
| 595 |
|
|
| 596 |
|
Wakaba <w@suika.fam.cx> |
| 597 |
|
|
| 598 |
=head1 LICENSE |
=head1 LICENSE |
| 599 |
|
|
| 600 |
Copyright 2002 Wakaba <w@suika.fam.cx> |
Copyright 2002 Authors |
| 601 |
|
|
| 602 |
This library is free software; you can redistribute it |
This library is free software; you can redistribute it |
| 603 |
and/or modify it under the same terms as Perl itself. |
and/or modify it under the same terms as Perl itself. |