get '/blogs' => sub { shift->redirect_to('/blogs/tag/personal'); }; get '/blogs/tag/(*tags)' => sub { my $self = shift; # Specified tags to search for: /tag/one/tag/two/tag/three my @tags = grep $_ ne 'tag' => split '/' => $self->param('tags'); my @blogs = $self->db->resultset('Blog')->by_tags(@tags) or return $self->redirect_to('/blogs'); $self->render('blogs/index', blogs => [@blogs],); }; get '/blogs/(:name)' => sub { my $self = shift; my $param = $self->stash('name'); my $blog = $self->db->resultset('Blog')->by_id_or_name($param) or return $self->redirect_to('/blogs'); $self->render('blogs/show', blog => $blog); }; get '/photos' => sub { my $self = shift; $self->render( 'photos/index', sets => [$self->db->resultset('Photoset')->search], photo_count => $self->db->resultset('Photo')->count ); }; get '/photos/:id' => (photoset => '') => sub { my $self = shift; my $id = $self->param('id'); my $set = $self->db->resultset('Photoset')->by_id_or_name($id) or $self->redirect_to("/photos"), return; $self->render(template => 'photos/show_set', set => $set); }; get '/photos/:id' => sub { my $self = shift; my $id = $self->param('id'); my $photo = $self->db->resultset('Photo')->find($id) or $self->redirect_to("/photos"), return; $self->render(template => 'photos/show', photo => $photo); }; app->start; __DATA__ @@ layouts/default.html.ep <!doctype html> <html> <head> <link rel="stylesheet" type="text/css" media="screen" href="/css/main.css" /> <script type="text/javascript"> var _gaq = _gaq || []; _gaq.push(['_setAccount', 'UA-29402272-1']); _gaq.push(['_trackPageview']); (function() { var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true; ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); })(); </script> </head> <body> <div id="header"> <img class="profile" src="/images/bender_promo.png" /> <a class="home" href="/" alt="Home"></a> % if ($self->req->url ne '/') { <div class="fb_status"> <span class="load statii"></span> <span class="time_since"></span> <span class="source"></span> </div> % } <ul class="toc"> <li><a href="/blogs">Blog</a></li> <li><a href="/photos">Photos</a></li> </ul> </div> <div id="main"> <div id="box-top"></div> <div id="content"> <%= content %> </div> # Requested id is a photoset? app->routes->add_condition( photoset => sub { my ($r, $c, $captures, $pattern) = @_; my $id = $captures->{id}; return 1 if $id !~ /^\d+$/ or $id =~ /^\d+$/ and length $id == 17; } ); helper db => sub { return Schema->connect('dbi:SQLite:' . ($ENV{TEST_DB} || 'test.db')); }; get '/' => sub { shift->render('home/index'); }; get '/blogs' => sub { shift->redirect_to('/blogs/tag/personal'); }; get '/blogs/tag/(*tags)' => sub { my $self = shift; # Specified tags to search for: /tag/one/tag/two/tag/three my @tags = grep $_ ne 'tag' => split '/' => $self->param('tags'); my @blogs = $self->db->resultset('Blog')->by_tags(@tags) or return $self->redirect_to('/blogs'); $self->render('blogs/index', blogs => [@blogs],); }; get '/blogs/(:name)' => sub { my $self = shift; my $param = $self->stash('name'); my $blog = $self->db->resultset('Blog')->by_id_or_name($param) or return $self->redirect_to('/blogs'); $self->render('blogs/show', blog => $blog); }; get '/photos' => sub { my $self = shift; $self->render( 'photos/index', sets => [$self->db->resultset('Photoset')->search], photo_count => $self->db->resultset('Photo')->count ); };#!/usr/bin/env perl use Mojolicious::Lite; #!/usr/bin/env perl use Mojolicious::Lite; use lib 'lib'; use Schema; # Requested id is a photoset? app->routes->add_condition( photoset => sub { my ($r, $c, $captures, $pattern) = @_; my $id = $captures->{id}; return 1 if $id !~ /^\d+$/ or $id =~ /^\d+$/ and length $id == 17; } ); my $ua = Mojo::UserAgent->new; my $res = $ua->get('search.twitter.com/search.json?q=mojolicious') ->res->json(‘/results/0/text’); get '/' => sub { shift->render('home/index'); }; get '/blogs' => sub { shift->redirect_to('/blogs/tag/personal'); }; get '/blogs/tag/(*tags)' => sub { my $self = shift; # Specified tags to search for: /tag/one/tag/two/tag/three my @tags = grep $_ ne 'tag' => split '/' => $self->param('tags'); my @blogs = $self->db->resultset('Blog')->by_tags(@tags) or return $self->redirect_to('/blogs'); $self->render('blogs/index', blogs => [@blogs],); }; get '/blogs/(:name)' => sub { my $self = shift; my $param = $self->stash('name'); my $blog = $self->db->resultset('Blog')->by_id_or_name($param) or return $self->redirect_to('/blogs'); $self->render('blogs/show', blog => $blog); }; get '/photos' => sub { my $self = shift; get '/blogs/tag/(*tags)' => sub { my $self = shift; # Specified tags to search for: /tag/one/tag/two/tag/three my @tags = grep $_ ne 'tag' => split '/' => $self->param('tags'); my @blogs = $self->db->resultset('Blog')->by_tags(@tags) or return $self->redirect_to('/blogs'); $self->render('blogs/index', blogs => [@blogs],); }; get '/blogs/(:name)' => sub { my $self = shift; my $param = $self->stash('name'); my $blog = $self->db->resultset('Blog')->by_id_or_name($param) or return $self->redirect_to('/blogs'); $self->render('blogs/show', blog => $blog); }; get '/photos' => sub { my $self = shift; $self->render( 'photos/index', sets => [$self->db->resultset('Photoset')->search], photo_count => $self->db->resultset('Photo')->count ); }; get '/photos/:id' => (photoset => '') => sub { my $self = shift; my $id = $self->param('id'); my $set = $self->db->resultset('Photoset')->by_id_or_name($id) or $self->redirect_to("/photos"), return; $self->render(template => 'photos/show_set', set => $set); }; get '/photos/:id' => sub { my $self = shift; my $id = $self->param('id'); my $photo = $self->db->resultset('Photo')->find($id) or $self->redirect_to("/photos"), return; $self->render(template => 'photos/show', photo => $photo); }; app->start; __DATA__ @@ layouts/default.html.ep <!doctype html> <html> <head> <link rel="stylesheet" type="text/css" media="screen" href="/css/main.css" /> <script type="text/javascript"> var _gaq = _gaq || []; _gaq.push(['_setAccount', 'UA-29402272-1']); _gaq.push(['_trackPageview']); (function() { var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true; ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); })(); </script> </head> <body> <div id="header"> <img class="profile" src="/images/bender_promo.png" /> <a class="home" href="/" alt="Home"></a> % if ($self->req->url ne '/') { <div class="fb_status"> <span class="load statii"></span> <span class="time_since"></span> <span class="source"></span> </div> % } <ul class="toc"> <li><a href="/blogs">Blog</a></li> <li><a href="/photos">Photos</a></li> </ul> </div> <div id="main"> <div id="box-top"></div> <div id="content"> <%= content %> </div> <div id="box-bottom"></div> </div> <div id="footer"> <ul> <li><a href="http://mojolicio.us">Mojolicious</a></li> <li><a href="http://mojocasts.com">Mojocasts</a></li> <li><a href="http://github.com/tempire/mojoexample">Mojo Example</a></li> <li><a href="http://github.com/kraih/mojo">Github</a></li> my $ua = Mojo::UserAgent->new; my $res = $ua->get('search.twitter.com/search.json?q=mojolicious') ->res->json(‘/results/0/text’); use Schema; # Requested id is a photoset? app->routes->add_condition( photoset => sub { my ($r, $c, $captures, $pattern) = @_; my $id = $captures->{id}; return 1 if $id !~ /^\d+$/ or $id =~ /^\d+$/ and length $id == 17; } ); helper db => sub { return Schema->connect('dbi:SQLite:' . ($ENV{TEST_DB} || 'test.db')); }; get '/' => sub { shift->render('home/index'); }; get '/blogs' => sub { shift->redirect_to('/blogs/tag/personal'); }; get '/blogs/tag/(*tags)' => sub { my $self = shift; # Specified tags to search for: /tag/one/tag/two/tag/three my @tags = grep $_ ne 'tag' => split '/' => $self->param('tags'); my @blogs = $self->db->resultset('Blog')->by_tags(@tags) or return $self->redirect_to('/blogs'); $self->render('blogs/index', blogs => [@blogs],); }; get '/blogs/(:name)' => sub { my $self = shift; my $param = $self->stash('name'); my $blog = $self->db->resultset('Blog')->by_id_or_name($param) or return $self->redirect_to('/blogs'); $self->render('blogs/show', blog => $blog); }; get '/photos' => sub { my $self = shift; $self->render( 'photos/index', sets => [$self->db->resultset('Photoset')->search], photo_count => $self->db->resultset('Photo')->count ); };#!/usr/bin/env perl use Mojolicious::Lite; #!/usr/bin/env perl use Mojolicious::Lite; use lib 'lib'; use Schema; # Requested id is a photoset? app->routes->add_condition( photoset => sub { my ($r, $c, $captures, $pattern) = @_; my $id = $captures->{id}; return 1 if $id !~ /^\d+$/ or $id =~ /^\d+$/ and length $id == 17; } ); helper db => sub { return Schema->connect('dbi:SQLite:' . ($ENV{TEST_DB} || 'test.db')); }; get '/' => sub { shift->render('home/index'); }; get '/blogs' => sub { shift->redirect_to('/blogs/tag/personal'); }; get '/blogs/tag/(*tags)' => sub { my $self = shift; # Specified tags to search for: /tag/one/tag/two/tag/three my @tags = grep $_ ne 'tag' => split '/' => $self->param('tags'); my @blogs = $self->db->resultset('Blog')->by_tags(@tags) or return $self->redirect_to('/blogs'); $self->render('blogs/index', blogs => [@blogs],); }; get '/blogs/(:name)' => sub { my $self = shift; my $param = $self->stash('name'); my $blog = $self->db->resultset('Blog')->by_id_or_name($param) or return $self->redirect_to('/blogs'); $self->render('blogs/show', blog => $blog); }; get '/photos' => sub { my $self = shift;
tempire
sansan33
himaratsu
kohbis
netmarkjp
coconala_engineer
yoshimi0227
shinyorke
zozotech
carnappopper
oracle4engineer
ahus1
tomzoh
jonrohan
jnunemaker
tammyeverts
rasmusluckow
eileencodes
jacobian
panda_program
destraynor
maggiecrowley
smashingmag
pauljervisheath
productmarketing
![my $ua = Mojo::UserAgent->new; print $ua->get('search.twitter.com/search.json?q=mojolicious') ->res->json->{results}->[0]->{text}; { "completed_in":0.04, "max_id":146706880847294465,](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_14.jpg){kind=link}
![my $ua = Mojo::UserAgent->new; print $ua->get('search.twitter.com/search.json?q=mojolicious') ->res->json->{results}->[0]->{text}; JSON Parsing /](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_15.jpg){kind=link}
![Mojolicious::Lite $$morbo$hello$ [Wed%May%30%12:58:51%2012]%[info]%Listening%at%"http://*:3000". Server%available%at%http://127.0.0.1:3000.](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_42.jpg){kind=link}
![Mojolicious::Lite $$morbo$hello$ [Wed%May%30%12:58:51%2012]%[info]%Listening%at%"http://*:3000". Server%available%at%http://127.0.0.1:3000. http://127.0.0.1:3000](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_43.jpg){kind=link}
![Tag Helpers <input$type=”submit”$value=”Go!”$/> %=$submit_button$‘Go!’ <select$name=”language”> $$<option$value=”de”>de</option> $$<option$value=”en”>en</option> $$... </select> %=$select_field$language$=>$[qw/$de$en$/];](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_62.jpg){kind=link}
![Helpers helper$dumper$=>$sub${ $$return$Data::DumperJ>new([@_])J>Dump }; %=$dumper$$foo](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_68.jpg){kind=link}
![Helpers $selfJ>dumper($foo); helper$dumper$=>$sub${ $$return$Data::DumperJ>new([@_])J>Dump }; %=$dumper$$foo](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_69.jpg){kind=link}
![Helpers $selfJ>dumper($foo); get$‘/’$=>$sub${ $$my$$self$=$shift; $$$selfJ>render_text($$$$$$$$$$$$$$$$$$$); }; helper$dumper$=>$sub${ $$return$Data::DumperJ>new([@_])J>Dump }; %=$dumper$$foo](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_70.jpg){kind=link}
![get$‘/’$=>$sub${ $$my$$self$=$shift; $$$selfJ>render_text($$$$$$$$$$$$$$$$$$$); }; $$$$$$$$$$$$$$$$$$$$$$selfJ>dumper($foo) Helpers $selfJ>dumper($foo); helper$dumper$=>$sub${ $$return$Data::DumperJ>new([@_])J>Dump };](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_71.jpg){kind=link}
![Full App %%[exist]%/Users/glen/my_app/script %%[write]%/Users/glen/my_app/script/my_app %%[chmod]%my_app/script/my_app%744 %%[exist]%/Users/glen/my_app/lib %%[write]%/Users/glen/my_app/lib/MyApp.pm %%[exist]%/Users/glen/my_app/lib/MyApp %%[write]%/Users/glen/my_app/lib/MyApp/Example.pm %%[exist]%/Users/glen/my_app/t](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_80.jpg){kind=link}
![Full App Executables $$mojo$generate$app$MyApp App%Code Tests Logs Public Templates %%[exist]%/Users/glen/my_app/script](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_81.jpg){kind=link}
![irc://irc.perl.org/#mojo mailing list [email protected] irc](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_122.jpg){kind=link}
![irc://irc.perl.org/#mojo mailing list [email protected] irc :D](https://files.speakerdeck.com/presentations/4fde414cb0559d015300b2d4/slide_123.jpg){kind=link}
