File Coverage

blib/lib/PayProp/API/Public/Client/Authorization/Storage/Local.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	1	2	50.0
condition			n/a
subroutine	12	12	100.0
pod			n/a
total	43	44	97.7

package PayProp::API::Public::Client::Authorization::Storage::Local;

use strict;
use warnings;

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

use Mojo::Promise;

has storage => (
	is => 'ro',
	isa => 'HashRef',
	default => sub { +{} },
);

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

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

			return ref( $self->storage ) eq 'HASH' ? $resolve->( 1 ) : $reject->( 0 );
		}
	);
}

sub _set_p {
	my ( $self, $key, $value ) = @_;

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

			$self->storage->{ $key } = $value;

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

sub _get_p {
	my ( $self, $key ) = @_;

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

			return $resolve->( $self->storage->{ $key } );
		}
	);
}

sub _delete_p {
	my ( $self, $key ) = @_;

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

			delete $self->storage->{ $key };

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

__PACKAGE__->meta->make_immutable;

__END__