Skip to content

Instantly share code, notes, and snippets.

View TristinDavis's full-sized avatar

Tristin Davis TristinDavis

49 followers · 389 following
  • Thrivent Financial
  • Arkansas, USA
  • 20:25 (UTC -05:00)
View GitHub Profile
@TristinDavis
TristinDavis / gist:4108815
Created November 19, 2012 03:39 — forked from bduggan/gist:1099355
#!perl
package TestApp;
use Mojolicious::Lite;
get '/one/:foo' => [ foo => [qw/bar barfly/] ] => sub { shift->render_text('hi') };
get '/two/:foo' => [ foo => qr[bar|barfly] ] => sub { shift->render_text('hi') };
package main;
use Test::More tests => 8;
@TristinDavis
TristinDavis / gist:4108811
Created November 19, 2012 03:38 — forked from bduggan/gist:1355027
#!/usr/bin/env perl
# put.pl
# This works :
# ./put.pl daemon
# mojo get --method PUT --content 'foo' --header 'X-Disk: /tmp' http://localhost:3000/here
# This does not :
# ./put.pl get --method PUT --content 'foo' --header 'X-Disk: /tmp' /here
@TristinDavis
TristinDavis / gist:4108808
Created November 19, 2012 03:37 — forked from bduggan/gist:1355071
#!/usr/bin/env perl
# put.t
use Test::More tests => 3;
use Mojolicious::Lite;
use Test::Mojo;
$ENV{MOJO_MAX_MEMORY_SIZE} = 2; # Force temp files.
$ENV{MOJO_TMPDIR} = "/nosuchdir"; # test setting tempdir dynamically
@TristinDavis
TristinDavis / gist:4108807
Created November 19, 2012 03:37 — forked from bduggan/gist:1355027
#!/usr/bin/env perl
# put.pl
# This works :
# ./put.pl daemon
# mojo get --method PUT --content 'foo' --header 'X-Disk: /tmp' http://localhost:3000/here
# This does not :
# ./put.pl get --method PUT --content 'foo' --header 'X-Disk: /tmp' /here
@TristinDavis
TristinDavis / gist:4108803
Created November 19, 2012 03:35 — forked from bduggan/gist:1213890
#!/usr/bin/env perl
use Mojolicious::Lite;
use Test::Mojo;
use Test::More tests => 2;
get '/first' => sub {
shift->redirect_to('second');
};
@TristinDavis
TristinDavis / gist:4108802
Created November 19, 2012 03:35 — forked from bduggan/gist:1213890
#!/usr/bin/env perl
use Mojolicious::Lite;
use Test::Mojo;
use Test::More tests => 2;
get '/first' => sub {
shift->redirect_to('second');
};
@TristinDavis
TristinDavis / gist:4108775
Created November 19, 2012 03:22 — forked from sharifulin/gist:282378
Mojo: bug in routes
#!/usr/bin/perl
use strict;
use lib qw(lib ../mojo/lib);
$ENV{MOJO_APP} ||= 'App';
use Mojolicious::Commands; Mojolicious::Commands->start;
package App;
use strict;
@TristinDavis
TristinDavis / CSSCompressor.pm
Created November 19, 2012 00:41 — forked from kevinold/CSSCompressor.pm
Shows how to register filters and how to composite templates, css, and js files.
package Mojolicious::Plugin::MicroPipeline::CSSCompressor;
use Mojo::Base 'Mojolicious::Plugin';
use CSS::Compressor 'css_compress';
sub register {
my ($self, $app) = @_;
# Register "css_compressor" filter
$app->filter(css_compressor => sub { css_compress shift });
@TristinDavis
TristinDavis / CSSCompressor.pm
Created November 19, 2012 00:41 — forked from kevinold/CSSCompressor.pm
package Mojolicious::Plugin::MicroPipeline::CSSCompressor;
use Mojo::Base 'Mojolicious::Plugin';
use CSS::Compressor 'css_compress';
sub register {
my ($self, $app) = @_;
# Register "css_compressor" filter
$app->filter(css_compressor => sub { css_compress shift });
@TristinDavis
TristinDavis / MojoLite-hook_and_test.pl
Created November 19, 2012 00:35 — forked from bduggan/gist:1355071
A nice short example of using Test::Mojo and how to grab events.
#!/usr/bin/env perl
# put.t
use Test::More tests => 3;
use Mojolicious::Lite;
use Test::Mojo;
$ENV{MOJO_MAX_MEMORY_SIZE} = 2; # Force temp files.
$ENV{MOJO_TMPDIR} = "/nosuchdir"; # test setting tempdir dynamically