File Coverage

blib/lib/Promises/Promise.pm

Criterion	Covered	Total	%
statement	18	30	60.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	8	20	40.0
pod	16	16	100.0
total	44	71	61.9

package Promises::Promise;
our $AUTHORITY = 'cpan:YANICK';
$Promises::Promise::VERSION = '1.04';
# ABSTRACT: An implementation of Promises in Perl

use strict;
use warnings;

use Scalar::Util qw[ blessed ];
use Carp qw[ confess ];

sub new {
    my ( $class, $deferred ) = @_;
    ( blessed $deferred && $deferred->isa('Promises::Deferred') )
        || confess "You must supply an instance of Promises::Deferred";
    bless { 'deferred' => $deferred } => $class;
}

sub then    { (shift)->{'deferred'}->then(@_) }
sub chain   { (shift)->{'deferred'}->chain(@_) }
sub catch   { (shift)->{'deferred'}->catch(@_) }
sub done    { (shift)->{'deferred'}->done(@_) }
sub finally { (shift)->{'deferred'}->finally(@_) }
sub status  { (shift)->{'deferred'}->status }
sub result  { (shift)->{'deferred'}->result }
sub timeout  { (shift)->{'deferred'}->timeout }

sub is_unfulfilled { (shift)->{'deferred'}->is_unfulfilled }
sub is_fulfilled   { (shift)->{'deferred'}->is_fulfilled }
sub is_failed      { (shift)->{'deferred'}->is_failed }
sub is_done        { (shift)->{'deferred'}->is_done }

sub is_in_progress { (shift)->{'deferred'}->is_in_progress }
sub is_resolved    { (shift)->{'deferred'}->is_resolved }
sub is_rejected    { (shift)->{'deferred'}->is_rejected }

1;

__END__