File Coverage

blib/lib/REST/Google/Translate.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             #
2             # $Id: Translate.pm 14 2008-04-30 09:32:59Z esobchenko $
3              
4             package REST::Google::Translate;
5              
6 2     2   90964 use strict;
  2         9  
  2         106  
7 2     2   13 use warnings;
  2         6  
  2         77  
8              
9 2     2   2547 use version; our $VERSION = qv('1.0.8');
  2         18897  
  2         16  
10              
11             require Exporter;
12             require REST::Google;
13 2     2   236 use base qw/Exporter REST::Google/;
  2         12  
  2         1601  
14              
15             __PACKAGE__->service('http://ajax.googleapis.com/ajax/services/language/translate');
16              
17             sub responseData {
18 1     1 1 9225 my $self = shift;
19 1         293 return bless $self->{responseData}, 'REST::Google::Translate::Data';
20             }
21              
22             package # hide from CPAN
23             REST::Google::Translate::Data;
24              
25             require Class::Accessor;
26 2     2   16 use base qw/Class::Accessor/;
  2         4  
  2         228  
27              
28             __PACKAGE__->mk_ro_accessors( qw/translatedText/ );
29              
30             1;