File Coverage

blib/lib/Net/Google/tool.pm

Criterion	Covered	Total	%
statement	14	45	31.1
branch	1	16	6.2
condition			n/a
subroutine	3	7	42.8
pod	0	4	0.0
total	18	72	25.0

package Net::Google::tool;
use strict;

$Net::Google::tool::VERSION = '1.1';

use Carp;

my %_queries = ();

sub init {
  my $self    = shift;
  my $service = shift;

  # old skool / new skool
  # arguments.

  my $first_arg   = shift;
  my $poss_second = shift;

  # What everyone will actually
  # play with.

  my $args = undef;

  #

  if (ref($first_arg) eq "GoogleSearchService") {
    $self->{'_service'} = $first_arg;
    $args = $poss_second;
  }

  else {
    $args = $first_arg;

    require Net::Google::Service;

    $self->{'_service'} = Net::Google::Service->$service($args);
    if (! $self->{'_service'}) { return 0; }
  }

  #

  if (! $args->{'key'}) {
    carp "You must define a key";
    return 0;
  }

  $self->key($args->{'key'});

  #

  return $args;
}

sub _queries {
    my $self  = shift;
    my $count = shift;

    my $key = $self->key();

    if (! exists($_queries{$key})) {
	$_queries{$key} = 0;
    }

    if (int($count)) {
	$_queries{$key} += int($count);
    }

    return $_queries{$key};
}

sub queries_exhausted {
    my $self = shift;
    return ($self->_queries() >= 1000) ? 1 : 0;
}

sub key {
  my $self = shift;
  my $key  = shift;

  if (defined($key)) {
    $self->{'_key'} = $key;
  }

  return $self->{'_key'};
}

sub http_proxy {
  my $self = shift;
  my $uri  = shift;

  if ($uri) {
    # See notes in Net::Google::Service->_soap()
    shift->{'_service'}->transport()->proxy($uri)->proxy(http=>$uri);
    $self->{'_http_proxy'} = $uri;
  }

  return $self->{'_http_proxy'};
}

return 1;

__END__