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

package App::Controller;

...

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

sharifulin

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

package Mojolicious::Plugin::I18nAll;

use strict;
use warnings;

use base 'Mojolicious::Plugin';

use I18N::LangTags;

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

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

package Score;
use common::sense;

use base 'Mojo::Base';

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

__PACKAGE__->attr('db');

...

sharifulin

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

use App::Foo;
use App::Bar;

for (ref app) {
	$_->attr(db   => sub { ... });
	$_->attr(conf => sub { ... });
}

sharifulin

package App:Foo;
use common::sense;

use App::User::Info;
use base 'App::Controller';

__PACKAGE__->attr(user => sub { App::User::Info->new(%{ +shift }) });

sub bar {
  my $self = shift;

sharifulin

# mojo code

#!/usr/bin/env perl

use Mojolicious::Lite;

get '/' => sub {
	shift->render(t => join '', 1..50_000);
} => 'index';

sharifulin

#!/usr/bin/env perl
use common::sense;
use ojo;

die "Usage: $0 <podcast url>" unless @ARGV;

b(g( shift )->dom->find("enclosure[url]")->each(sub {
	local $_ = shift->attrs->{url};
	say if /\.mp3$/;
}));