our @EXPORT = qw/strike strike_search strike_imdb/; ## no critic (ProhibitAutomaticExportation)
our @EXPORT_OK = (@EXPORT, 'strike_query');
-our $VERSION = '0.004002';
+our $VERSION = '0.004003';
our $BASE_URL = 'https://getstrike.net/api/v2';
use JSON::MaybeXS qw/decode_json/;
my $url = "$BASE_URL/media/imdb/?imdbid=$id";
my $response = _ht->get($url);
return unless $response->{success};
- decode_json $response->{content}
+ my %imdb = %{decode_json $response->{content}};
+ $imdb{lc $_} = delete $imdb{$_} for keys %imdb; ## no critic (ProhibitUselessTopic)
+ \%imdb
}
BEGIN { *strike = \&strike_query }
say join ' ', @{$mp->file_names};
my $info = strike_imdb 'tt1520211';
- say 'IMDB ID ', $info->{imdbID}, ' is ', $info->{title}, ' (', $info->{year}, ')';
- say 'Plot (short): ', $info->{shortPlot};
+ say 'IMDB ID ', $info->{imdbid}, ' is ', $info->{title}, ' (', $info->{year}, ')';
+ say 'Plot (short): ', $info->{shortplot};
=head1 DESCRIPTION
=item B<strike_imdb>(I<$imdb_id>)
Get informaton about a movie from IMDB. Takes an IMDB ID and returns a
-hashef of unspecified format.
+hashref of unspecified format. All keys are lowercased.
=back