sharifulin

#!/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;

sharifulin

#!/usr/bin/env perl
use lib '../mojo/lib';

BEGIN { $ENV{MOJO_TMPDIR} = 'tmp/upload' };

use Mojolicious::Lite;
use Data::Dumper;

get  '/' => 'form';
post '/' => sub {

sharifulin

#!/usr/bin/env perl

use Mojolicious::Lite;

get '/'   => 'index';
get '/ok' => 'index_ok';

use Test::More;
plan tests => 6;

toritori0318

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;
use Data::UUID;
use DBI;
use Time::Piece;

use Mojolicious::Lite;

xantus

package MojoX::JSON;

use Mojo::JSON;

our $SINGLETON;

BEGIN {
    # install JSON::XS if you can!
    eval 'use JSON();';
    eval ( $@ ? 'sub HAS_JSON(){ 0 }' : 'sub HAS_JSON(){ 1 }' );

mfontani

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

my $use_auth = 1;    # with auth enabled..
my ( $user, $pass ) = qw/user password/;
if ($use_auth) { plugin 'basic_auth'; }

get '/' => sub { my $self = shift; $self->redirect_to('/upload'); };
get '/upload' => sub {
  my $self = shift;

sharifulin

#!/usr/bin/env perl
use lib 'lib';

use Mojo::IOLoop;
use Mojo::Client;

my $loop   = Mojo::IOLoop->new;
my $client = Mojo::Client->new; $client->ioloop( $loop );

foo();

sharifulin

#!/usr/bin/env perl
use lib 'lib';

package Mojolicious::Plugin::IncludeHelpers;
use strict;
use warnings;

use base 'Mojolicious::Plugin';

use Data::Dumper;

sharifulin

package App::Index;
use App::Base -controller, with => ['App::News', 'App::Book', 'App::Audio'];

sub main {
	my $self  = shift;
	my $limit = $self->conf('limit')->{index};
	
	$self->render('index',
		news => $self->news->_last(limit => $limit->{news}),
		book => $self->book->_list,

bduggan

#!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;