view release on metacpan or  search on metacpan

lib/PerlIO/via/PrepareCP1251.pm  view on Meta::CPAN

    1;
}



sub WRITE {
    my ( undef, $line, $handle ) = @_;
    utf8::decode $line;
    my $out = join q{},
        map { _convert_symbol($_) }
        split m//, $line;
    return ( print {$handle} $out ) ? length($line) : -1;
}

=pod

=encoding UTF-8

=head1 NAME

PerlIO::via::PrepareCP1251 - prepare unicode stream to be encoded as cp1251