view release on metacpan or  search on metacpan

lib/Promises/Sub.pm  view on Meta::CPAN

use Sub::Attribute;
use Carp;

use Promises qw/ collect /;

use parent 'Exporter';

our @EXPORT_OK = qw/ defer /;

sub defer(&) {
    my $coderef = shift;

    return sub {
        collect( @_ )->then( sub { $coderef->( map { @$_ } @_ ) } );
    }

}

sub Defer :ATTR_SUB {
    my( undef, $symbol, $referent ) = @_;