From 5f1d9b7c1bbf83d54330f42cd7c2a2de39c9dfd2 Mon Sep 17 00:00:00 2001
From: Mithun Ayachit <m0t0rbr3th@gmail.com>
Date: Mon, 5 Mar 2012 20:49:30 -0600
Subject: [PATCH] added a POD helper for formatting. updated more test cases

---
 .author/_pod_helpers/synopsis.pl | 146 +++++++++++++++++++++++++++++++
 .author/_tests/00_test.pl        |   4 +
 2 files changed, 150 insertions(+)
 create mode 100644 .author/_pod_helpers/synopsis.pl

diff --git a/.author/_pod_helpers/synopsis.pl b/.author/_pod_helpers/synopsis.pl
new file mode 100644
index 0000000..4727055
--- /dev/null
+++ b/.author/_pod_helpers/synopsis.pl
@@ -0,0 +1,146 @@
+use TMDB;
+
+# Initialize
+my $tmdb = TMDB->new( apikey => 'xxxxxxxxxx' );
+
+# Search
+# =======
+
+# Search for a movie
+my @results = $tmdb->search->movie('Snatch');
+foreach my $result (@results) {
+    printf( "%s:\t%s (%s)\n",
+        $result->{id}, $result->{title},
+        split( /-/, $result->{release_date}, 1 ) );
+}
+
+# Search for an actor
+my @results = $tmdb->search->person('Sean Connery');
+foreach my $result (@results) {
+    printf( "%s:\t%s\n", $result->{id}, $result->{name} );
+}
+
+# Movie Data
+# ===========
+
+# Movie Object
+my $movie = $tmdb->movie( id => '107' );
+
+# Movie details
+my $movie_title     = $movie->title;
+my $movie_year      = $movie->year;
+my $movie_tagline   = $movie->tagline;
+my $movie_overview  = $movie->overview;
+my @movie_directors = $movie->director;
+my @movie_actors    = $movie->actors;
+
+printf( "%s (%s)\n%s", $movie_title, $movie_year,
+    '=' x length($movie_title) );
+printf( "Tagline: %s\n",     $movie_tagline );
+printf( "Overview: %s\n",    $movie_overview );
+printf( "Directed by: %s\n", join( ',', @movie_directors ) );
+print("\nCast:\n");
+printf( "\t-%s\n", $_ ) for @movie_actors;
+
+# Person Data
+# ===========
+
+# Person Object
+my $person = $tmdb->person( id => '1331' );
+
+# Person Details
+my $person_name   = $person->name;
+my $person_bio    = $person->bio;
+my @person_movies = $person->starred_in;
+
+printf( "%s\n%s\n%s\n",
+    $person_name, '=' x length($person_name), $person_bio );
+print("\nActed in:\n");
+printf( "\t-%s\n", $_ ) for @person_movies;
+
+### New
+
+# Initialize
+my $tmdb = TMDB->new(
+    apikey => 'xxxxxxxxxx...',  # API Key
+    lang   => 'en',             # A valid ISO 639-1 (Aplha-2) language code
+    client => $http_tiny,       # A valid HTTP::Tiny object
+    json   => $json_object,     # A Valid JSON object
+);
+
+### Config
+
+# Get Config
+my $config = $tmdb->config;
+print Dumper $config->config;   # Get all of it
+
+# Get the base URL
+my $base_url = $config->img_base_url();
+
+# Sizes (All are array-refs)
+my $poster_sizes   = $config->img_poster_sizes();
+my $backdrop_sizes = $config->img_backdrop_sizes();
+my $profile_sizes  = $config->img_profile_sizes();
+
+### Movies
+
+# Get the movie object
+my $movie = $tmdb->movie( id => '107' );
+
+# Movie Data (as returned by the API)
+use Data::Dumper qw(Dumper);
+print Dumper $movie->info;
+print Dumper $movie->alternative_titles;
+print Dumper $movie->cast;
+print Dumper $movie->crew;
+print Dumper $movie->images;
+print Dumper $movie->keywords;
+print Dumper $movie->releases;
+print Dumper $movie->trailers;
+print Dumper $movie->translations;
+
+# Filtered Movie data
+print $movie->title;
+print $movie->year;
+print $movie->tagline;
+print $movie->overview;
+print $movie->description;         # Same as `overview`
+print $movie->imdb_id;
+print $movie->genres;
+print $movie->actors;              # Names of Actors
+print $movie->director;            # Names of Directors
+print $movie->producer;            # Names of Producers
+print $movie->executive_producer;  # Names of Executive Producers
+print $movie->writer;              # Names of Writers/Screenplay
+
+# Images
+print $movie->poster;              # Main Poster
+print $movie->posters;             # list of posters
+print $movie->backdrop;            # Main backdrop
+print $movie->backdrops;           # List of backdrops
+print $movie->trailers_youtube;    # List of Youtube trailers URLs
+
+# Latest Movie on TMDB
+print Dumper $movie->latest;
+
+### People
+
+# Get the person object
+my $person = $tmdb->person( id => '1331' );
+
+# Movie Data (as returned by the API)
+use Data::Dumper qw(Dumper);
+print Dumper $person->info;
+print Dumper $person->credits;
+print Dumper $person->images;
+
+# Filtered Person data
+print $person->name;
+print $person->aka;                 # Also Known As (list of names)
+print $person->bio;
+print $person->image;               # Main profile image
+print $person->starred_in;          # List of titles (as cast)
+print $person->directed;            # list of titles Directed
+print $person->produced;            # list of titles produced
+print $person->executive_produced;  # List of titles as an Executive Producer
+print $person->wrote;               # List of titles as a writer/screenplay
diff --git a/.author/_tests/00_test.pl b/.author/_tests/00_test.pl
index 89b1a4c..9e6dd36 100755
--- a/.author/_tests/00_test.pl
+++ b/.author/_tests/00_test.pl
@@ -127,6 +127,10 @@
         o => [ $tmdb->movie( id => $movie_id )->title ],
         m => "Movie title"
     );
+    _dump(
+        o => [ $tmdb->movie( id => $movie_id )->year ],
+        m => "Movie year"
+    );
     _dump(
         o => [ $tmdb->movie( id => $movie_id )->tagline ],
         m => "Movie tagline"