File Coverage

blib/lib/Promises/Sub.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	1	2	50.0
condition			n/a
subroutine	12	12	100.0
pod	0	2	0.0
total	46	49	93.8

package Promises::Sub;
our $AUTHORITY = 'cpan:YANICK';
# ABSTRACT: Turns functions into promises
$Promises::Sub::VERSION = '1.03';
use strict;
use warnings;

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 ) = @_;

    croak "can't use attribute :Defer on an anonynous sub, use 'defer' instead"
        unless $symbol;

    no warnings 'redefine';
    $$symbol = defer { $referent->(@_) };
}


1;

__END__