From: Marius Gavrilescu <marius@ieval.ro>
Date: Sun, 6 Dec 2015 21:58:18 +0000 (+0200)
Subject: Fix perlcritic complaints
X-Git-Tag: 1.000002~4
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=c5b1f2e7fe470018176932f7c66cc031ecdc2d11;p=www-offliberty.git

Fix perlcritic complaints
---

diff --git a/lib/WWW/Offliberty.pm b/lib/WWW/Offliberty.pm
index 1163d9e..f14c0d8 100644
--- a/lib/WWW/Offliberty.pm
+++ b/lib/WWW/Offliberty.pm
@@ -12,12 +12,12 @@ use constant OFF_URL => 'http://offliberty.com/off02.php';
 use HTML::TreeBuilder;
 use HTTP::Tiny;
 
-our $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ", default_headers => {Referer => "http://offliberty.com/"});
+our $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ", default_headers => {Referer => 'http://offliberty.com/'});
 
 sub off{
 	my ($url, @params) = @_;
 	my $ret = $http->post_form(OFF_URL, {track => $url, @params});
-	die $ret->{reason} unless $ret->{success};
+	die $ret->{reason} unless $ret->{success}; ## no critic (RequireCarping)
 	my $root = HTML::TreeBuilder->new_from_content($ret->{content});
 	map { $_->attr('href') } $root->look_down(qw/_tag a class download/);
 }