File Coverage

blib/lib/Web/MarketReceipt/Order.pm

Criterion	Covered	Total	%
statement	12	15	80.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	21	80.9

package Web::MarketReceipt::Order;
use Mouse;
use Mouse::Util::TypeConstraints;
use utf8;

enum 'OrderState'       => qw/purchased canceled refunded expired/;
enum 'OrderEnvironment' => qw/Sandbox Production/;

has product_identifier => (
    is  => 'ro',
    isa => 'Str',
    required => 1,
);

has unique_identifier => (
    is  => 'ro',
    isa => 'Str',
    required => 1,
);

has purchased_epoch => (
    is       => 'ro',
    isa      => 'Int',
    required => 1,
);

has state => (
    is  => 'ro',
    isa => 'OrderState',
    required => 1,
);

has quantity => (
    is       => 'ro',
    isa      => 'Int',
    required => 1,
);

has environment => (
    is       => 'ro',
    isa      => 'OrderEnvironment',
    required => 1,
);

no Mouse;

sub dump {
    my $self = shift;
    +{
        (map {($_ => $self->$_)}
            qw/product_identifier unique_identifier purchased_epoch state quantity environment/)
    };
}

1;