view release on metacpan or search on metacpan
t/lib/Apache/test.pm view on Meta::CPAN
AddType text/html .html
# Look in ./blib/lib
<Perl>
use blib '$DIR';
use lib '$DIR/t/lib';
</Perl>
$args{include}
EOF
view release on metacpan or search on metacpan
To use modules in this location, either set the PERL5LIB
environment variable to include your private module
directory, or else put
use lib '/home/me/perl/path/to/lib';
at the top of your script.
A Win32 ppm package, suitable for use with ActivePerl
compatible Perl packages (builds 6xx) is available at
view release on metacpan or search on metacpan
Client/httunnel view on Meta::CPAN
#!/usr/bin/perl
use strict ;
use FindBin ;
use lib "$FindBin::Bin" ;
use Getopt::Long qw(:config no_ignore_case) ;
use IO::Socket::INET ;
use IO::Select ;
use IO::Pipe ;
use IO::Handle ;
view release on metacpan or search on metacpan
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
#!/usr/bin/perl
package Apache::Hadoop::WebHDFS;
our $VERSION = "0.04";
use warnings;
use strict;
use lib '.';
use parent 'WWW::Mechanize';
use Carp;
use File::Map 'map_file';
# ###################
view release on metacpan or search on metacpan
#!/usr/bin/perl
use lib '../blib/lib';
use strict;
use Apache::Htpasswd::Perishable;
my $passwd = Apache::Htpasswd::Perishable->new('.htpasswd');
$passwd->htpasswd("zog", "password");
view release on metacpan or search on metacpan
lib/Apache/JAF.pm view on Meta::CPAN
=item Apache configuration (F<httpd.conf>)
DocumentRoot /examples/site/data
<Location />
<Perl>
use lib qw(/examples/site/modules);
use Apache::JAF::MyJAF;
</Perl>
SetHandler perl-script
PerlHandler Apache::JAF::MyJAF
PerlSetVar Apache_JAF_Templates /examples/site/templates
view release on metacpan or search on metacpan
t/lib/Apache/test.pm view on Meta::CPAN
AddType text/html .html
# Look in ./blib/lib
<Perl>
use blib '$DIR';
use lib '$DIR/t/lib';
</Perl>
$args{include}
EOF
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
bin/analyze_apache_logs view on Meta::CPAN
#!/usr/bin/env perl
### cat logs | analyze_apache_logs
use FindBin;
use lib "$FindBin::Bin/../lib";
use Apache::Log::Parser;
use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);
my ($detail, $sort, $verbose);
view release on metacpan or search on metacpan
eg/logbench.pl view on Meta::CPAN
if ($pid) {
close $fh;
wait;
}
else {
eval qq{use lib '$name'};
require Plack;
use Plack::Builder;
warn $Plack::VERSION;
my $log_app = builder {
view release on metacpan or search on metacpan
bin/logmonster.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use lib 'lib';
use English qw( -no_match_vars );
use Getopt::Long;
use Pod::Usage;
use Apache::Logmonster '3.07';
view release on metacpan or search on metacpan
conf/httpd-perl-startup.pl view on Meta::CPAN
=cut
use strict;
use warnings;
use lib qw( /etc/httpd/perl/lib );
use Apache::MiniWiki;
=head2 $wikidir
The directory where all your Wikis are located,
view release on metacpan or search on metacpan
lib/Apache/Mojo.pm view on Meta::CPAN
=head1 SYNOPSIS
in httpd.conf:
<Perl>
use lib '...';
use Apache::Mojo;
use TestApp;
</Perl>
<Location />
view release on metacpan or search on metacpan
lib/test-page.pl view on Meta::CPAN
#!/usr/local/bin/perl
use lib qw{/export/home/cradcliff/perlmodules};
use Template::PSP;
print ".\n";
my $filename = $ARGV[0] || die "No PSP file specified";
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
print "\n";
# end install_checker
###################################
use lib qw;t;;
use Apache::Test 1.05;
use Apache::TestMM qw/test clean/;
Apache::TestMM::filter_args();
Apache::TestMM::generate_script('t/TEST');
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
use ExtUtils::testlib;
use lib qw(../blib/lib ../blib/arch ../lib);
use Apache::src ();
my $src = Apache::src->new;
WriteMakefile(
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
package Apache::RSS;
use ExtUtils::MakeMaker;
use lib './lib';
use Apache::RSS;
use Apache::src ();
use Apache::ExtUtils qw(command_table);
my @directives = (
view release on metacpan or search on metacpan
########################################################
# Test Apache::Recorder::get_id()
########################################################
use lib "t/";
use Mock::Apache::Request;
my $cookie_id = '123456';
my $mock_r = new Mock::Apache::Request( 'cookie_id' => $cookie_id );
my $id = Apache::Recorder::get_id( $mock_r );
view release on metacpan or search on metacpan
lib/Apache2/Reload.pm view on Meta::CPAN
This means, when called as a C<Perl*Handler>, C<Apache2::Reload> will not see
C<@INC> paths added or removed by C<ModPerl::Registry> scripts, as the value of
C<@INC> is saved on server startup and restored to that value after each
request. In other words, if you want C<Apache2::Reload> to work with modules
that live in custom C<@INC> paths, you should modify C<@INC> when the server is
started. Besides, C<'use lib'> in the startup script, you can also set the
C<PERL5LIB> variable in the httpd's environment to include any non-standard
'lib' directories that you choose. For example, to accomplish that you can
include a line:
PERL5LIB=/home/httpd/perl/extra; export PERL5LIB
view release on metacpan or search on metacpan
#!perl
use strict;
use warnings FATAL => 'all';
use lib qw(lib t/lib);
use Apache::TestRunPerl ();
Apache::TestRunPerl->new->run(@ARGV);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
use ExtUtils::testlib;
use lib qw(../blib/lib ../blib/arch ../lib);
use Apache::src ();
my $src = Apache::src->new;
$necessary_modules = {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my %prereq = ('File::Spec' => 0,
'Data::Dumper' => 0,
'URI::Escape' => 0,
'Apache' => 0);
use lib 'lib';
eval { require Apache::Roaming::LiPrefs::Config };
my $cfg;
eval {require File::Spec; require Data::Dumper};
if (!$@ &&
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
t/benchmark.pl view on Meta::CPAN
use lib "/home/ken/modules/Apache-SSI/blib/lib";
use Apache::SSI;
use Benchmark;
my $text = '<!--#perl sub="sub {$_[0]*2-$_[1]}" args=5,7 pass_request=no-->';
$p = new Apache::SSI($text);
view release on metacpan or search on metacpan
scripts/swit_app.pl view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use lib 'lib';
use Apache::SWIT::Security::Maker;
my $f = shift(@ARGV);
Apache::SWIT::Security::Maker->new->$f(@ARGV);
view release on metacpan or search on metacpan
lib/Apache/SWIT/Maker/FileWriterData.pm view on Meta::CPAN
__PACKAGE__->add_file({ name => 'scripts/swit_app.pl'
, manifest => 1 }, <<'EM');
#!/usr/bin/perl -w
use strict;
use [% class %];
use lib 'lib';
[% class %]->new->do_swit_app_cmd(@ARGV) or exit 1;
EM
__PACKAGE__->add_file({ name => 'tt_file', manifest => 1
, tmpl_options => { START_TAG => '<%', END_TAG => '%>' } }, <<'EM');
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# was built with, otherwise unresolved symbols problems occur:
# e.g. try using mod_perl.so built with blead-perl and build the
# scoreboard with blead-ithreads-perl
#use Apache::Build ();
#my $build = Apache::Build->new;
#use lib qw(../lib ../Apache-Test/lib);
use ModPerl::MM ();
# enable 'make test|clean'
use Apache::TestMM qw(test clean);
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
SessionManager/cookpod.pod view on Meta::CPAN
PerlSetVar SessionManagerName SESSIONID
PerlSetVar SessionManagerStore File
PerlSetVar SessionManagerStoreArgs "Directory => /tmp/apache_session_data/"
<Perl>
use lib '/usr/local/apache/perl/';
</Perl>
PerlAuthenHandler Apache::MyAuth
AuthName "Reserved Club"
AuthType Basic
require valid-user
SessionManager/cookpod.pod view on Meta::CPAN
PerlSetVar SessionManagerName SESSIONID
PerlSetVar SessionManagerStore File
PerlSetVar SessionManagerStoreArgs "Directory => /tmp/apache_session_data/"
<Perl>
use lib '/usr/local/apache/perl/';
</Perl>
PerlAuthenHandler Apache::MyAuth
AuthName "Reserved Club"
AuthType Basic
require valid-user
SessionManager/cookpod.pod view on Meta::CPAN
file system as backend datastore) with CGI scripts under
L<Apache::Registry|Apache::Registry>:
<IfModule mod_perl.c>
<Perl>
use lib '/path/to/your/perl-lib/lib/site_perl',
'/path/to/your/perl-lib/lib/'; # for Storable.pm
</Perl>
PerlModule Apache::SessionManager
<FilesMatch "\.cgi$">
SetHandler perl-script