package WWW::Cache::Google::Imode;

use strict;
use vars qw($VERSION);
$VERSION = 0.04;

require WWW::Cache::Google;
use base qw(WWW::Cache::Google);

sub cache_base {
    return 'http://wmlproxy.google.com/chtmltrans/p=i/s=0/u=%s/c=0';
}

sub _cache_param {
    my $self = shift;
    my $param = $self->SUPER::_cache_param();
    $param =~ tr/%/@/;
    return $param;
}


1;
__END__


=head1 NAME

WWW::Cache::Google::Imode - URI class for Google proxy on i-mode

=head1 SYNOPSIS

  use WWW::Cache::Google::Imode;

  $cache = WWW::Cache::Google::Imode->new('http://www.yahoo.com/');

  $url  = $cache->as_string;	# cache URL
  $html = $cache->fetch; 	# fetches via LWP::Simple

=head1 DESCRIPTION

Easy conversion from HTML to CHTML. That's google on i-mode!

WWW::Cache::Google::Imode provides an easy way conversion from an URL
to Google i-mode proxy/cache URL.

=head1 METHODS

Same as WWW::Cache::Google.

=head1 AUTHOR

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

It comes WITHOUT WARRANTY OF ANY KIND. 

=head1 SEE ALSO

L<WWW::Cache::Google>.

=cut