File Coverage

blib/lib/WWW/Cache/Google/Imode.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package WWW::Cache::Google::Imode;
2              
3 1     1   8295 use strict;
  1         2  
  1         37  
4 1     1   4 use vars qw($VERSION);
  1         2  
  1         53  
5             $VERSION = 0.04;
6              
7             require WWW::Cache::Google;
8 1     1   4 use base qw(WWW::Cache::Google);
  1         2  
  1         679  
9              
10             sub cache_base {
11 4     4 0 14 return 'http://wmlproxy.google.com/chtmltrans/p=i/s=0/u=%s/c=0';
12             }
13              
14             sub _cache_param {
15 4     4   5 my $self = shift;
16 4         19 my $param = $self->SUPER::_cache_param();
17 4         422 $param =~ tr/%/@/;
18 4         25 return $param;
19             }
20              
21              
22             1;
23             __END__