more promise examples

mojolicious · Nov 5, 2017 · 6ae3a5b · 6ae3a5b
1 parent ddcb001
commit 6ae3a5b
Showing 1 changed file with 14 additions and 3 deletions.
diff --git a/lib/Mojo/Promise.pm b/lib/Mojo/Promise.pm
@@ -47,8 +47,7 @@ sub race {
   return $race;
 }
 
-sub reject { shift->_settle('reject', @_) }
-
+sub reject  { shift->_settle('reject',  @_) }
 sub resolve { shift->_settle('resolve', @_) }
 
 sub then {
@@ -143,7 +142,19 @@ Mojo::Promise - Promises/A+
     return $promise;
   }
 
-  # Synchronize multiple non-blocking operations
+  # Synchronize non-blocking operations (all)
+  my $mojo = get('http://mojolicious.org');
+  my $cpan = get('http://metacpan.org');
+  Mojo::Promise->all($mojo, $cpan)->then(sub {
+    my ($mojo, $cpan) = @_;
+    say $mojo->[0]->res->code;
+    say $cpan->[0]->res->code;
+  })->catch(sub {
+    my $err = shift;
+    warn "Something went wrong: $err";
+  })->wait;
+
+  # Synchronize non-blocking operations (race)
   my $mojo = get('http://mojolicious.org');
   my $cpan = get('http://metacpan.org');
   Mojo::Promise->race($mojo, $cpan)->then(sub {