File Coverage

blib/lib/PayProp/API/Public/Client/Request/Entity/Payment.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch			n/a
condition	3	6	50.0
subroutine	11	11	100.0
pod	3	3	100.0
total	52	55	94.5

package PayProp::API::Public::Client::Request::Entity::Payment;

use strict;
use warnings;

use Mouse;
with qw/ PayProp::API::Public::Client::Role::APIRequest /;

use PayProp::API::Public::Client::Response::Entity::Payment;


has '+url' => (
	default => sub {
		my ( $self ) = @_;
		return $self->abs_domain . '/api/agency/' . $self->api_version . '/entity/payment';
	},
);

sub list_p {
	my ( $self, $args ) = @_;

	$args //= {};
	my $params = $args->{params};
	my $path_params = $args->{path_params};

	$self->ordered_path_params([qw/ external_id /]);

	return $self
		->api_request_p({
			params => $params,
			path_params => $path_params,
			handle_response_cb => sub { $self->_get_payment( @_ ) },
		})
	;
}

sub create_p {
	my ( $self, $args ) = @_;

	$args //= {};
	my $content = $args->{content};

	return $self
		->api_request_p({
			method => 'POST',
			content => { json => $content },
			handle_response_cb => sub { $self->_get_payment( @_ ) },
		})
	;
}

sub update_p {
	my ( $self, $args ) = @_;

	$args //= {};
	my $params = $args->{params};
	my $content = $args->{content};
	my $path_params = $args->{path_params};

	$self->ordered_path_params([qw/ external_id /]);

	return $self
		->api_request_p({
			method => 'PUT',
			params => $params,
			path_params => $path_params,
			content => { json => $content },
			handle_response_cb => sub { $self->_get_payment( @_ ) },
		})
	;
}

sub _get_payment {
	my ( $self, $response_json ) = @_;

	my $Payment = PayProp::API::Public::Client::Response::Entity::Payment->new(
		id                    => $response_json->{id},
		tax                   => $response_json->{tax},
		amount                => $response_json->{amount},
		enabled               => $response_json->{enabled},
		has_tax               => $response_json->{has_tax},
		end_date              => $response_json->{end_date},
		frequency             => $response_json->{frequency},
		reference             => $response_json->{reference},
		tenant_id             => $response_json->{tenant_id},
		tax_amount            => $response_json->{tax_amount},
		start_date            => $response_json->{start_date},
		percentage            => $response_json->{percentage},
		payment_day           => $response_json->{payment_day},
		customer_id           => $response_json->{customer_id},
		description           => $response_json->{description},
		property_id           => $response_json->{property_id},
		category_id           => $response_json->{category_id},
		use_money_from        => $response_json->{use_money_from},
		beneficiary_id        => $response_json->{beneficiary_id},
		beneficiary_type      => $response_json->{beneficiary_type},
		global_beneficiary    => $response_json->{global_beneficiary},
		no_commission_amount  => $response_json->{no_commission_amount},
		maintenance_ticket_id => $response_json->{maintenance_ticket_id},
	);

	return $Payment;
}

__PACKAGE__->meta->make_immutable;

__END__