File Coverage

blib/lib/WWW/BackpackTF/Currency.pm

Criterion	Covered	Total	%
statement	8	26	30.7
branch	0	2	0.0
condition			n/a
subroutine	3	15	20.0
pod	11	12	91.6
total	22	55	40.0

package WWW::BackpackTF::Currency;

use 5.014000;
use strict;
use warnings;
our $VERSION = '0.002001';

sub new{
	my ($class, $name, $content) = @_;
	$content->{name} = $name;
	bless $content, $class
}

sub name       { shift->{name} }
sub quality    { shift->{quality} }
sub priceindex { shift->{priceindex}}
sub single     { shift->{single} }
sub plural     { shift->{plural} }
sub round      { shift->{round} }
sub craftable  { shift->{craftable} eq 'Craftable' }
sub tradable   { shift->{tradable} eq 'Tradable' }
sub defindex   { shift->{defindex} }

sub quality_name { WWW::BackpackTF::QUALITIES->[shift->{quality}] }
sub stringify {
	my ($self, $nr) = @_;
	my $round = $self->round;
	$nr = sprintf "%.${round}f", $nr;
	my $suf = $nr == 1 ? $self->single : $self->plural;
	"$nr $suf";
}

1;
__END__