File Coverage

blib/lib/Net/Flotum/Object/Charge.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	25	28	89.2

package Net::Flotum::Object::Charge;
use common::sense;
use Moo;
use MooX::late;
use Carp;

has flotum => (
    is       => "ro",
    weak_ref => 1,
    required => 1,
);

has id => (
    is       => "rw",
    isa      => "Str",
    required => 1,
);

has customer => (
    is       => "rw",
    isa      => "Net::Flotum::Object::Customer",
    weak_ref => 1,
);

sub payment {
    my $self = shift;

    return $self->flotum->_payment_charge(@_, charge => $self);
}

sub capture {
    my $self = shift;

    return $self->flotum->_capture_charge(@_, charge => $self);
}

sub refund {
    my $self = shift;

    return $self->flotum->_refund_charge(@_, charge => $self);
}

1;

__END__