1package Encode::EBCDIC; 2use Encode; 3our $VERSION = do { my @r = (q$Revision: 1.21 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 4 5use XSLoader; 6XSLoader::load(__PACKAGE__,$VERSION); 7 81; 9__END__ 10 11=head1 NAME 12 13Encode::EBCDIC - EBCDIC Encodings 14 15=head1 SYNOPSIS 16 17 use Encode qw/encode decode/; 18 $posix_bc = encode("posix-bc", $utf8); # loads Encode::EBCDIC implicitly 19 $utf8 = decode("", $posix_bc); # ditto 20 21=head1 ABSTRACT 22 23This module implements various EBCDIC-Based encodings. Encodings 24supported are as follows. 25 26 Canonical Alias Description 27 -------------------------------------------------------------------- 28 cp37 29 cp500 30 cp875 31 cp1026 32 cp1047 33 posix-bc 34 35=head1 DESCRIPTION 36 37To find how to use this module in detail, see L<Encode>. 38 39=head1 SEE ALSO 40 41L<Encode>, L<perlebcdic> 42 43=cut 44