File Coverage

blib/lib/Object/eBay/Currency.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	11	12	91.6
pod	4	5	80.0
total	52	56	92.8

package Object::eBay::Currency;
our $VERSION = '0.5.1';

use Class::Std; {
    use warnings;
    use strict;
    use Carp;

    my %value_for       :ATTR( :get       );
    my %currency_id_for :ATTR( :get );

    sub BUILD {
        my ($self, $ident, $args_ref) = @_;
        my $details = $args_ref->{object_details};

        my $msg = "Missing 'content' and/or 'currencyID'\n";
        my $content = $details->{content};
        my $id = $details->{currencyID};
        croak $msg if !defined($content) || !defined($id);

        $value_for{$ident}       = $details->{content};
        $currency_id_for{$ident} = $details->{currencyID};
    }

    sub as_string :STRINGIFY {
        my ($self) = @_;
        return $self->get_currency_id() . sprintf('%.2f', $self->get_value());
    }

    # aliases providing naming similar to other Object::eBay classes
    sub value       :NUMERIFY { $_[0]->get_value()       }
    sub as_bool     :BOOLIFY  { $_[0]->get_value() != 0  }
    sub currency_id           { $_[0]->get_currency_id() }
}

1;

__END__