kraih

package Evil;
use Mojo::Base 'Mojolicious::Plugin';

# Singleton controller
our $CONTROLLER;

sub register {
  my ($self, $app) = @_;

  # Localize singleton controller

kraih

use Mojolicious::Lite;

get '/' => sub {
  render text => 'Hello World!';
};

app->start;

kraih

set background=dark

hi clear

if exists("syntax_on")
  syntax reset
endif

let colors_name = "kraihlight"

kraih

#!/usr/bin/env perl
use Mojolicious::Lite;
use EV;
use AnyEvent;

# Simple delayed rendering
get '/' => sub {
  my $self = shift;
  my $w;
  $w = AE::timer 3, 0, sub {

kraih

use Mojolicious::Lite;
use EV;
use AnyEvent::IRC::Client;

my $c = AnyEvent::IRC::Client->new;
$c->connect('irc.perl.org', 6667, {nick => 'marcus2'});
$c->send_srv(JOIN => '#mojo');

get '/' => sub {
  my $self = shift;

kraih

#!/usr/bin/env perl
use Mojolicious::Lite;

get '/' => 'index';

get '/events' => sub {
  my $self = shift;

  # Emit "dice" event every second
  $self->res->headers->content_type('text/event-stream');

kraih

use Mojo::DOM;

# Parse HTML5 snippet
my $dom = Mojo::DOM->new(<<EOF);
<div>
  <a href="http://search.cpan.org">
    <img src="/images/search.png">
  </a>
  <a href="http://mojolicio.us">
    <p>Mojolicious</p>

kraih

#!/usr/bin/env perl
use Mojo::Base -strict;

use utf8;

use Test::More tests => 4;
use Mojolicious::Lite;
use Test::Mojo;

# Tiny echo web service

kraih

package Mojo::IOWatcher::AnyEvent;
use Mojo::Base 'Mojo::IOWatcher';

use AE;
use Scalar::Util 'weaken';

$ENV{MOJO_IOWATCHER} ||= 'Mojo::IOWatcher::AnyEvent';

my $SINGLETON;

kraih

#!/usr/bin/env perl
use Mojolicious::Lite;
use EV;
use AnyEvent::IRC::Client;

# Join #mojo on irc.perl.org
my $irc = AnyEvent::IRC::Client->new;
$irc->connect('irc.perl.org', 6667, {nick => "mojobot$$"});
$irc->send_srv(JOIN => '#mojo');