File Coverage

blib/lib/Web/MarketReceipt.pm

Criterion	Covered	Total	%
statement	17	21	80.9
branch	0	2	0.0
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	24	31	77.4

package Web::MarketReceipt;
use 5.010000;
our $VERSION = "0.06";

use Mouse;
use Mouse::Util::TypeConstraints;
use utf8;

use Web::MarketReceipt::Order;

subtype 'ArrayRefWebMarketReceiptOrder',
    as 'ArrayRef[Web::MarketReceipt::Order]';

coerce 'ArrayRefWebMarketReceiptOrder'
    => from 'ArrayRef',
    => via { [ map { Web::MarketReceipt::Order->new($_) } @$_ ] };

has is_success => (
    is       => 'ro',
    isa      => 'Bool',
    required => 1,
);

has raw => (
    is       => 'ro',
    required => 1,
);

has orders => (
    is     => 'ro',
    isa    => 'ArrayRefWebMarketReceiptOrder',
    coerce => 1,
);

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

no Mouse;

sub dump {
    my $self = shift;

    +{
        is_success => $self->is_success,
        raw        => $self->raw,
        ($self->orders ? (orders => [map {$_->dump} @{ $self->orders }]) : ())
    };
}

1;
__END__