use strict;
use warnings;
use parent qw/Exporter/;
-our $VERSION = '0.000_003';
+our $VERSION = '0.001001';
our @EXPORT_OK = qw/TF2 DOTA2/;
-use constant +{
+use constant +{ ## no critic (Capitalization)
TF2 => 440,
DOTA2 => 570,
CSGO => 730,
$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
}
1;
__END__
+=encoding utf-8
+
=head1 NAME
WWW::BackpackTF - interface to the backpack.tf trading service
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2014 by Marius Gavrilescu
+Copyright (C) 2014-2016 by Marius Gavrilescu
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.18.2 or,