lib/Frey/Translate.pm

package Frey::Translate;
use Moose;
use REST::Google::Translate;

=head1 DESCRIPTION

translate text using L<REST::Google::Translate>

=cut

has 'text' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has 'from' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'jp',
);

has 'to' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'en',
);

use Data::Dump qw/dump/;

sub data {
        my ( $self ) = @_;

        REST::Google::Translate->http_referer('http://localhost/');

        my $res = REST::Google::Translate->new(
                q => $self->text,
                langpair => $self->from . '|' . $self->to,
        );

        die "response status failure", dump($res) if $res->responseStatus != 200;

        return $res->responseData->translatedText;
}

1;
1	dpavlin	291	package Frey::Translate;
2			use Moose;
3			use REST::Google::Translate;
4
5			=head1 DESCRIPTION
6
7			translate text using L<REST::Google::Translate>
8
9			=cut
10
11			has 'text' => (
12			is => 'rw',
13			isa => 'Str',
14			required => 1,
15			);
16
17			has 'from' => (
18			is => 'rw',
19			isa => 'Str',
20			required => 1,
21			default => 'jp',
22			);
23
24			has 'to' => (
25			is => 'rw',
26			isa => 'Str',
27			required => 1,
28			default => 'en',
29			);
30
31			use Data::Dump qw/dump/;
32
33			sub data {
34			my ( $self ) = @_;
35
36			REST::Google::Translate->http_referer('http://localhost/');
37
38			my $res = REST::Google::Translate->new(
39			q => $self->text,
40			langpair => $self->from . '\|' . $self->to,
41			);
42
43			die "response status failure", dump($res) if $res->responseStatus != 200;
44
45			return $res->responseData->translatedText;
46			}
47
48			1;