File Coverage

blib/lib/Mojo/Base/Role/PromiseClass.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	3	4	75.0
condition	3	3	100.0
subroutine	2	2	100.0
pod	1	1	100.0
total	19	20	95.0

package Mojo::Base::Role::PromiseClass 0.007;

# ABSTRACT: Add promise_class attribute to Mojo class

use Mojo::Base -role;

has promise_class => sub {'Mojo::Promise'};

sub promise_roles {
    my $self   = shift;
    my $pclass = $self->promise_class;
    my @roles  =
      grep { !Role::Tiny::does_role($pclass, $_) }
      map  { /^\+(.+)$/ ? "Mojo::Promise::Role::$1" : $_ }
      @_;
    $self->promise_class($pclass->with_roles(@roles)) if @roles || !@_;
    return $self;
}

1;

__END__