Bump version and update Changes
[www-backpacktf.git] / lib / WWW / BackpackTF.pm
index af3511ff372aedc2dbce18c4faa481c2d0bedb5e..ad39d73175774356775477f0a1d31cd1cedb246d 100644 (file)
@@ -4,10 +4,10 @@ use 5.014000;
 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,
@@ -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
 }
 
@@ -72,6 +72,8 @@ sub get_currencies {
 1;
 __END__
 
+=encoding utf-8
+
 =head1 NAME
 
 WWW::BackpackTF - interface to the backpack.tf trading service
@@ -216,7 +218,7 @@ Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
 
 =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,
This page took 0.010368 seconds and 4 git commands to generate.