]>
iEval git - www-backpacktf.git/blob - lib/WWW/BackpackTF/Item.pm
1 package WWW
:: BackpackTF
:: Item
;
6 our $VERSION = '0.002' ;
9 my ( $class , $name , $content ) = @_ ;
10 $content ->{ name
} = $name ;
11 bless $content , $class
14 sub name
{ shift ->{ name
} }
15 sub defindex
{ wantarray ? @
{ shift ->{ defindex
}} : shift ->{ defindex
}->[ 0 ] }
17 my ( $self , $quality , $tradable , $craftable , $priceindex ) = ( @_ , 6 , 1 , 1 );
18 $tradable = $tradable ?
'Tradable' : 'Non-Tradable' ;
19 $craftable = $craftable ?
'Craftable' : 'Non-Craftable' ;
20 my $price = shift ->{ prices
}->{ $quality }->{ $tradable }->{ $craftable };
21 defined $priceindex ?
$price ->{ $priceindex } : $price ->[ 0 ]
31 WWW::BackpackTF::Item - Class representing item information
35 use WWW::BackpackTF qw/VINTAGE GENUINE UNUSUAL/;
36 use Data::Dumper qw/Dumper/;
38 my $bp = WWW::BackpackTF->new(key => '...');
39 my @items = $bp->get_prices;
41 say 'Name: ', $item->name;
42 say 'Linked defindexes: ', join ' ', $item->defindex;
43 say 'Price of Unique, Tradable, Craftable version: ', $item->price;
44 say 'Price of Vintage, Tradable, Craftable version: ', Dumper $item->price(VINTAGE);
45 say 'Price of Vintage, Non-Tradable, Craftable version: ', Dumper $item->price(VINTAGE, 0);
46 say 'Price of Genuine, Non-Tradable, Non-Craftable version: ', Dumper $item->price(GENUINE, 0, 0);
47 say 'Price of Unusual, Tradable, Craftable version with effect 10: ', Dumper $item->price(UNUSUAL, 1, 1, 10);
51 WWW::BackpackTF::Item is a class representing price information about an item.
63 In list context, a list of defindexes linked to the item. In scalar context, the first such defindex.
65 =item B<price>([I<$quality>, [I<$tradable>, [I<$craftable>, [I<$priceindex>]]]])
67 The price of an item. Takes four optional arguments: the quality (defaults to 6, which is Unique), the tradability of the item (defaults to true), the craftability of an item (defaults to true), and the priceindex (crate series/unusual effect, defaults to none).
69 Returns an hashref with the following keys/values:
75 The currency the item's price is in.
83 If present, the upper range of the price range.
87 The price in the lowest currency, without rounding. Only present if get_prices was called with a true value for $raw.
91 Timestamp of last price update.
95 The difference bitween the former price and the current price. 0 if the current price is new.
103 L<http://backpack.tf/api/IGetPrices>
107 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
109 =head1 COPYRIGHT AND LICENSE
111 Copyright (C) 2014-2016 by Marius Gavrilescu
113 This library is free software; you can redistribute it and/or modify
114 it under the same terms as Perl itself, either Perl version 5.18.2 or,
115 at your option, any later version of Perl 5 you may have available.
This page took 0.056923 seconds and 5 git commands to generate.