File Coverage

blib/lib/Promises6/Builder.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	4	4	100.0
total	28	32	87.5

package Promises6::Builder;
use Evo -class, -modern;

has promise_class => sub { require Promises6::Promise; 'Promises6::Promise'; };

has listener_class =>
  sub { require Promises6::Listener; 'Promises6::Listener'; };

has deferred_class =>
  sub { require Promises6::Deferred; 'Promises6::Deferred'; };


has resolver => sub {
  my $self = _instance(shift);
  require Promises6::Resolver;
  Promises6::Resolver->new(@_, builder => $self);
};

# commented 08.02.2015
#don't know if someone will use it other way
#has resolver_class =>
#  sub { require Promises6::Resolver; 'Promises6::Resolver'; };
#
#sub resolver {
#  my $self = _instance(shift);
#  $self->resolver_class->new(@_, builder => $self);
#}

sub promise {
  my $self = _instance(shift);
  $self->promise_class->new(@_, builder => $self);
}

sub listener {
  my $self = _instance(shift);
  $self->listener_class->new(@_, builder => $self);
}

sub deferred {
  my $self = _instance(shift);
  $self->deferred_class->new(@_, builder => $self);
}


sub singleton($class,@args) {
  state $single = (ref $class || $class)->new(@args);
}

sub _instance { ref $_[0] ? $_[0] : $_[0]->singleton }

1;

# ABSTRACT: A builder for promises

__END__