| 1 |
require 5.8.0; |
require 5.7.3; |
| 2 |
package Encode::Unicode::UTF1; |
package Encode::Unicode::UTF1; |
| 3 |
use strict; |
use strict; |
| 4 |
use vars qw(%DEFAULT $VERSION); |
use vars qw($VERSION); |
| 5 |
$VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
$VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 6 |
use base qw(Encode::Encoding); |
use base qw(Encode::Encoding); |
| 7 |
__PACKAGE__->Define (qw/ISO-10646-UTF-1 utf-1 utf1 csISO10646UTF1 iso-ir-178/); |
__PACKAGE__->Define (qw/ISO-10646-UTF-1 utf-1 utf1 csISO10646UTF1 iso-ir-178/); |
| 92 |
|
|
| 93 |
=head1 LICENSE |
=head1 LICENSE |
| 94 |
|
|
| 95 |
Copyright 2002 wakaba E<lt>[email protected]<gt>. |
Copyright 2002 Wakaba E<lt>[email protected]<gt>. |
| 96 |
|
|
| 97 |
This program is free software; you can redistribute it and/or modify |
This program is free software; you can redistribute it and/or modify |
| 98 |
it under the terms of the GNU General Public License as published by |
it under the terms of the GNU General Public License as published by |
| 109 |
the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 110 |
Boston, MA 02111-1307, USA. |
Boston, MA 02111-1307, USA. |
| 111 |
|
|
|
=head1 CHANGE |
|
|
|
|
|
See F<ChangeLog>. |
|
|
$Date$ |
|
|
|
|
| 112 |
=cut |
=cut |
| 113 |
|
|
| 114 |
|
# $Date$ |
| 115 |
|
### UTF1.pm ends here |