package PerlIO::encoding;use strict;our $VERSION = '0.10';our $DEBUG = 0;$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";## Equivalent of this is done in encoding.xs - do not uncomment.## use Encode ();use XSLoader ();XSLoader::load(__PACKAGE__, $VERSION);our $fallback =    Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL();1;__END__=head1 NAMEPerlIO::encoding - encoding layer=head1 SYNOPSIS  use PerlIO::encoding;  open($f, "<:encoding(foo)", "infoo");  open($f, ">:encoding(bar)", "outbar");  use Encode qw(:fallbacks);  $PerlIO::encoding::fallback = FB_PERLQQ;=head1 DESCRIPTIONThis PerlIO layer opens a filehandle with a transparent encoding filter.On input, it converts the bytes expected to be in the specifiedcharacter set and encoding to Perl string data (Unicode andPerl's internal Unicode encoding, UTF-8).  On output, it convertsPerl string data into the specified character set and encoding.When the layer is pushed, the current value of C<$PerlIO::encoding::fallback>is saved and used as the CHECK argument when calling the Encode methodsencode() and decode().=head1 SEE ALSOL<open>, L<Encode>, L<perlfunc/binmode>, L<perluniintro>=cut