Amon2

 view release on metacpan or  search on metacpan

author/assets.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use 5.008001;
use lib 'lib';
use LWP::UserAgent;
use autodie;
use Data::Dumper;
use File::Basename;
use File::Temp qw/tmpnam tempdir/;
use Text::Xslate;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

my $xslate = Text::Xslate->new(
    syntax    => 'TTerse',

eg/Hello/Hello.psgi  view on Meta::CPAN

use File::Spec;
use File::Basename;
use local::lib File::Spec->catdir(dirname(__FILE__), 'extlib');
use lib File::Spec->catdir(dirname(__FILE__), 'lib');
use Hello::Web;
use Plack::Builder;

builder {
    enable 'Plack::Middleware::Static',
        path => qr{^/static/},
        root => './htdocs/';
    enable 'Plack::Middleware::ReverseProxy';
    Hello::Web->to_app();
};

eg/Hello/script/make_schema.pl  view on Meta::CPAN

use strict;
use warnings;
use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, '..', 'lib');
use lib File::Spec->catdir($FindBin::Bin, '..', 'extlib', 'lib', 'perl5');
use Hello;
use DBIx::Skinny::Schema::Loader qw/make_schema_at/;
use FindBin;

my $c = Hello->bootstrap;
my $conf = $c->config->{'DBIx::Skinny'};

my $schema = make_schema_at( 'Hello::DB::Schema', {}, $conf );
my $dest = File::Spec->catfile($FindBin::Bin, '..', 'lib', 'Hello', 'DB', 'Schema.pm');
open my $fh, '>', $dest or die "cannot open file '$dest': $!";

share/flavor/Minimum/Build.PL  view on Meta::CPAN

use strict;
use warnings;
use Module::Build;
use Module::CPANfile;
use FindBin;
use lib $FindBin::Bin;
use builder::MyBuilder;

my $file = Module::CPANfile->load("cpanfile");
my $prereq = $file->prereq_specs;

my $build = builder::MyBuilder->new(
    license              => 'unknown',
    dynamic_config       => 0,

    build_requires       => {

share/flavor/Minimum/script/server.pl  view on Meta::CPAN

#!perl
use strict;
use warnings;
use utf8;
use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(__FILE__), '../lib');
use Plack::Builder;

%% block load_modules -> {
use <% $module %>::Web;
%% }

%% block app -> {
my $app = builder {
    enable 'Plack::Middleware::AccessLog';
    enable 'Plack::Middleware::Static',

share/flavor/Minimum/t/Util.pm  view on Meta::CPAN

BEGIN {
    unless ($ENV{PLACK_ENV}) {
        $ENV{PLACK_ENV} = 'test';
    }
    if ($ENV{PLACK_ENV} eq 'production') {
        die "Do not run a test script on deployment environment";
    }
}
use File::Spec;
use File::Basename;
use lib File::Spec->rel2abs(File::Spec->catdir(dirname(__FILE__), '..', 'lib'));
use parent qw/Exporter/;
use Test::More 0.98;

our @EXPORT = qw(
<% block export -> { } %>
);

{
    # utf8 hack.
    binmode Test::More->builder->$_, ":utf8" for qw/output failure_output todo_output/;

t/200_app/01_extended.t  view on Meta::CPAN

use strict;
use warnings;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, '../..');
use t::Util;
use Test::Requires 'HTTP::MobileAgent', 'HTTP::Session', 'Text::MicroTemplate::Extended', 'Amon2::Plugin::LogDispatch', 'Log::Dispatch', 'Tiffany', 'Amon2::Plugin::Web::MobileAgent', 'Router::Simple', 'Amon2::Plugin::Web::HTTPSession';

$ENV{PLACK_ENV} = 'development';

run_app_test('Extended');

t/200_app/02_deepnamespace.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, '../..');
use t::Util;
use Test::Requires 'Text::MicroTemplate::Extended', 'Tiffany', 'Module::Find';

plan skip_all => "this test requires perl 5.10 or later" if $] < 5.010;

$ENV{PLACK_ENV} = 'development';

run_app_test('DeepNamespace');

t/300_setup/01_minimum.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, '../..');
use t::TestFlavor;
use Test::Requires +{
    'Module::Functions'               => '0',
};
use t::Util;

test_flavor(sub {
    like slurp('cpanfile'), qr/perl/;
    ok(-f 'Build.PL', 'Build.PL');
    ok(-f './lib/My/App.pm', 'lib/My/App.pm exists');

t/300_setup/02_basic.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, '../..');
use t::TestFlavor;
use t::Util;
use Test::Requires +{
	'Teng'                            => '0.18',
	'DBD::SQLite'                     => '1.33',
    'DBI'                             => 0,
    'Module::Functions'               => '0',
    'HTML::FillInForm::Lite'          => 0,
    'Plack::Middleware::ReverseProxy' => 0,
    'Crypt::CBC'                      => 0,

t/300_setup/03_asset.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use File::Temp qw(tempdir);
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, '../..'),
    File::Spec->catdir($FindBin::Bin, '../../lib/');
use t::Util;

use Amon2::Setup::Asset::jQuery;
use Amon2::Setup::Flavor;

note $INC{"Amon2/Setup/Asset/jQuery.pm"};

my $orig_cwd = Cwd::getcwd();

t/300_setup/06_large.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, '../..');
use t::Util;
use t::TestFlavor;
use Test::Requires {
	'Mouse'             => '0.95', # Mouse::Util
	'Teng'                            => '0.18',
	'DBD::SQLite'                     => '1.33',
    'Plack::Session'                  => '0.14',
    'Module::Find'                    => '0.10',
    'Test::WWW::Mechanize::PSGI'      => 0,
    'Module::Functions'               => '0',

t/300_setup/09_minil_migrate.t  view on Meta::CPAN

use utf8;
use Test::More;
use Test::Requires 'File::Which', 'File::Temp', 'File::pushd', 'LWP::UserAgent';
use File::Temp;
use Amon2::Setup::Flavor::Minimum;
use Amon2::Setup::Flavor::Basic;
use Amon2::Setup::Flavor::Large;
use Test::TCP;
use File::Spec::Functions;
use FindBin;
use lib catdir($FindBin::Bin, '../..');
use t::Util qw(slurp);

my $cpanm   = which('cpanm');
my $minil   = which('minil');
my $git     = which('git');
my $sqlite3 = which('sqlite3');
plan skip_all => 'Missing cpanm' unless $cpanm;
plan skip_all => 'Missing minil' unless $minil;
plan skip_all => 'Missing git'   unless $git;
plan skip_all => 'Missing sqlite3'   unless $sqlite3;

xt/skelton/01_basic.t  view on Meta::CPAN

use strict;
use warnings;
use File::Temp qw/tempdir/;
use FindBin;
use File::Spec;
use lib File::Spec->catfile($FindBin::Bin, '..', 'lib');
use Plack::Util;
use Plack::Test;
use Cwd;
use Test::More;
use App::Prove;
use Test::Requires 'HTML::FillInForm::Lite', 'Plack::Middleware::ReverseProxy', 'Amon2::DBI', 'DBD::SQLite';
use Test::Requires {
    'Crypt::Rijndael' => 0,
};
use Config;