File Coverage

blib/lib/MetaTrans/SlovnikZcuCz.pm

Criterion	Covered	Total	%
statement	21	61	34.4
branch	0	10	0.0
condition	0	6	0.0
subroutine	7	11	63.6
pod	3	3	100.0
total	31	91	34.0

=head1 NAME

MetaTrans::SlovnikZcuCz - MetaTrans plug-in for L

=cut

package MetaTrans::SlovnikZcuCz;

use strict;
use warnings;
use vars qw($VERSION @ISA);
use MetaTrans::Base qw(convert_to_utf8);

use Encode qw(decode_utf8 encode);
use HTTP::Request;
use URI::Escape;

$VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d", @r };
@ISA     = qw(MetaTrans::Base);

=head1 CONSTRUCTOR METHODS

=over 4

=item MetaTrans::SlovnikZcuCz->new(%options)

This method constructs a new MetaTrans::SlovnikZcuCz object and returns it. All
C<%options> are passed to C<< MetaTrans::Base->new >>. The method also sets
supported translation directions and the C attribute.

=back

=cut

sub new
{
    my $class   = shift;
    my %options = @_;

    $options{host_server} = "slovnik.zcu.cz"
        unless (defined $options{host_server});

    my $self = new MetaTrans::Base(%options);
    $self = bless $self, $class;

    # set supported languages
    $self->set_languages("cze", "eng");

    $self->set_dir_1_to_all("cze");
    $self->set_dir_all_to_1("cze");

    return $self;
}

=head1 METHODS

Methods are inherited from C. Following methods are overriden:

=cut

=over 4

=item $plugin->create_request($expression, $src_lang_code, $dest_lang_code)

Create and return a C object to be used for retrieving
translation of the C<$expression> from C<$src_lang_code> language to
C<$dest_lang_code> language.

=cut

sub create_request
{
    my $self           = shift;
    my $expression     = shift;
    my $src_lang_code  = shift;
    my $dest_lang_code = shift;

    # convert to perl internal form
    $expression = decode_utf8($expression);

    # convert to iso-8859-2
    $expression = uri_escape(encode('iso-8859-2', $expression));

    my $request = HTTP::Request->new(POST => "http://slovnik.zcu.cz/online/index.php");
    $request->content_type('application/x-www-form-urlencoded');
    $request->content("word=$expression");

    return $request;
}

=item $plugin->process_response($contents, $src_lang_code, $dest_lang_code)

Process the server response contents. Return the result of the translation in
an array of following form:

    (expression_1, translation_1, expression_2, translation_2, ...)

=back

=cut

sub process_response
{
    my $self           = shift;
    my $contents       = shift;
    my $src_lang_code  = shift;
    my $dest_lang_code = shift;

    # the output is in iso-8859-2 character encoding with HTML entities,
    # let's convert it to UTF-8
    $contents = convert_to_utf8('iso-8859-2', $contents);

    my @result;
    while ($contents =~ m|
        ]*>\s+
        ]*>\s+
        \s+

        (.*?)