File Coverage

blib/lib/PayProp/API/Public/Client/Role/Encrypt.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	37	37	100.0

package PayProp::API::Public::Client::Role::Encrypt;

use strict;
use warnings;

use Mouse::Role;

use Crypt::CBC;
use Mojo::Promise;


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

has Crypt => (
	is => 'ro',
	isa => 'Crypt::CBC',
	lazy => 1,
	default => sub {
		my ( $self ) = @_;

		return Crypt::CBC->new(
			-key => $self->encryption_secret,
			-pass => $self->encryption_secret,
			-pbkdf => 'pbkdf2',
			-cipher => 'Cipher::AES',
		);
	},
);

sub encrypt_hex_p {
	my ( $self, $to_encrypt ) = @_;

	return Mojo::Promise
		->new( sub {
			my ( $resolve ) = @_;

			return $resolve->( $self->Crypt->encrypt_hex( $to_encrypt ) );
		} )
	;
}

sub decrypt_hex_p {
	my ( $self, $to_decrypt ) = @_;

	return Mojo::Promise
		->new( sub {
			my ( $resolve ) = @_;

			my $decrypted_value;
			eval { $decrypted_value = $self->Crypt->decrypt_hex( $to_decrypt ) };

			return $resolve->( $decrypted_value );
		} )
	;
}

1;

__END__