File Coverage

blib/lib/PerlIO/via/Babelfish.pm

Criterion	Covered	Total	%
statement	25	31	80.6
branch	3	8	37.5
condition	2	7	28.5
subroutine	6	8	75.0
pod	0	3	0.0
total	36	57	63.1

# $Id: Babelfish.pm,v 1.2 2003/09/03 15:11:03 cvspub Exp $
package PerlIO::via::Babelfish;
use strict;
our $VERSION = '0.01';

our $fish;
our @setting_keys = qw(source target proxy agent);
our %setting;

use WWW::Babelfish;

sub import {
    shift;
    my $arg = ref($_[0]) ? $_[0] : {@_};
    foreach my $s ( @setting_keys ){
	$setting{$s} = $arg->{$s};
    }
    $setting{agent} ||= 'Mozilla/8.0';
    $setting{proxy} ||= 'proxy.ntu.edu.tw:3128';
    $fish = new WWW::Babelfish(
			       'agent' => $setting{agent},
			       'proxy' => $setting{proxy},
			       );
}

sub unimport {
    undef $fish;
}

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

sub FILL {
    my ($obj,$fh) = @_;
    my $line = <$fh>;
    if( ref($fish) and defined $line ){
	return $fish->translate(
				'source' => $setting{source},
				'destination' => $setting{target},
				'text' => $line,
				'delimiter' => '',
				);
    }
    else{
        return undef;
    }
}

sub WRITE {
    my ($obj,$buf,$fh) = @_;
    my $bt;
    $$obj .= $bt = ref($fish) ?
	$fish->translate(
			 'source' => $setting{source},
			 'destination' => $setting{target},
			 'text' => $buf,
			 'delimiter' => '',
			    ) :
				$buf;
    $obj->FLUSH($fh);
    return length($bt);
}

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




1;
__END__