Skip to content

Instantly share code, notes, and snippets.

View TristinDavis's full-sized avatar

Tristin Davis TristinDavis

48 followers · 389 following
  • Thrivent Financial
  • Arkansas, USA
  • 13:58 (UTC -05:00)
View GitHub Profile
@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 / 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: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: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: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: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: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 / TestMojoCookies
Created December 2, 2012 21:07 — forked from spiros/TestMojoCookies
Test::Mojo methods for cookie checking
=head2 has_cookie
Returns 1 if cookie is found irrespective of value.
$rv = $t->has_cookie( $name, $url );
=cut
sub has_cookie{
my $self = shift;
@TristinDavis
TristinDavis / gist:4953819
Created February 14, 2013 16:08 — forked from kentfredric/gist:4092780
use strict;
use warnings;
use IO::Async::Channel;
use IO::Async::Loop;
use IO::Async::Routine;
my $loop = IO::Async::Loop->new();
{
@TristinDavis
TristinDavis / Default.sublime-theme
Created March 3, 2013 01:41 — forked from larrybotha/A.markdown
[
{
"class": "sidebar_container",
"layer0.tint": [60, 60, 60],
"layer0.opacity": 1.0,
"layer0.draw_center": false,
"layer0.inner_margin": [0, 0, 1, 0],
"content_margin": [0, 0, 1, 0]
},
{