https://github.com/grinnz/mojo-promise-role-futurify

Mojo::Promise::Role::Futurify - Chain a Future from a Mojo::Promise
https://github.com/grinnz/mojo-promise-role-futurify

Last synced: 5 days ago
JSON representation

Mojo::Promise::Role::Futurify - Chain a Future from a Mojo::Promise

• Host: GitHub
• URL: https://github.com/grinnz/mojo-promise-role-futurify
• Owner: Grinnz
• License: other
• Created: 2017-12-17T20:51:12.000Z (about 7 years ago)
• Default Branch: master
• Last Pushed: 2021-06-16T04:06:58.000Z (over 3 years ago)
• Last Synced: 2024-11-13T05:45:02.665Z (about 2 months ago)
• Language: Perl
• Homepage: https://metacpan.org/pod/Mojo::Promise::Role::Futurify
• Size: 21.5 KB
• Stars: 1
• Watchers: 2
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.pod
  • Changelog: Changes
  • Contributing: CONTRIBUTING.md
  • License: LICENSE

Awesome Lists containing this project

README

        
=pod

=head1 NAME

Mojo::Promise::Role::Futurify - Chain a Future from a Mojo::Promise

=head1 SYNOPSIS

  use Mojo::Promise;

  

  my $promise = Mojo::Promise->with_roles('+Futurify')->new;

  my $future = $promise->futurify->on_ready(sub {

    my $f = shift;

    say $f->is_done ? 'Done' : 'Failed';

  });

  $promise->ioloop->timer(5 => sub { $promise->resolve });

  $future->await;

  

  use Mojo::UserAgent;

  my $ua = Mojo::UserAgent->new;

  

  # complicated way of doing $ua->get('https://example.com')

  my $tx = $ua->get_p('https://example.com')->with_roles('+Futurify')->futurify->get;

  

  # using Future composition methods

  my @futures;

  foreach my $url (@urls) {

    push @futures, $ua->get_p($url)->with_roles('+Futurify')->futurify;

  }

  

  use Future;

  Future->wait_all(@futures)->then(sub {

    foreach my $f (@_) {

      if ($f->is_done) {

        my $tx = $f->get;

      } elsif ($f->is_failed) {

        my $err = $f->failure;

      }

    }

  })->await;

  

  # using Future::Utils in a Mojolicious application

  use Mojolicious::Lite;

  use Future::Utils 'fmap_concat';

  my $ua = Mojo::UserAgent->new;

  

  get '/foo' => sub {

    my $c = shift;

    my $count = $c->param('count') // 50;

    

    my $f = fmap_concat {

      $ua->get_p('https://example.com')->with_roles('+Futurify')->futurify;

    } foreach => [1..$count], concurrent => 10;

    

    my $tx = $c->render_later->tx;

    $f->on_done(sub {

      my @txs = @_;

      $c->render(json => [titles => map { $_->res->dom->at('title')->text } @txs]);

    })->on_fail(sub {

      $c->reply->exception(@_);

    })->on_ready(sub { undef $tx })->retain;

  };

  

  app->start;

=head1 DESCRIPTION

L provides an interface to chain L

objects from L objects.

=head1 METHODS

L composes the following methods.

=head2 futurify

  my $future = $promise->futurify;

Returns a L object that will become ready with success or failure

when the L resolves or rejects.

=head1 BUGS

Report any issues on the public bugtracker.

=head1 AUTHOR

Dan Book 

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2017 by Dan Book.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=head1 SEE ALSO

L, L, L

=cut