use warnings;
use parent qw/Exporter/;
-our @EXPORT = qw/strike strike_search strike_imdb/; ## no critic (ProhibitAutomaticExportation)
+our @EXPORT = qw/strike strike_search strike_imdb/;
our @EXPORT_OK = (@EXPORT, 'strike_query');
-our $VERSION = '0.003';
+our $VERSION = '0.006';
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 }
=head1 NAME
-WebService::Strike - Get torrent info from getstrike.net API
+WebService::Strike - [OBSOLETE] Get torrent info from the now-discontinued getstrike.net API
=head1 SYNOPSIS
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
+B<The API was discontinued. The code in this module remains, but it
+does not achieve any useful purpose.>
+
Strike API is a service for getting information about a torrent given
its info hash. WebService::Strike is a wrapper for this service.
=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
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2015 by Marius Gavrilescu
+Copyright (C) 2015-2016 by Marius Gavrilescu
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.20.2 or,