File Coverage

blib/lib/PerlIO/via/Unidecode.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	2	4	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	19	29	65.5

require 5.008;
package PerlIO::via::Unidecode;
#  Last-Modified Time-stamp: "2014-07-27 02:49:16 MDT [e-mail]"
$VERSION = "1.02";
use strict;
use utf8 ('decode');
use Text::Unidecode ('unidecode');
# A little sanity-checking can't hurt:
die "Can't find &Text::Unidecode::unidecode" unless defined &unidecode;
die "Can't find &utf8::decode" unless defined &utf8::decode;

# Coded based on the example of PerlIO::via::QuotedPrint.

sub PUSHED { bless \*PUSHED,$_[0] }

sub FILL {
    my $line = readline( $_[1] );
    (defined $line) ? unidecode( $line ) : undef;
}

sub WRITE {
    my $x = $_[1];
    utf8::decode($x); # need to promote things back to UTF8
    unidecode($x);
    # utf8::downgrade($x);
    ( print {$_[2]} $x ) ? length($_[1]) : -1;
}

1;
__END__