projects
/
www-backpacktf.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 af3511ff372aedc2dbce18c4faa481c2d0bedb5e..06cfcf5075654b8f7d0de222848e9c9edfb2f1fb 100644
(file)
--- 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/;
our $VERSION = '0.000_003';
our @EXPORT_OK = qw/TF2 DOTA2/;
-use constant +{
+use constant +{
## no critic (Capitalization)
TF2 => 440,
DOTA2 => 570,
CSGO => 730,
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);
$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};
my $response = decode_json($htr->{content})->{response};
- die $response->{message} unless $response->{success};
+ die $response->{message} unless $response->{success};
## no critic (RequireCarping)
$response
}
$response
}
This page took
0.009487 seconds
and
4
git commands to generate.