File Coverage

blib/lib/Yancy/Backend/Role/Sync.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	5	0.0
total	23	28	82.1

package Yancy::Backend::Role::Sync;
our $VERSION = '1.087';
# ABSTRACT: A role to give a synchronous backend useful Promises methods

#pod =head1 SYNOPSIS
#pod
#pod     package Yancy::Backend::SyncOnly;
#pod     with 'Yancy::Backend::Role::Sync';
#pod
#pod     package main;
#pod     my $be = Yancy::Backend::SyncOnly->new;
#pod     my $promise = $be->create_p( \%item );
#pod
#pod =head1 DESCRIPTION
#pod
#pod This role implements C, C, C, C, and
#pod C methods that return L objects for synchronous
#pod backends. This does not make the backend asynchronous: The original,
#pod synchronous method is called and a promise object created from the
#pod result. The promise is then returned already fulfilled.
#pod
#pod =head1 SEE ALSO
#pod
#pod L
#pod
#pod =cut

use Mojo::Base '-role';
use Mojo::Promise;

sub _call_with_promise {
    my ( $self, $method, @args ) = @_;
    my @return = $self->$method( @args );
    my $promise = Mojo::Promise->new;
    $promise->resolve( @return );
}

sub list_p { return _call_with_promise( shift, list => @_ ) }
sub get_p { return _call_with_promise( shift, get => @_ ) }
sub set_p { return _call_with_promise( shift, set => @_ ) }
sub delete_p { return _call_with_promise( shift, delete => @_ ) }
sub create_p { return _call_with_promise( shift, create => @_ ) }

1;

__END__