Mojo as a_client
12 likes1,665 views
Mojo started as an alternative to the aging LWP library for HTTP requests in Perl. It was created by Sebastian Riedel to have a more modern, asynchronous API. Mojo provides an easy to use and full-featured HTTP client and server with support for features like websockets, parallel requests, and more. The library uses a test-driven development approach and strives to have a pragmatic design with reusable components.
![*
E[foo=”bar”]
E:checked
E:empty
E:nth-child
E:first-of-type
E:not(s)
EF
E>F
++++](https://image.slidesharecdn.com/mojoasaclient-101006015059-phpapp01/85/Mojo-as-a_client-40-320.jpg)
![# Streaming response
my $tx = $client−>build_tx(GET =>
'http://mojolicious.org');
$tx−>res−>body(sub { print $_[1] });
$client−>start($tx);
# Custom socket
my $tx = $client−>build_tx(GET =>
'http://mojolicious.org');
$tx−>connection($socket);
$client−>start($tx);](https://image.slidesharecdn.com/mojoasaclient-101006015059-phpapp01/85/Mojo-as-a_client-45-320.jpg)
Mojo as a_client
- 1. Mojo as a HTTP A new beginning
- 2. I am Marcus I work here
- 3. In the beginning there was LWP
- 4. First Changelog Entry: Thu 18 May 1995 Martijn Koster <[email protected]> o Mentioned on libwww-perl that I had changed the classes around lots.
- 5. Became wildly popular, default choice for HTTP in Perl.
- 6. Starting to show it’s age
- 7. Clunky API No Async No Web Socket ...
- 8. The time is ripe for a new beginning.
- 9. perl -Mojo -e' g("vg.no/") ->dom(".article-content h3 a") ->each(sub { b(shift->text) ->decode->say })'
- 10. Actually, it didn’t happen just like that.
- 11. Sebastian Riedel @kraih
- 12. Took over Maypole. Wanted to make radical changes
- 13. Got Booted
- 14. Created Catalyst. Wanted to make radical changes
- 15. Got Booted
- 16. Made Mojolicious. Wanted to target PHP developers & Perl 6
- 17. Ease of install/porting ➜ Only Perl5 core dependencies
- 18. Bootstrapping: curl -L cpanmin.us | sudo perl - Mojolicious
- 19. Wrote an async HTTP 1.1 compliant stack
- 20. Mojo::Transaction Mojo::Message::Response Mojo::Cookie Mojo::URL +++
- 23. PRAGMATIC
- 24. Next logical step: Add a client on top of this stack.
- 25. Mojo == Lego Built from reusable bricks.
- 27. my $callback = sub { print shift−>res−>body }; $client−>get('http://mojolicious.org' => $callback); $client−>get('http://search.cpan.org' => $callback); $client−>start;
- 28. Form Handling
- 29. # Form post with exception handling my $cpan = 'http://search.cpan.org/search'; my $search = {q => 'mojo'}; my $tx = $client−>post_form($cpan => $search); if (my $res = $tx−>success) { print $res−>body } else { my ($message, $code) = $tx−>error; print "Error: $message"; }
- 30. Web Sockets
- 31. $client−>websocket( 'ws://websockets.org:8787' => sub { my $client = shift; $client−>on_message( sub { my ($client, $message) = @_; print "$messagen"; $client−>finish; }); $client−>send_message('hiya!'); })−>start;
- 32. Oneliners
- 33. Collection of single letter commands.
- 34. g ➜ get d ➜ delete f ➜ form post p ➜ post u ➜ put w ➜ websocket
- 35. Special Cases b ➜ byte stream, a ➜ Lite app
- 36. #ojo module my $res = g( 'http://mojolicio.us', {'Content−Type' => 'text/plain'}, 'Hello!' ); perl -Mojo -e 'b(g("mojolicio.us")->dom->at("title")->text)->say' perl -Mojo -E'g("bloomberg.com")->dom("a.story_link")->each(sub { say shift->text; })' perl -Mojo -E'g("digg.com")->dom("a.story-title")->each(sub { say pop, ". ", shift->text })' # Undocumented o(fun) Mojolicious cloud function: perl -Mojo -e 'oO("http://www.reddit.com")->dom->find("a.title")- >each(sub { Oo(pop . ". " . shift->text)->say })'
- 37. Mojo::DOM
- 39. Supports all CSS3 selectors that make sense
- 40. * E[foo=”bar”] E:checked E:empty E:nth-child E:first-of-type E:not(s) EF E>F ++++
- 41. o(fun) If you need performance use libXML
- 42. SOME RANDOM BITS
- 43. Supports IPV6, TLS,proxies, epoll, kqueue
- 44. DEBUG MODE ENV VARIABLE MOJO_CLIENT_DEBUG=1 perl -Mojo -E’...’
- 45. # Streaming response my $tx = $client−>build_tx(GET => 'http://mojolicious.org'); $tx−>res−>body(sub { print $_[1] }); $client−>start($tx); # Custom socket my $tx = $client−>build_tx(GET => 'http://mojolicious.org'); $tx−>connection($socket); $client−>start($tx);
- 46. Big Body Just Works (temp storage on filesystem)
- 48. o(fun) Every file in the distro has a Simpsons or Futurama quote.
- 49. Now also handles disconnected keep-alive gracefully. (this was not the case when we started using it).
- 51. You provide failing test. kraih provides fix.
- 52. Learn More Mojo mojolicious.org github.com/kraih/mojo #mojo on irc.perl.org groups.google.com/group/mojolicious
Editor's Notes
- #5: Much of this development was driven by Gisle Aas++ (Oslonett)
- #8: Hard to update, because so much depend on the current broken behavior
- #12: at Twitter
- #13: Maypole was originally developed by Simon Cozens, but he fucked off to become a missionary in Japan.
- #15: Catalyst had gathered steam. Core team of developers
- #19: Runs in 30 seconds (time to download, run test suite and install files).
- #21: All
- #24: Tell about nginx and status phrases.