File Coverage

blib/lib/Business/Payment/ClearingHouse/Charge.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Business::Payment::ClearingHouse::Charge;
use Moose;

has 'currency' => (
    is => 'ro',
    isa => 'Str'
);

has 'id' => (
    is => 'ro',
    isa => 'Str'
);

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

has 'subtotal' => (
    is => 'ro',
    isa => 'Int',
    default => 0
);

has 'tax' => (
    is => 'ro',
    isa => 'Int',
    default => 0
);

sub total {
    my ($self) = @_;

    return $self->subtotal + $self->tax;
}

__PACKAGE__->meta->make_immutable;

no Moose;

1;