CPAN::Groonga

    require Term::ProgressBar;
    $progress = Term::ProgressBar->new(
      {
        name   => 'jsonize movie information',
        count  => scalar @listOfMovieToRetrieve,
        remove => 1
     

);
  $movie->myrating( $ref_movies->{$id}->{rating} );

  my $json = $movie->toJSON();
  $json > io( $destination . '/json/' . $id . '.json' );

  $count++;
  $progress->update($count) if $progress;
}

estination;
  mkdir $destination . '/json';
  return;
}

sub getListOfLocalMovieId {
  my @listOfLocalMovie = ();
  my @content          = io( $destination . '/json' )->all();
  foreach my $file (@con

package FilmAffinity::Movie;

use strict;
use warnings;

use JSON;
use Encode;
use Readonly;
use Scalar::Util qw(looks_like_number);
use Text::Trim;
use LWP::RobotUA;
use HTML::TreeBuilder;
use HTML::

img"]/img/@title';
my $XPATH_COVER   = '//div[@id="movie-main-image-container"]/a/img/@src';

my @JSON_FIELD = qw(
  id title year synopsis website duration cast director composer screenwriter
  cinem

rn;
}



=head2 $movie->toJSON()

This method will export all movie informations in JSON format

=cut

sub toJSON {
  my $self = shift;

  my %data;
  foreach my $field (@JSON_FIELD){
    $data{$field

vie-info.pl

=head1 DESCRIPTION

Get information from filmaffinity about a film and print them in JSON format

=head1 VERSION

Version 1.01

=head1 USAGE

  filmaffinity-get-movie-info.pl --id=123456

--id=123456 --delay=2

  filmaffinity-get-movie-info.pl --id=932476 --output=/home/william/matrix.json

=head1 REQUIRED ARGUMENTS

=over 2

=item --id=932476

movie id from filmaffinity

=back

=head1

over 2

=item --delay=3

delay between requests

=item --output=/home/william/matrix.json

output json file

=back

=cut

our $VERSION = '1.01';

Readonly my $DELAY => 5;

my ( $movieID, $delay, $outp