Add perlcritic test and appease perlcritic

[www-backpacktf.git] / lib / WWW / BackpackTF.pm

diff --git a/lib/WWW/BackpackTF.pm b/lib/WWW/BackpackTF.pm
index 7f485d6900a3d6604759a0399cbd7fc8459dcbaf..06cfcf5075654b8f7d0de222848e9c9edfb2f1fb 100644 (file)
--- a/lib/WWW/BackpackTF.pm
+++ b/lib/WWW/BackpackTF.pm
@@ -7,9 +7,10 @@ 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,
        QUALITIES => [qw/Normal Genuine rarity2 Vintage rarity3 Unusual Unique Community Valve Self-Made Customized Strange Completed Haunted Collector's/],
 };
 
@@ -37,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
 }
 
@@ -89,7 +90,7 @@ WWW::BackpackTF - interface to the backpack.tf trading service
 
 =head1 DESCRIPTION
 
-WWW::BackpackTF is an interface to the backpack.tf Team Fortress 2/Dota 2 trading service.
+WWW::BackpackTF is an interface to the backpack.tf Team Fortress 2/Dota 2/Counter-Strike: Global Offensive trading service.
 
 =head2 METHODS
 
@@ -139,6 +140,10 @@ Constant (440) representing Team Fortress 2.
 
 Constant (570) representing Dota 2.
 
+=item B<CSGO>
+
+Constant (730) representing Counter-Strike: Global Offensive
+
 =item B<NORMAL>
 
 The Normal item quality (0).