ian-kent

package RouteTest;
use Mojo::Base 'Mojolicious';

# This method will run once at server start
sub startup {
  my $self = shift;

  # Documentation browser under "/perldoc"
  $self->plugin('PODRenderer');

ian-kent

package EventTest;
use Mojo::Base 'Mojolicious';

#use EV;
use AnyEvent;

# Call /wait1 and /wait2, both block but both get handled asynchronously
# Call /wait1 and another /wait1, the first request blocks the second
# Regardless of above, calling /nowait always works

ian-kent

use Mojolicious::Lite;
use EV;
use AnyEvent;

hook after_build_tx => sub {
    print "AFTER BUILD TX\n";
};

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

ian-kent

use Mojolicious::Lite;
use EV;
use AnyEvent;

hook after_build_tx => sub {
    print "AFTER BUILD TX\n";
};

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

ian-kent

use Mojolicious::Lite;
use POSIX qw( strftime );
use Test::Mojo;
use Data::Dumper;
use Test::More;

hook after_build_tx => sub {
#    print "AFTER BUILD TX\n";
};

ian-kent

package helper;

sub new {
    my ($package, %args) = @_;
    return bless {
        %args
    }, 'helper';
}

sub test {

ian-kent

package helper;

sub new {
    my ($package, %args) = @_;
    return bless {
        %args
    }, 'helper';
}

sub test {

ian-kent

package main;

use Data::Dumper;
use Text::Xslate;

my $count = 0;
my $macro = undef;
my $xslate = Text::Xslate->new(
    cache => 1,
    function => {

ian-kent

package main;

use Data::Dumper;
use Text::Xslate;

my $count = 0;
my $macro = undef;
my $xslate = Text::Xslate->new(
    path => {
        'test.tx' => qq{

ian-kent

package obj2;
sub new { my ($package, %args) = @_; bless { %args }, 'obj2' };
sub render { shift->{obj}->() };

package obj;
sub new { bless {}, 'obj' };
sub capture { return obj2->new(obj => pop) }

package main;