From c5b1f2e7fe470018176932f7c66cc031ecdc2d11 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sun, 6 Dec 2015 23:58:18 +0200 Subject: [PATCH] Fix perlcritic complaints --- lib/WWW/Offliberty.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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/); } -- 2.39.2