File Coverage

blib/lib/PerlIO/via/PinyinConvert.pm

Criterion	Covered	Total	%
statement	23	26	88.4
branch	1	4	25.0
condition	2	4	50.0
subroutine	7	8	87.5
pod	0	3	0.0
total	33	45	73.3

package PerlIO::via::PinyinConvert;
use Lingua::ZH::PinyinConvert qw/convert/;
use 5.006;
use strict;
our $VERSION = '0.01';

our $from;
our $to;

sub import {
    shift;
    my %arg = @_;
    $from = $arg{from} || die "From what?\n";
    $to   = $arg{to} || die "To what?\n";
}

sub PUSHED {
    my ($class,$mode,$fh) = @_;
    my $buf = '';
    return bless \$buf,$class;
}

sub FILL {
    my ($obj,$fh) = @_;
    my $line = <$fh>;
    return (defined $line) ? convert($from, $to, $line) : undef;
}

sub WRITE {
    my ($obj,$buf,$fh) = @_;
    $$obj .= convert($from, $to, $buf);
    return length($buf);
}

sub FLUSH {
    my ($obj,$fh) = @_;
    print $fh $$obj or return -1;
    $$obj = '';
    return 0;
}

1;
__END__