Yet Another CPAN Grep

WWW-YQL ( C/CW/CWIMMER/WWW-YQL-0.001.tar.gz, CWIMMER, 2012; MetaCPAN )

WWW-YQL/lib/WWW/YQL.pm ( view source; MetaCPAN )

P::UserAgent;
use JSON::Any;


# ABSTRACT: Module for YQL queries
# PODNAME: WWW::YQL

has 'ua' => (
    is  => 'rw',
    isa => 'Object',
    predicate => 'has_ua',
    );

has 'json_parser' => (

isa => 'Object',
    predicate => 'has_json_parser',
    );


sub BUILD{
    my $self=shift;
    $self->ua(new LWP::UserAgent());
    $self->json_parser(new JSON::Any)
}


sub query{
    my $self=shif

I, {
	    'q'      => $query,
	    'format' => 'json',
				   });
    }else{
	$URI->query_form( 'q' => $query );
	$URI->query_param( 'format'   => 'json' );
	$req = HTTP::Request->new(GET => $URI);
	$