prepare to release

1 files changed, 4 insertions, 22 deletions

diff --git a/lib/WebService/Google/Suggest.pm b/lib/WebService/Google/Suggest.pm
index e1d6598..bef6993 100644
--- a/lib/WebService/Google/Suggest.pm
+++ b/lib/WebService/Google/Suggest.pm
@@ -1,15 +1,15 @@
 package WebService::Google::Suggest;
 
+# ABSTRACT: Google Suggest as an API
+
 use strict;
-use vars qw($VERSION);
-$VERSION = '0.04';
+use warnings;
 
 use Carp;
 use LWP::UserAgent;
 use URI::Escape;
 
-use vars qw($CompleteURL);
-$CompleteURL = "http://www.google.com/complete/search?hl=en&js=true&qu=";
+our $CompleteURL = "http://www.google.com/complete/search?hl=en&js=true&qu=";
 
 sub new {
     my $class = shift;
@@ -37,7 +37,6 @@ sub complete {
     while ( $array =~ /\[([^\]]+)\]/g ) {        
         my $row = $1;
         my ( $query, $count, $rank ) = $row =~ /\"([^"]+)\",\"([\d]+)?\",\"([\d]+)?\"/;
-        $count =~ tr/,//d;
         $count += 0; # numify
         $rank  += 0;
         push @results, { query => $query, results => $count, rank => $rank };
@@ -49,10 +48,6 @@ sub complete {
 1;
 __END__
 
-=head1 NAME
-
-WebService::Google::Suggest - Google Suggest as an API
-
 =head1 SYNOPSIS
 
   use WebService::Google::Suggest;
@@ -105,19 +100,6 @@ properties.
 
 =back
 
-=head1 AUTHOR
-
-Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>
-
-Franck Cuny E<lt>franck@lumberjaph.netE<gt>
-
-=head1 LICENSE
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-This module gives you B<NO WARRANTY>.
-
 =head1 SEE ALSO
 
 http://www.adamstiles.com/adam/2004/12/hacking_google_.html