view release on metacpan or search on metacpan
bin/sway.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use lib './lib';
use AnyEvent::Sway qw(:all);
my $sway = sway();
$sway->connect->recv or die "Error connecting";
view release on metacpan or search on metacpan
maint/Makefile.PL.include view on Meta::CPAN
BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
use lib 'Distar/lib';
use Distar;
author 'haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org>';
view release on metacpan or search on metacpan
t/01_mutex.t view on Meta::CPAN
use warnings;
use strict;
use utf8;
use open qw(:std :utf8);
use lib qw(lib ../lib);
use Test::More tests => 9;
use Encode qw(decode encode);
use Time::HiRes qw(time);
view release on metacpan or search on metacpan
t/01-empty.t view on Meta::CPAN
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";
use Test::AnyEvent::WebService::Tracks tests => 4;
my $tracks = get_tracks;
view release on metacpan or search on metacpan
t/anyevent_websocket_client.t view on Meta::CPAN
use lib 't/lib';
use Test2::Plugin::EV;
use Test2::Plugin::AnyEvent::Timeout;
use Test2::V0 -no_srand => 1;
use Test2::Tools::WebSocket::Server qw( start_server start_echo );
use AnyEvent::WebSocket::Client;
view release on metacpan or search on metacpan
t/connetion_active_close.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(set_timeout start_server);
use testlib::ConnConfig;
use AnyEvent;
use AnyEvent::WebSocket::Server;
use AnyEvent::Handle;
view release on metacpan or search on metacpan
ex/worker-pool.pl view on Meta::CPAN
die "Fail from $self->{some}: @_";
}
package main;
use lib::abs '../lib';
use common::sense;
use AnyEvent 5;
use AnyEvent::Worker::Pool;
my $pool = AnyEvent::Worker::Pool->new( 5, [ 'ActualWorker' ] );
view release on metacpan or search on metacpan
samples/anyevent-xmlrpc-serv.pl view on Meta::CPAN
#!/usr/bin/perl
#~ use lib "lib";
use AnyEvent::XMLRPC;
my $serv = AnyEvent::XMLRPC->new(
#~ port => 9090,
#~ uri => "/RPC2",
view release on metacpan or search on metacpan
t/AnyLoader.t view on Meta::CPAN
# Change this to your # of ok() calls + 1
BEGIN { $Total_tests = 7 }
use AnyLoader;
use FindBin qw($Bin);
use lib ($Bin);
ok( Text::Soundex::soundex('schwern') eq 'S650' );
ok( Testing::AnyLoader::some_func() == 23 );
ok( Testing::AnyLoader::some_other_func() == 42 );
view release on metacpan or search on metacpan
use strict;
use warnings;
use Test::More tests => 3;
use FindBin;
use lib "$FindBin::Bin/../lib";
use AnyEvent;
use AnyMQ;
use AnyMQ::Pg;
use Data::Dumper;
view release on metacpan or search on metacpan
eg/TwitterSan.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use AnySan;
use AnySan::Provider::Twitter;
my $twitter = twitter
view release on metacpan or search on metacpan
use utf8;
use Test::More;
use Test::Base;
use Aozora2Epub;
use Aozora2Epub::Gensym;
use lib qw/./;
use t::Util;
plan tests => 1 * blocks;
sub drop_nlsp {
view release on metacpan or search on metacpan
"Please make sure to install all the modules that make up the Apache::ASP installation."
);
$ShareDir = $share_path;
# once we find the $ShareDir, we can truncate the library path
# and push it onto @INC with use lib... this is to help with loading
# future Apache::ASP::* modules when the lib path it was found at is
# relative to some directory. This was needed to have the "make test"
# test suite to work which loads libraries from "blib/lib", but Apache::ASP
# will chdir() into the script directory so that can ruin this
# library lookup.
# clear taint, for some reason, tr/// or s/^(.*)$/ did not work on perl 5.6.1
$INCDir =~ /^(.*)$/s;
$INCDir = $1;
# make sure this gets on @INC at startup, can't hurt
eval "use lib qw($INCDir);";
1;
}
sub FileId {
Script: index.asp
$Server->Config('PATH') eq ''
# httpd.conf
PerlTransHandler My::Init
use lib qw( $custom_perllib );
# $custom_perllib/My/Init.pm
package My::Init;
use strict;
use Apache::Constants qw(:common);
view release on metacpan or search on metacpan
example/httpd_conf_snippet.txt view on Meta::CPAN
<VirtualHost 127.0.0.1>
ServerName perl.rulez.com
# push a path onto @INC
<perl>
use lib qw( /Users/jeffo/local/source/rulez ) ;
</perl>
# initialize mod_perl
PerlModule Apache
view release on metacpan or search on metacpan
t/01_heuristic.t view on Meta::CPAN
use lib 't/lib';
use strict;
use Test;
BEGIN { plan tests => 1 }
use FilterTest;
view release on metacpan or search on metacpan
Server/Server.pm view on Meta::CPAN
foreach my $lib (@libs)
{
warn "AppCluster adding library directory: $lib" if($VERBOSE);
my $p_code = "use lib '$lib';";
eval $p_code;
warn "A problem occured in Apache::AppCluster::Server while parsing your library directories: $@" if ($@);
}
foreach my $module (@mods)
view release on metacpan or search on metacpan
t/startup.pl view on Meta::CPAN
use lib qw(../blib/lib blib/lib lib t/lib);
1;
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
lib/Apache/AuthCookie/Params/Base.pm view on Meta::CPAN
=head1 METHODS
=head2 new($r)
Constructor. This will generate either an internal
L<Apache::AuthCookie::Params::CGI> object, or, if available, use libapreq2.
Note that libapreq2 will not be used if you turned on C<Encoding> support
because libapreq2 does not have any support for unicode.
=head1 SOURCE
The development version is on github at L<https://github.com/mschout/apache-authcookie>
and may be cloned from L<https://github.com/mschout/apache-authcookie.git>
view release on metacpan or search on metacpan
use lib qw( ./blib/lib ../blib/lib );
use Test::More tests => 1;
BEGIN { use_ok('Apache::AuthCookieNTLM' ); }
view release on metacpan or search on metacpan
t/conf/mp1-startup.pl view on Meta::CPAN
#!perl
use lib qw(../blib/lib blib/lib);
1;
view release on metacpan or search on metacpan
AuthenMT.pm view on Meta::CPAN
=head1 SYNOPSIS
Example 1: F<.htaccess>:
<%Perl>
use lib '/www/htdocs/apps/mt/lib';
use lib '/www/htdocs/apps/mt/extlib';
</%Perl>
PerlModule Apache::AuthenMT
AuthName MindsIsland
AuthType Basic
PerlSetVar MT_DIR /www/htdocs/apps/mt/
AuthenMT.pm view on Meta::CPAN
require valid-user
Example 2: F<httpd.conf>:
<%Perl>
use lib '/www/htdocs/apps/mt/lib';
use lib '/www/htdocs/apps/mt/extlib';
</%Perl>
PerlModule Apache::AuthenMT
<Location /somewhere>
AuthName MindsIsland
AuthType Basic
view release on metacpan or search on metacpan
#!perl
# $Id: /local/CPAN/Apache-AxKit-Language-XSP-ObjectTaglib/t/SMOKE.PL 1502 2005-03-05T17:38:53.550891Z claco $
use strict;
use warnings FATAL => 'all';
use lib qw(lib);
use Apache::TestSmoke ();
Apache::TestSmoke->new(@ARGV)->run;
view release on metacpan or search on metacpan
examples/server.pl view on Meta::CPAN
#!/usr/bin/perl
use lib qw(/home/httpd);
use warnings;
use strict;
use POE qw( Filter::Reference Component::Server::TCP);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
package Apache::ClearSilver;
use ExtUtils::MakeMaker;
use lib './lib';
use Apache::ClearSilver;
use Apache::src ();
use Apache::ExtUtils qw(command_table);
my @directives = (
view release on metacpan or search on metacpan
t/01_simple.t view on Meta::CPAN
use lib 't/lib';
use strict;
use Test;
BEGIN { plan tests => 2 }
use FilterTest;
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
#PerlModule ExtUtils::testlib
<Perl>
use lib "$DIR/blib/lib", "$DIR/t/lib";
</Perl>
$args{include}
EOF
view release on metacpan or search on metacpan
t/00compact.t view on Meta::CPAN
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
plan test => 1;
use TestPreproc;
view release on metacpan or search on metacpan
t/TestHttpd.pm view on Meta::CPAN
package TestHttpd;
use strict;
use warnings;
use lib qw(t lib);
use parent 'Apache::Defaults';
use MockHttpd;
use File::Temp qw(tempfile);
sub new {
view release on metacpan or search on metacpan
use strict;
use warnings FATAL => 'all';
no warnings 'uninitialized';
use lib qw(lib);
use Apache::TestTrace;
use Apache::TestRunPerl ();
$Apache::TestTrace::Level = 'emerg';