CPAN::Groonga

DB::JSON

=head1 DESCRIPTION

Search IMDB for a specific title, process the result and extract the JSON script within. Process the JSON script and return a hash reference.

=cut

package IMDB::JSON;

JSON::VERSION = "0.05";

use strict;
use HTML::TokeParser;
use LWP::Simple qw($ua get);
use IO::Socket::SSL;
use JSON::XS;

=head1 SYNOPSIS

 use IMDB::JSON;
 use Data::Dumper;

 my $IMDB = IMDB::JSON

IMDB::JSON object, options can be passed to the object by specifying them

=head3 OPTIONS

=over

=item base_url

The base URL to start from. This is usually https://www.imdb.com

=item raw_json

If t

mple script on how to use IMDB::JSON to lookup movie data
# against the internet movie database (www.imdb.com)

use IMDB::JSON;
use Data::Dumper;

my $IMDB = IMDB::JSON->new;

if($ARGV[0] =~ /^(tt\d+)