sub new {
        my $class = shift;

        my $args = $class->_get_args(@_);

        croak "attempting to perform request without setting a service URL"
                unless ( defined $class->service );

        my $uri = URI->new( $class->service );
        $uri->query_form( $args );

        unless ( defined $class->http_referer ) {
                carp "attempting to search without setting a valid http referer header";
                $class->http_referer( DEFAULT_REFERER );
        }

        my $request = HTTP::Request->new( GET => $uri, [ 'Referer', $class->http_referer ] );

        my $ua = LWP::UserAgent->new();
        $ua->env_proxy;

        my $response = $ua->request( $request );

        croak sprintf qq/HTTP request failed: %s/, $response->status_line
                unless $response->is_success;

        my $content = $response->content;

        my $json = JSON::Any->new();
        my $self = $json->decode($content);

        return bless $self, $class;
}
sub new {
        my $class = shift;

        my $args = $class->_get_args(@_);

        croak "attempting to perform request without setting a service URL"
                unless ( defined $class->service );

        my $uri = URI->new( $class->service );
        $uri->query_form( $args );

        unless ( defined $class->http_referer ) {
                carp "attempting to search without setting a valid http referer header";
                $class->http_referer( DEFAULT_REFERER );
        }

        my $request = HTTP::Request->new( GET => $uri, [ 'Referer', $class->http_referer ] );

        my $ua = LWP::UserAgent->new();
        $ua->env_proxy;

        my $response = $ua->request( $request );

        croak sprintf qq/HTTP request failed: %s/, $response->status_line
                unless $response->is_success;

        my $content = $response->content;

        my $json = JSON::Any->new();
        my $self = $json->decode($content);

        return bless $self, $class;
}