package PerlIO
::encoding
;
$DEBUG and warn __PACKAGE__
, " called by ", join(", ", caller), "\n";
# Equivalent of this is done in encoding.xs - do not uncomment.
XSLoader
::load
(__PACKAGE__
, $VERSION);
our $fallback = Encode
::PERLQQ
()|Encode
::WARN_ON_ERR
();
PerlIO::encoding - encoding layer
open($f, "<:encoding(foo)", "infoo");
open($f, ">:encoding(bar)", "outbar");
use Encode qw(:fallbacks);
$PerlIO::encoding::check = FB_PERLQQ;
Open a filehandle with a transparent encoding filter.
On input, convert the bytes expected to be in the specified
character set and encoding to Perl string data (Unicode and
Perl's internal Unicode encoding, UTF-8). On output, convert
Perl string data into the specified character set and encoding.
When the layer is pushed the current value of C<$PerlIO::encoding::check>
is saved and used as the check argument when calling the Encodings
L<open>, L<Encode>, L<perlfunc/binmode>, L<perluniintro>