view release on metacpan or search on metacpan
benchmark/Ambrosia/BaseManager.b view on Meta::CPAN
#!/usr/bin/perl -w
use warnings;
use strict;
use lib qw(lib t);
use Benchmark;
use Ambrosia::Context;
instance Ambrosia::Context( engine_name => 'CGI', engine_params => {} );
Context->start_session();
view release on metacpan or search on metacpan
# sub POE::Kernel::TRACE_EVENTS () { 1 }
# sub POE::Kernel::TRACE_QUEUE () { 1 }
# sub POE::Kernel::TRACE_GARBAGE () { 1 }
# sub POE::Kernel::TRACE_REFCOUNT () { 1 }
# use lib qw/./;
use Data::Dumper;
use POE;
use Amethyst;
new Amethyst;
view release on metacpan or search on metacpan
t/APXCreator.t view on Meta::CPAN
use 5.006;
use strict;
use warnings;
use Test::More;
use FindBin;
use lib "$FindBin::Bin/../lib";
BEGIN { use_ok('Amibroker::OLE::APXCreator'); }
my $new_apx_file = Amibroker::OLE::APXCreator::create_apx_file(
{
view release on metacpan or search on metacpan
eg/app.psgi view on Meta::CPAN
use warnings;
use utf8;
use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(__FILE__), '../lib');
use Amon2::Lite;
use Plack::Builder;
sub config {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use lib qw/lib/;
use Module::Build::Compat;
Module::Build::Compat->run_build_pl(args => \@ARGV);
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
view release on metacpan or search on metacpan
lib/Amon2/Setup/Flavor/Lite.pm view on Meta::CPAN
use strict;
use warnings;
use utf8;
use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(__FILE__), 'extlib', 'lib', 'perl5');
use lib File::Spec->catdir(dirname(__FILE__), 'lib');
use Amon2::Lite;
our $VERSION = '0.13';
# put your configuration here
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use lib qw/lib/;
use Module::Build::Compat;
Module::Build::Compat->run_build_pl(args => \@ARGV);
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use lib qw/lib/;
use Module::Build::Compat;
Module::Build::Compat->run_build_pl(args => \@ARGV);
Module::Build::Compat->write_makefile(build_class => 'Module::Build');
view release on metacpan or search on metacpan
use strict;
use warnings;
use base qw/Exporter/;
use File::Spec;
use FindBin;
use lib File::Spec->catfile($FindBin::Bin, '..', 'lib');
use Test::More;
use App::Prove;
use File::Basename;
our @EXPORT = qw/run_app_test slurp/;
view release on metacpan or search on metacpan
author/assets.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use 5.008001;
use lib 'lib';
use LWP::UserAgent;
use autodie;
use Data::Dumper;
use File::Basename;
use File::Temp qw/tmpnam tempdir/;
view release on metacpan or search on metacpan
script/dash view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use FindBin;
use lib "$FindBin::Bin/../lib";
use Amp::Client;
use Data::Dumper;
use feature 'say';
use JSON;
view release on metacpan or search on metacpan
lib/Android/ElectricSheep/Automator/Plugins/Viber.pm view on Meta::CPAN
package Android::ElectricSheep::Automator::Plugins::Viber;
use strict;
use warnings;
#use lib ($FindBin::Bin, 'blib/lib');
use parent 'Android::ElectricSheep::Automator::Plugins::Base';
use Time::HiRes qw/usleep/;
use Data::Roundtrip qw/perl2dump no-unicode-escape-permanently/;
view release on metacpan or search on metacpan
script/anego view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use lib 'lib';
use Anego::CLI;
Anego::CLI->run(@ARGV);
view release on metacpan or search on metacpan
author/benchmark.pl view on Meta::CPAN
use strict;
use warnings;
use utf8;
use feature qw/say/;
use lib 'lib';
use SampleDbic::Schema;
use SampleAniki::DB;
use SampleAniki::DB::Schema;
use SampleTeng::DB;
use Benchmark qw/cmpthese timethese/;
view release on metacpan or search on metacpan
html/index.cgi view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use lib qw(../lib /home/ivan/perl);
use CGI::Compress::Gzip;
use CGI::Carp 'fatalsToBrowser';
use Template;
use AnnoCPAN::Config '../_config.pl';
use AnnoCPAN::Control;
view release on metacpan or search on metacpan
t/20-util-run-testset1.t view on Meta::CPAN
use Test::More;
use Modern::Perl;
use Data::Printer alias => 'pdump';
use lib 't/';
use Local::Ansible::Test1;
#########################################
use_ok('Ansible::Util::Run');
view release on metacpan or search on metacpan
t/ext/arg_test view on Meta::CPAN
#!/usr/bin/env perl
use strict; use warnings;
use lib 'lib';
use AnsibleModule;
my $module=AnsibleModule->new(argument_spec=>{hello => {required => 1, aliases=>['bye']}, yay => { default => 'yes' }});
my $params=$module->params;
$params->{msg}='arg_test';
view release on metacpan or search on metacpan
examples/fg_bg_colors.pl view on Meta::CPAN
#!perl
use v5.32;
use experimental qw(signatures);
use lib qw(lib);
use Antsy;
my $fg_rgb = Antsy::iterm_fg_color();
view release on metacpan or search on metacpan
lib/Any/Moose/Convert.pm view on Meta::CPAN
moose2mouse qw(lib); # makes moose/lib/...
mouse2mouse qw(lib); # makes mouse/lib/...
# or as a command
$ perl -MAny::Moose::Convert -e 'moose2mouse lib'
$ perl -MAny::Moose::Convert -e 'mouse2moose lib'
=head1 DESCRIPTION
view release on metacpan or search on metacpan
t/01_base.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 => 6;
use Encode qw(decode encode);
view release on metacpan or search on metacpan
eg/web-state.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use lib 'eg';
use WebWorker;
my $w = WebWorker->new
( concurrency => 1, ## crank this up to 10000 for some real action
max_stop_tries => 1,
view release on metacpan or search on metacpan
eg/simple_client.pl view on Meta::CPAN
#!perl
use lib '../lib';
use AnyEvent::BitTorrent;
use Net::BitTorrent::Protocol qw[:all];
$|++;
#
view release on metacpan or search on metacpan
# include all licenses.
use lib qw( lib );
use AnyEvent::Blackboard;
view release on metacpan or search on metacpan
t/010-ae-cb.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 => 36;
use Encode qw(decode encode);
view release on metacpan or search on metacpan
examples/client.pl view on Meta::CPAN
#!/usr/bin/perl -w
use lib '/Users/dws/checkouts/github/AnyEvent-Chromi/lib';
use 5.014;
use AnyEvent;
use AnyEvent::Chromi;
view release on metacpan or search on metacpan
ex/example.pl view on Meta::CPAN
use lib::abs '../lib';
package My::Client;
use base 'AnyEvent::Connection';
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
#!/usr/bin/env perl
use Test::More;
use lib 'lib';
use AnyEvent::Cron;
my $cron = AnyEvent::Cron->new;
ok( $cron );
my $cv = AnyEvent->condvar;
view release on metacpan or search on metacpan
eg/simple_daap_server.pl view on Meta::CPAN
use strict;
use warnings;
use lib 'lib';
use AnyEvent;
use AnyEvent::DAAP::Server;
use AnyEvent::DAAP::Server::Track::File::MP3;
use AnyEvent::DAAP::Server::Playlist;
use File::Find::Rule;
view release on metacpan or search on metacpan
ex/sample.pl view on Meta::CPAN
use common::sense 3;
use lib::abs '../lib';
use EV;
use AnyEvent::DBD::Pg;
my $adb = AnyEvent::DBD::Pg->new('dbi:Pg:dbname=test', user => 'pass', {
view release on metacpan or search on metacpan
examples/dns.pl view on Meta::CPAN
use v5.14;
use strict;
use warnings;
use lib 'lib', '../lib';
my $domain = $ARGV[0] || 'example.com';
use if ($ENV{PERL_ANYEVENT_DNS} || "") eq 'EtcHosts' || !$ENV{PERL_ANYEVENT_DNS}, 'AnyEvent::DNS::EtcHosts';
use AnyEvent::DNS;