X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FWebService%2FStrike.pm;fp=lib%2FWebService%2FStrike.pm;h=74a8c2b30ab05bc82315d92c245944b0bcce6614;hb=fceb2d419996e35f394d758d9b090e520cf7a218;hp=bf51deb54147c0fef1128d832a1032b417b88534;hpb=b1241fec123cd9dcc2e0e595dd018ad5655b637c;p=webservice-strike.git diff --git a/lib/WebService/Strike.pm b/lib/WebService/Strike.pm index bf51deb..74a8c2b 100644 --- a/lib/WebService/Strike.pm +++ b/lib/WebService/Strike.pm @@ -8,14 +8,14 @@ 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.003'; -our $BASE_URL = 'http://getstrike.net/api/v2/torrents'; +our $BASE_URL = 'https://getstrike.net/api/v2/torrents'; use JSON::MaybeXS qw/decode_json/; use HTTP::Tiny; use Sort::ByExample qw/sbe/; use WebService::Strike::Torrent; -sub _ht { HTTP::Tiny->new(agent => "WebService-Strike/$VERSION") } +sub _ht { HTTP::Tiny->new(agent => "WebService-Strike/$VERSION", verify_SSL => 1) } sub _query { my ($url) = @_; @@ -118,7 +118,7 @@ For example: =head1 SEE ALSO -L, L, L +L, L, L =head1 AUTHOR