Mojolicious - Perl Framework for the Real-Time Web (Lightning Talk)

A lightning talk given at Rails Israel 2014
(http://railsisrael2014.events.co.il/presentations/1319-mojolicious-perl-framework-for-the-real-time-web).
Uses some slides lifted from Glen Hinkle's YAPC 2012 talk
(https://speakerdeck.com/tempire/intro-to-mojolicious-perl)
and an image created by Marcus Ramburg.

Transcript

1. Mojolicious   Perl  Framework  for  the  Real-­‐Time  Web     Dotan  Dimet     @dotandimet  
3. But  that  was   a  while  back   Most  People  Moved  on  
4. Perl  People   •  But  some  came   back   •  And  brought  back   cool  ideas  
6. Mojolicious  
7. Mojolicious  
10. Real  Time  Web     •  Non-­‐blocking  I/O   •  Event-­‐driven  code   •  Asynchronous  APIs   – Not  mandatory   – SomeJmes  necessary  
11. Features  
13. Morbo  error  page  
14. Hypnotoad  error  page  
15. Example   use  Mojolicious::Lite;   use  5.20.0;   use  experimental  'signatures';     get  '/'  =>  {template  =>  'index'};     websocket  '/title'  =>  sub  ($c)  {      $c-­‐>on(message  =>  sub  ($c,  $msg)  {          my  $title  =  $c-­‐>ua-­‐>get($msg)-­‐>res-­‐>dom-­‐>at('title')-­‐>text;          $c-­‐>send($title);      });   };     app-­‐>start;   __DATA__     @@  index.html.ep   %  my  $url  =  url_for  'title';   <script>      var  ws  =  new  WebSocket('<%=  $url-­‐>to_abs  %>');      ws.onmessage  =  function  (event)  {  document.body.innerHTML  +=  event.data  };      ws.onopen        =  function  (event)  {  ws.send('http://mojolicio.us')  };   </script>    
17. First  Route:    render  a  template                                          get  '/'  =>  {template  =>  'index'};      
18. use  Mojolicious::Lite;   use  5.20.0;   use  experimental  'signatures';     get  '/'  =>  {template  =>  'index'};         websocket  '/title'  =>  sub  ($c)  {      $c-­‐>on(message  =>  sub  ($c,  $msg)  {          my  $title  =  $c-­‐>ua-­‐>get($msg)-­‐>res-­‐>dom-­‐>at('title')-­‐>text;          $c-­‐>send($title);      });   };     app-­‐>start;   __DATA__     @@  index.html.ep   %  my  $url  =  url_for  'title';   <script>      var  ws  =  new  WebSocket('<%=  $url-­‐>to_abs  %>');      ws.onmessage  =  function  (event)  {  document.body.innerHTML  +=  event.data  };      ws.onopen        =  function  (event)  {  ws.send('http://mojolicio.us')  };   </script>    
19. Template  (embedded  Perl)   %  my  $url  =  url_for  'Jtle';   <script>      var  ws  =  new  WebSocket('<%=  $url-­‐>to_abs  %>');      ws.onmessage  =  funcJon  (event)   {  document.body.innerHTML  +=  event.data  };      ws.onopen        =  funcJon  (event)  {  ws.send('h]p:// mojolicio.us')  };   </script>    
20. Websocket  Message  Event   websocket  '/Jtle'  =>  sub  ($c)  {      $c-­‐>on(message  =>  sub  ($c,  $msg)  {          my  $Jtle  =  $c-­‐>ua-­‐>get($msg)-­‐>res-­‐>dom-­‐>at('Jtle')-­‐>text;          $c-­‐>send($Jtle);      });   };   Event  driven  –  subscribe  to  message  event,   triggered  when  complete  message  arrives  
21. Websocket  Message  Event   websocket  '/Jtle'  =>  sub  ($c)  {      $c-­‐>on(message  =>  sub  ($c,  $msg)  {          my  $Jtle  =  $c-­‐>ua-­‐>get($msg)-­‐>res-­‐>dom-­‐>at('Jtle')-­‐>text;          $c-­‐>send($Jtle);      });   };   •  Send  response  when  done  
22. Built-­‐in  Web  Client   websocket  '/Jtle'  =>  sub  ($c)  {      $c-­‐>on(message  =>  sub  ($c,  $msg)  {          my  $Jtle  =  $c-­‐>ua-­‐>get($msg)-­‐>res-­‐>dom-­‐>at('Jtle')-­‐>text;          $c-­‐>send($Jtle);      });   };   Get  a  web  page,  parse  into  DOM,  return  the  Jtle   text.  
23. Web  Client   •  Mojo::UserAgent   – Blocking  and  non-­‐blocking  HTTP  requests   •  Mojo::DOM   – Supports  most  CSS  selectors  like  jQuery  
24. Web  Client  2   •  Get  Haaretz.co.il  full  arJcle  text:   self-­‐>ua-­‐>get(  $url,     {  'User-­‐Agent'  =>  'Googlebot/2.1;  +h]p://www.google.com/ bot.html)'  }    )-­‐>res-­‐>dom-­‐>find('#arJcle-­‐box  p')-­‐>join("\n");  
25. But  this  is  blocking  code!    $c-­‐>on(message  =>  sub  ($c,  $msg)  {          my  $Jtle  =  $c-­‐>ua-­‐>get($msg)-­‐>res-­‐>dom-­‐>at('Jtle')-­‐>text;          $c-­‐>send($Jtle);      });     When  we  trigger  the  message  event,  we  block   the  event  loop  unJl  we  get  a  response  from  the   web  page  
26. SomeJmes  blocking  is  OK   •  TradiJonal  Database  connecJon   •  Small  apps,  querying  fast  remote  sites  
27. But  we  don’t  have  to  block   $c-­‐>ua-­‐>get($url,  sub  {  ...  });   The  Mojo::UserAgent  calls  can  take  a  callback  to   make  non-­‐blocking  requests  
28. SomeJmes  we  can’t  block   $c-­‐>ua-­‐>get($c-­‐>url_for(‘index’)-­‐>to_abs)   •  For  example,  when  demoing  without  internet,   we  want  to  fetch  a  web  page  we  are  serving   from  the  same  process...  
30. More     •  h]p://mojolicio.us   •  h]p://mojocasts.com     – Glen  Hinkle  @tempire     •   (I  stole  the  nice  slides  from  him)   •  irc  irc://irc.perl.org/#mojo     •  mailing  list  mojolicious@googlegroups.com    
31. use  Mojolicious::Lite;   use  5.20.0;   use  experimental  'signatures';     get  '/'  =>  {template  =>  'index'};     websocket  '/title'  =>  sub  ($c)  {      $c-­‐>on(message  =>  sub  ($c,  $msg)  {          my  $title  =  $c-­‐>ua-­‐>get($msg)-­‐>res-­‐>dom-­‐>at('title')-­‐>text;          $c-­‐>send($title);      });   };     app-­‐>start;   __DATA__     @@  index.html.ep   %  my  $url  =  url_for  'title';   <script>      var  ws  =  new  WebSocket('<%=  $url-­‐>to_abs  %>');      ws.onmessage  =  function  (event)  {  document.body.innerHTML  +=  event.data  };      ws.onopen        =  function  (event)  {  ws.send('http://mojolicio.us')  };   </script>    
32. Signatures   use  Mojolicious::Lite;   Use  5.20.0;   Use  experimental  'signatures';     get  '/'  =>  {template  =>  'index'};     websocket  '/title'  =>  sub  ($c)  {      $c-­‐>on(message  =>  sub  ($c,  $msg)  {          my  $title  =  $c-­‐>ua-­‐>get($msg)-­‐>res-­‐>dom-­‐>at('title')-­‐>text;          $c-­‐>send($title);      });   };     app-­‐>start;   __DATA__     @@  index.html.ep   %  my  $url  =  url_for  'title';   <script>      var  ws  =  new  WebSocket('<%=  $url-­‐>to_abs  %>');      ws.onmessage  =  function  (event)  {  document.body.innerHTML  +=  event.data  };      ws.onopen        =  function  (event)  {  ws.send('http://mojolicio.us')  };   </script>