#!/usr/bin/perl -T

# instance script
# somewhere under docroot

use strict;
use warnings;
#use CGI::Carp qw(fatalsToBrowser);
use File::Spec;

my ($my_root, $project, $lib);
BEGIN {
  $ENV{DOCUMENT_ROOT} =~ m|([\w/-]+)/|;
  $my_root = $1;
  $project = 'sw';
  $lib = File::Spec->catdir($my_root, $project, 'lib');
}

use lib $lib;
use SW::Test::TestApp;

$ENV{PATH} = '';

my $c = SW::Test::TestApp->new(
  PARAMS => {
    'root'    => $my_root,
    'project' => $project,
    'app'     => 'test',
  },
);

$c->run;