Bump version and update Changes

[webservice-strike.git] / lib / WebService / Strike.pm

diff --git a/lib/WebService/Strike.pm b/lib/WebService/Strike.pm
index 396ec48676ba61990710417fc734ec9d17032f99..bf51deb54147c0fef1128d832a1032b417b88534 100644 (file)
--- a/lib/WebService/Strike.pm
+++ b/lib/WebService/Strike.pm
@@ -7,7 +7,7 @@ use parent qw/Exporter/;
 
 our @EXPORT    = qw/strike strike_search/; ## no critic (ProhibitAutomaticExportation)
 our @EXPORT_OK = qw/strike_query strike strike_search/;
-our $VERSION = '0.002';
+our $VERSION = '0.003';
 our $BASE_URL = 'http://getstrike.net/api/v2/torrents';
 
 use JSON::MaybeXS qw/decode_json/;
@@ -30,6 +30,9 @@ sub _query {
 
 sub strike_query {
        my (@hashes) = @_;
+       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 $sorter = sbe(\@hashes, {xform => sub { $_[0]->hash }});