ebService::YQL;
use strict;
use warnings;
use URI;
use URI::QueryParam;
use LWP::UserAgent;
use JSON::Any;
BEGIN {
use vars qw($VERSION);
$VERSION = '0.04';
}
=head1 NAME
WebService::
oo Query Language service. Instead of
manually sending a GET request to Yahoo and getting XML or JSON you can
now use a simple function call and get a deep Perl data structure.
=head1 USAGE
my $
...
# Instantiate helper objects
$self->{'_ua'} = LWP::UserAgent->new;
$self->{'_json'} = JSON::Any->new;
return $self;
}
=head2 query
Run an YQL query. Accepts one argument, the q