App-Padadoy

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

requires:
  Carton: 0
  Cwd: 0
  File::Basename: 0
  File::Path: 2.07
  File::ShareDir: 0
  File::Slurp: 0
  File::Spec::Functions: 0
  Getopt::Long: 0
  Git::Repository: 0
  HTTP::Request::Common: 0
  IPC::System::Simple: 0
  List::Util: 0
  Plack::Handler::Starman: 0
  Plack::Test: 0
  Pod::Usage: 0
  Sys::Hostname: 0
  Try::Tiny: 0
  YAML::Any: 0
  autodie: 0
  perl: 5.010

Makefile.PL  view on Meta::CPAN

  "PREREQ_PM" => {
    "Carton" => 0,
    "Cwd" => 0,
    "File::Basename" => 0,
    "File::Path" => "2.07",
    "File::ShareDir" => 0,
    "File::Slurp" => 0,
    "File::Spec::Functions" => 0,
    "Getopt::Long" => 0,
    "Git::Repository" => 0,
    "HTTP::Request::Common" => 0,
    "IPC::System::Simple" => 0,
    "List::Util" => 0,
    "Plack::Handler::Starman" => 0,
    "Plack::Test" => 0,
    "Pod::Usage" => 0,
    "Sys::Hostname" => 0,
    "Try::Tiny" => 0,
    "YAML::Any" => 0,
    "autodie" => 0,
    "strict" => 0,

lib/App/Padadoy.pm  view on Meta::CPAN

use Sys::Hostname;
use YAML::Any qw(LoadFile Dump);
use Cwd;

# required for deployment
use Plack::Handler::Starman qw();
use Carton qw(0.9.4);

# required for testing
use Plack::Test qw();
use HTTP::Request::Common qw();

our @commands = qw(init start stop restart config status create checkout
        deplist cartontest remote version update enable logs);
our @remote_commands = qw(init start stop restart config status version); # TODO: create deplist checkout cartontest
our @configs = qw(user base repository port pidfile quiet remote);

# _msg( $fh, [\$caller], $msg [@args] )
sub _msg (@) { 
    my $fh = shift;
    my $caller = ref($_[0]) ? ${(shift)} :

shares/app_padadoy/basic.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Plack::Test;
use HTTP::Request::Common;

use_ok('YOUR_MODULE');

my $app = YOUR_MODULE->new;

test_psgi $app, sub {
    my $cb = shift;
    my $res = $cb->(GET "/");
    ok $res->content, "Non-empty response at '/'"; 
    like $res->code, qr{^[23]..$}, "HTTP status is 2xx or 3xx at '/'";