File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	3	0.0
total	29	32	90.6

package Net::Flotum::Object::Charge;
use common::sense;
use Moo;
use namespace::clean;
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__