use warnings;
use parent qw/Exporter/;
-our @EXPORT = qw/strike strike_search/; ## no critic (ProhibitAutomaticExportation)
-our @EXPORT_OK = qw/strike_query strike strike_search/;
+our @EXPORT = qw/strike strike_search strike_imdb/; ## no critic (ProhibitAutomaticExportation)
+our @EXPORT_OK = (@EXPORT, 'strike_query');
our $VERSION = '0.003';
-our $BASE_URL = 'https://getstrike.net/api/v2/torrents';
+our $BASE_URL = 'https://getstrike.net/api/v2';
use JSON::MaybeXS qw/decode_json/;
use HTTP::Tiny;
if (@hashes > 50) {
return strike_query (@hashes[0 .. 49]), strike_query (@hashes[50 .. $#hashes]);
}
- my $url = "$BASE_URL/info/?hashes=" . join ',', map { uc } @hashes;
+ my $url = "$BASE_URL/torrents/info/?hashes=" . join ',', map { uc } @hashes;
my $sorter = sbe(\@hashes, {xform => sub { $_[0]->hash }});
my @torrents = $sorter->(_query $url);
sub strike_search {
my ($query, $full, %args) = @_;
$args{phrase} = $query;
- my $url = "$BASE_URL/search/?" . HTTP::Tiny->www_form_urlencode(\%args);
+ my $url = "$BASE_URL/torrents/search/?" . HTTP::Tiny->www_form_urlencode(\%args);
my @torrents = _query $url;
@torrents = $torrents[0] unless wantarray;
wantarray ? @torrents : $torrents[0]
}
+sub strike_imdb {
+ my ($id) = @_;
+ my $url = "$BASE_URL/media/imdb/?imdbid=$id";
+ my $response = _ht->get($url);
+ return unless $response->{success};
+ decode_json $response->{content}
+}
+
BEGIN { *strike = \&strike_query }
1;
say 'Torrent has ' . $mp->count . ' files. They are:';
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};
+
=head1 DESCRIPTION
Strike API is a service for getting information about a torrent given
strike_search 'windows', 0, category => 'Applications', sub_category => 'Windows';
+=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.
+
=back
=head1 SEE ALSO