Apache2-AUS

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

#!/usr/bin/perl

use 5.006;
use strict;
use warnings;
use lib 'lib';
use Module::Build;

our %opts = (
    module_name         =>  'Apache2::AUS',
    license             =>  'perl',
    requires            =>  {
        'DBIx::Migration::Directories'  =>      '0.01',
        'mod_perl2'                     =>      '2.000001',
        'Schema::RDBMS::AUS'            =>      '0.03',
        'Apache2::Request'              =>      '2.06',

Makefile.PL  view on Meta::CPAN

      
      # Save this 'cause CPAN will chdir all over the place.
      my $cwd = Cwd::cwd();
      
      CPAN::Shell->install('Module::Build::Compat')
	or die " *** Cannot install without Module::Build.  Exiting ...\n";
      
      chdir $cwd or die "Cannot chdir() back to $cwd: $!";
    }
    eval "use Module::Build::Compat 0.02; 1" or die $@;
    use lib '/usr/local/lib/perl/5.8.8';
    Module::Build::Compat->run_build_pl(args => \@ARGV);
    require Apache::TestMB;
    Module::Build::Compat->write_makefile(build_class => 'Apache::TestMB');

examples/CGI/httpd.conf  view on Meta::CPAN

<Perl >
  use File::Basename ();
  use lib File::Basename::dirname(__FILE__) . "/../../lib";
  use Apache2::ServerRec ();
  use Apache2::ServerUtil ();
  use Apache2::AUS ();

  my $dir = File::Basename::dirname(__FILE__);
  my $server = Apache2::ServerUtil->server;
  $server->add_config(["Alias /test/apache2-aus-cgi $dir/htdocs"]);
</Perl>

<Files "*.cgi">

t/TEST.PL  view on Meta::CPAN

#!perl
  
use strict;
use warnings FATAL => 'all';
  
use lib qw(lib);
use base q(Apache::TestRunPerl);
use Apache::TestConfig ();

main::->new->run(@ARGV);

sub pre_configure {
      my $self = shift;
      # mod_bt doesn't like to be loaded if it isn't configured.
      Apache::TestConfig::autoconfig_skip_module_add('mod_bt.c')
}

sub configure {
    my $self = shift;
    bless $self->{server}, "Apache2::AUS::TestServer";
    return $self->SUPER::configure(@_);
}

package Apache2::AUS::TestServer;

use base q(Apache::TestServer);
use lib 't/tlib';
use t::dbh;
use DBIx::Migration::Directories;

sub start {
    my $self = shift;
    warn "installing database schema!";
    if(my $dbh = dbh) {
        my $mh = DBIx::Migration::Directories->new(
            schema      =>  "Schema::RDBMS::AUS",
            dbh         =>  $dbh,

t/cgi.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use lib "t/tlib";
use t::dbh;
use Apache::Test qw(:withtestmore);
use Apache::TestRequest qw(GET_BODY POST_BODY GET);
use Apache::TestUtil;
use DBIx::Migration::Directories::Test;
use DBIx::Transaction;
use Test::More qw(no_plan);
use Schema::RDBMS::AUS::User;

my(@db_opts) = test_db()

t/conf/extra.last.conf.in  view on Meta::CPAN

<Perl >
   use lib "@ServerRoot@/tlib";
   use t::dbh;
   use Apache2::ServerRec ();
   use Apache2::ServerUtil ();
   
   my $notes = do("@ServerRoot@/../_build/notes");
   my $server = Apache2::ServerUtil->server;
   
   $server->add_config([qq{PerlSetEnv AUS_DB_DSN "$notes->{DBI_DSN}"}])
       if($notes->{DBI_DSN});