Hi mojo people. I've started Promises with DSL syntax. How do you find this experiment?

https://github.com/alexbyk/perl-promises6#promises6

promise {
  my ($resolve, $reject, $progress) = @_;
  $resolve->(promise_me(5));

  then sub($v) { say "fulfilled: $v" };

  when_progress { say "progress $_[0]" };
  when_rejected { say "rejected $_[0]" };

  then sub { }, sub { }, sub { };

  when_ok {
    my $val = shift;
    print "Fulfilled with $val";
  };

};


--
You received this message because you are subscribed to the Google Groups 
"Mojolicious" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/mojolicious.
For more options, visit https://groups.google.com/d/optout.

Reply via email to