From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 28 Mar 2015 12:44:05 +0000 (+0200)
Subject: Support more than 50 hashes in strike_query
X-Git-Tag: 0.003~1
X-Git-Url: http://git.ieval.ro/?p=webservice-strike.git;a=commitdiff_plain;h=0e74b120552a93c7c85a73d65fccfd93c4705e5a

Support more than 50 hashes in strike_query
---

diff --git a/lib/WebService/Strike.pm b/lib/WebService/Strike.pm
index 396ec48..426a113 100644
--- a/lib/WebService/Strike.pm
+++ b/lib/WebService/Strike.pm
@@ -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 }});