sharifulin

package Score;
use common::sense;

use base 'Mojo::Base';

use constant DEBUG => $ENV{SCORE_DEBUG} // 0;

__PACKAGE__->attr('db');

...

sharifulin

#!/usr/bin/perl
use common::sense;
use lib qw(../../lib /tk/lib /tk/mojo/lib);

use Mojo::IOLoop;
use Mojo::Message::Request;
use Data::Dumper;

my $url  = Mojo::URL->new('http://frod.io:8000/station-aac');
my $loop = Mojo::IOLoop->new;

sharifulin

#!/usr/bin/perl
use common::sense;
use lib qw(/tk/lib /tk/mojo/lib);

use Mojo::Client;
use Data::Dumper;

die "Usage: $0 moskva|piter stations|onair"
	unless @ARGV && $ARGV[0] ~~ ['moskva', 'piter'] && $ARGV[1] ~~ ['stations', 'onair'];

sharifulin

# Copyright (C) 2008-2010, Sebastian Riedel.

package Mojolicious::Plugin::I18nAll;

use strict;
use warnings;

use base 'Mojolicious::Plugin';

use I18N::LangTags;

sharifulin

package App::Controller;

...

sub redirect_accel {
	my $self = shift;
	my $url  = shift || return;
	my $type = shift || '';
	
	$self->render_data('');

sharifulin

#!/usr/bin/perl
use strict;
use lib qw(../lib ../mojo/lib);

BEGIN {
	$ENV{MOJO_MODE}++;
	$ENV{MOJO_TMPDIR} = 'tmp/upload';
	$ENV{MOJO_MAX_MESSAGE_SIZE} = 2 * 1024 * 1024 * 1024; # 2 GB
};

sharifulin

{
	server => {
		www    => 'http://www.site.ru',
		media  => 'http://media.site.ru',
	},
	log    => {
		level => 'error', # 'debug',
		path  => 'log/site.log',
	},
	cookie => {

sharifulin

#!/usr/bin/perl
use common::sense;
use lib qw(../lib lib);

$ENV{MOJO_APP} ||= 'App';

use Mojolicious::Commands; Mojolicious::Commands->start;

package App;
use common::sense;

sharifulin

	my $a = $r->route('/api/disk')->to('api-disk#');
	$a->route('/')->to('#one');
	$a->route('/add')->to('#add');

sharifulin

#!/usr/bin/env perl
use lib qw(../mojo/lib);
use Mojolicious::Lite;

use utf8;
plugin(charset => {charset => 'utf-8'});

get '/author/:name' => sub {
	my $self = shift;
	warn $self->stash('name');