X-Git-Url: http://git.ieval.ro/?p=www-backpacktf.git;a=blobdiff_plain;f=lib%2FWWW%2FBackpackTF.pm;h=06cfcf5075654b8f7d0de222848e9c9edfb2f1fb;hp=af3511ff372aedc2dbce18c4faa481c2d0bedb5e;hb=116816ee6a9c86f7223fac7348087ae238a0372c;hpb=921096c3dd19c68c1045e3119600364b69de5af7

diff --git a/lib/WWW/BackpackTF.pm b/lib/WWW/BackpackTF.pm
index af3511f..06cfcf5 100644
--- a/lib/WWW/BackpackTF.pm
+++ b/lib/WWW/BackpackTF.pm
@@ -7,7 +7,7 @@ use parent qw/Exporter/;
 our $VERSION = '0.000_003';
 our @EXPORT_OK = qw/TF2 DOTA2/;
 
-use constant +{
+use constant +{ ## no critic (Capitalization)
 	TF2 => 440,
 	DOTA2 => 570,
 	CSGO => 730,
@@ -38,9 +38,9 @@ sub request {
 	$url = $self->{base} . $url;
 	$url .= "&$_=$params{$_}" for keys %params;
 	my $htr = $ht->get($url);
-	die $htr->{reason} unless $htr->{success};
+	die $htr->{reason} unless $htr->{success}; ## no critic (RequireCarping)
 	my $response = decode_json($htr->{content})->{response};
-	die $response->{message} unless $response->{success};
+	die $response->{message} unless $response->{success}; ## no critic (RequireCarping)
 	$response
 }