view release on metacpan or search on metacpan
#!perl
use strict;
use warnings FATAL => 'all';
use lib qw(blib/lib);
use Apache::TestRunPerl ();
# mod_auth can cause test failures if in the wrong spot in the
# Apache chain, so we just make sure it does not get added. (test case: static
view release on metacpan or search on metacpan
examples/siteA view on Meta::CPAN
#!/usr/bin/env perl
use lib 'lib';
use Apache::SiteConfig::Deploy;
name 'projectA';
domain 'foo.com';
view release on metacpan or search on metacpan
sample/apache_modperlinit.pl view on Meta::CPAN
# This is the location of the site_control library. Not needed it you installed
# Apache::SiteControl in your system paths.
use lib qw(/home/tkay/src/site_control/lib);
# The location of the extra modules used in the sample. Modify to match your
# extract directory
use lib qw(/home/tkay/src/site_control/sample);
1;
view release on metacpan or search on metacpan
lib/Apache/Sling/AuthzUtil.pm view on Meta::CPAN
our $VERSION = '0.27';
#{{{imports
use strict;
use lib qw ( .. );
#}}}
#{{{sub get_acl_setup
view release on metacpan or search on metacpan
#!/usr/bin/perl
use warnings;
use strict;
use lib 'lib';
use Test::More tests => 6;
# The versions of the following packages are reported to help understanding
# the environment in which the tests are run. This is certainly not a
# full list of all installed modules.
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
use lib qw(../lib);
use Apache::src ();
my $src = Apache::src->new;
WriteMakefile(
DEFINE => '-g',
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
package Apache::Template;
use ExtUtils::MakeMaker;
use lib qw( lib );
use Apache::Template;
use Apache::ExtUtils qw( command_table );
use Apache::src ();
view release on metacpan or search on metacpan
lib/Apache/TestBuild.pm view on Meta::CPAN
1;
__DATA__
use strict;
use warnings FATAL => 'all';
use lib qw(Apache-Test/lib);
use Apache::TestBuild ();
use Getopt::Long qw(GetOptions);
use Cwd ();
my %options = (
view release on metacpan or search on metacpan
#file:t/TEST.PL
#--------------
#!perl
use strict;
use warnings FATAL => 'all';
use lib qw(lib);
use Apache2 ();
use Apache::TestRunPerl ();
Apache::TestRunPerl->new->run(@ARGV);
view release on metacpan or search on metacpan
xt/meta-lint.t view on Meta::CPAN
use File::Find;
use Test::More tests => 4;
use Parse::CPAN::Meta;
use CPAN::Meta::Validator;
use lib '.';
use vars '%module';
require 'Makefile.PL';
# Loaded from Makefile.PL
%module = get_module_info();
my $module = $module{NAME};
view release on metacpan or search on metacpan
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use lib qw(lib);
use Apache::TestRunPerl ();
use base 'Apache::TestRun';
#$Apache::TestTrace::Level = 'debug';
view release on metacpan or search on metacpan
t/Application-ConfigParser.t view on Meta::CPAN
use warnings;
use Test::More tests => 55;
use Data::Dumper;
use lib("t");
BEGIN {
# fall back to eq_or_diff if we don't have Test::Differences
if (!eval q{ use Test::Differences; 1 }) {
*eq_or_diff = \&is_deeply;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
require 5.6.1;
use ExtUtils::MakeMaker;
use lib qw(../blib/lib lib );
use Cwd;
push @ARGV, '-maxclients', '2';
my $mod_perl_ok = 0;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
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 '_build/lib';
Module::Build::Compat->run_build_pl(args => \@ARGV);
require Module::Build;
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
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 '_build/lib';
Module::Build::Compat->run_build_pl(args => \@ARGV);
require Module::Build;
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
view release on metacpan or search on metacpan
eg/startup.pl view on Meta::CPAN
#...other startup modules and items go here
use Apache::Registry;
use DBI();
use DBD::Oracle();
use lib '/etc/apache';
use mycache;
1;
view release on metacpan or search on metacpan
demo/conf/startup.pl view on Meta::CPAN
use Apache::Request;
use Apache::DBI;
use HTML::Embperl;
use lib "/home/francis/copiscan/lib";
# Preload all the iNcom modules
use iNcom;
use iNcom::Session;
use iNcom::PgStore;
view release on metacpan or search on metacpan
scripts/startup.pl view on Meta::CPAN
#!/usr/bin/perl
BEGIN
{
use strict;
use warnings;
use lib './lib';
# <http://perl.apache.org/docs/2.0/user/coding/coding.html#toc_Cleaning_up>
# <https://perl.apache.org/docs/2.0/user/handlers/server.html#toc_Startup_File>
# <http://perl.apache.org/docs/2.0/user/handlers/server.html#toc_Startup_Phases_Demonstration_Module>
use Apache2::ServerUtil ();
use Apache2::RequestUtil ();
view release on metacpan or search on metacpan
#!/usr/bin/perl
use 5.006;
use strict;
use warnings;
use lib 'lib';
use Module::Build;
our %opts = (
module_name => 'Apache2::AUS',
license => 'perl',
view release on metacpan or search on metacpan
use lib ("$ENV{AUTH_ANY_ROOT}/lib");
use Apache2::RequestRec ();
use Apache2::Log ();
use Apache2::Request ();
use Apache2::Module ();
view release on metacpan or search on metacpan
t/pod_coverage.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use lib qw(lib);
eval 'use Test::Pod::Coverage 1.04';
plan skip_all => 'Test::Pod::Coverage 1.04' if $@;
eval 'use Pod::Coverage 0.14';
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
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 '_build/lib';
Module::Build::Compat->run_build_pl(args => \@ARGV);
require Module::Build;
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
view release on metacpan or search on metacpan
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/mock_libs";
use Test::More tests => 2;
BEGIN { use_ok('Apache2::AuthCookieDBI'); }
BEGIN { use_ok('Apache2_4::AuthCookieDBI'); }
view release on metacpan or search on metacpan
t/tests/20compile.t view on Meta::CPAN
# $Id: 20compile.t 816 2006-11-26 19:09:52Z nicolaw $
chdir('t') if -d 't';
use lib qw(./lib ../lib);
use Test::More tests => 2;
use_ok('Apache2::AutoIndex::XSLT');
require_ok('Apache2::AutoIndex::XSLT');
view release on metacpan or search on metacpan
#!perl
use strict;
use warnings FATAL => 'all';
use lib qw(lib);
use Apache::TestRunPerl ();
Apache::TestRunPerl->new->run(@ARGV);
view release on metacpan or search on metacpan
#!perl
use strict;
use warnings FATAL => 'all';
use lib qw(lib t);
use Apache::TestRunPerl ();
my $I=Apache::TestRunPerl->new;
view release on metacpan or search on metacpan
package My::TestRun;
use strict;
use warnings;
use lib qw(lib);
use base qw(Apache::TestRunPerl);
__PACKAGE__->new->run(@ARGV);
view release on metacpan or search on metacpan
lib/Apache2/Controller/Dispatch.pm view on Meta::CPAN
uris under the handler location and what controller
modules you want to handle paths under that URL, using a
directive. (L<Apache2::Controller::Directives/A2C_Dispatch_Map>)
The trouble with automatic controller module detectors is
that parsing the URI and doing C<< eval "use lib $blah" >>
up through the URI path is that is computationally expensive.
Maintaining a URI map file is not that difficult and also is
convenient because you can move libraries around, point different
URI's to the same controller library, etc. For example to bring
view release on metacpan or search on metacpan
t/classes.t view on Meta::CPAN
use strict;
use warnings FATAL => 'all';
use lib 't';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil qw(t_cmp);
plan tests => 8, need_lwp;
view release on metacpan or search on metacpan
t/classes.t view on Meta::CPAN
use strict;
use warnings FATAL => 'all';
use lib 't';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil qw(t_cmp);
plan tests => 10, need_lwp;