File Coverage

blib/lib/Promise/AsyncAwait.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	25	25	100.0

package Promise::AsyncAwait;

use strict;
use warnings;

our $VERSION = '0.01';

=encoding utf-8

=head1 NAME

Promise::AsyncAwait - Async/await with promises

=head1 SYNOPSIS

    use Promise::AsyncAwait;

    async sub get_number_plus_1 {
        my $number = await _get_number_p();

        return 1 + $number;
    }

    my $p = get_number_plus_1()->then( sub { say "number: " . shift } );

… and then use whatever mechanism you will for “unrolling” C<$p>.

=head1 DESCRIPTION

L implements JavaScript-like L/L
semantics
for Perl, but it defaults to using CPAN’s L rather than promises.
The two are similar but incompatible.

Use this module for a promise-oriented async/await instead. It’s actually
just a shim around Future::AsyncAwait that feeds it configuration options
for L promises rather than Future. This yields a friendlier
(and likely faster!) experience for those more accustomed to JavaScript
promises than to CPAN Future.

This should work with most CPAN promise implementations.

=cut

use Promise::XS 0.13;

use constant _MIN_FAA_VERSION => 0.47;

our @ISA;

BEGIN {

    # Future::AsyncAwait loads Future, which we don’t need.
    local $INC{'Future.pm'} = __FILE__;
    local *Future::VERSION = sub { '999.99' };

    @ISA = ('Future::AsyncAwait');
    require Future::AsyncAwait;
    Future::AsyncAwait->VERSION(_MIN_FAA_VERSION);
}

sub import {
    return $_[0]->SUPER::import(
        future_class => 'Promise::XS::Promise',
        @_[1 .. $#_],
    );
}

=head1 LICENSE & COPYRIGHT

Copyright 2021 Gasper Software Consulting. All rights reserved.

This library is licensed under the same license as Perl.

=cut

1;