view release on metacpan or search on metacpan
#!/usr/bin/perl
use warnings;
use Curses;
use lib "./lib/Acme/Curses";
use Marquee;
initscr;
halfdelay(1);
noecho;
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Lexical::SingleAssignment;
use Lexical::Types;
use Lexical::TypeTiny;
use Lexical::Util;
use Lexical::Var;
use lib;
use lib::abs;
use lib::absolute;
use libalarm;
use libapreq;
use lib::archive;
use lib::byversion;
use lib::deep;
use lib::filter;
use lib::findbin;
use lib::gitroot;
use lib::glob;
use lib::http;
use lib::if::dev;
use lib::ini;
use libintl::perl;
use libnet;
use lib::none;
use lib::noop;
use libPam::Perl;
use libparse;
use lib::prereqs::only;
use lib::projectroot;
use lib::relative;
use lib::remote;
use lib::require::all;
use lib::restrict;
use LibTerm::GetKey;
use lib::tiny;
use LibTracker::Client;
use lib::vendor;
use libvorbis::perl;
use lib::with::preamble;
use libwww::perl;
use lib::xi;
use libxml::enno;
use libxml::perl;
use LightWaveRF;
use LIMS::Controller::bzip;
use LIMS::MT_Plate::zip;
use LineByLine;
use Lingua::Abbreviate::Hierarchy;
view release on metacpan or search on metacpan
lib/Acme/Devel/Hide/Tiny.pm view on Meta::CPAN
=head1 SYNOPSIS
# in 'foo.t', assume we want to hide Cpanel::JSON::XS
# hide Cpanel::JSON::XS -> Cpanel/JSON/XS.pm
use lib map {
my $m = $_;
sub { return unless $_[1] eq $m; die "Can't locate $_[1] in \@INC (hidden)\n"; }
} qw{Cpanel/JSON/XS.pm};
=head1 DESCRIPTION
lib/Acme/Devel/Hide/Tiny.pm view on Meta::CPAN
extremely stripped down version of L<Devel::Hide>.
Here is a more verbose, commented version of it:
# 'lib' adds its arguments to the front of @INC
use lib
# add one coderef per path to hide
map {
# create lexical for module
my $m = $_;
lib/Acme/Devel/Hide/Tiny.pm view on Meta::CPAN
}
# input to map is a list module names, converted to paths;
qw{Cpanel/JSON/XS.pm JSON/XS.pm}
; # end of 'use lib' statement
When perl sees a coderef in C<@INC>, it gives the coderef a chance to
provide the source code of that module. In this case, if the path is the
one we want to hide, it dies with the message we want and perl won't
continue looking at C<@INC> to find the real module source. The module is
view release on metacpan or search on metacpan
#! /usr/local/bin/perl -w
use lib qw{ blib/lib ../blib/lib };
use Acme::DonMartin;
sklush thlup pflap groon sound shkliksa glip cak gashklitzka kashpritza
ding shlook ging chaklik borfft crugazunch twok flut spla tood shkwitz
kladwak brrrapp thwak crunch whisk tippity sklukle gashklitzka pik
gukguk dingalina gak sproingdoink sklork flak kloonk kaloong cha thomp
view release on metacpan or search on metacpan
t/01-basics.t view on Meta::CPAN
use Test::More;
use lib 'lib';
my $package = q|
use Acme::DotDotGone dot;
my $end = 'the world is ending';
print $end;
view release on metacpan or search on metacpan
examples/dump.pl view on Meta::CPAN
use strict;
use warnings;
# VERSION
use lib qw{../lib lib};
use Acme::Dump::And::Dumper;
my $data = {
foo => "bar\nber",
ber => {
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
t/confused.t view on Meta::CPAN
#!/usr/bin/perl
use lib '.';
use Test::More tests => 6;
ok !eval {require t::t4::ConfusedStrict1 }, 'Confused strict 1 dies';
%evil::wants_strict = ();
ok !eval {require t::t4::ConfusedIntermediate1 }, 'Confused intermediate 1 dies';
view release on metacpan or search on metacpan
use strict;
use warnings;
use version 0.77; our $VERSION = version->declare( v2.3.2 );
use lib q|./build_e7BB|;
use Build_iu8t;
=head1 OVERVIEW
B<Acme::FSM> implements something resembling Finite State Machine.
view release on metacpan or search on metacpan
script/advice_slip.pl view on Meta::CPAN
use lib '../lib';
use v5.38;
no warnings 'experimental::builtin';
use Acme::Free::Advice::Slip;
use Getopt::Long;
use Pod::Usage;
view release on metacpan or search on metacpan
script/advice_kk.pl view on Meta::CPAN
use lib '../lib';
use v5.36;
use Acme::Free::Advice::Unsolicited;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];
view release on metacpan or search on metacpan
script/advice.pl view on Meta::CPAN
use lib '../lib';
use v5.36;
use Acme::Free::Advice;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];
view release on metacpan or search on metacpan
#!/usr/bin/env perl
use warnings;
use strict;
use lib qw/lib/;
use Test::More tests => 4;
use_ok('Acme::GILLIGAN::Utils');
ok (defined &Acme::GILLIGAN::Utils::sum, 'sum() is deinfed');
view release on metacpan or search on metacpan
t/1-basic.t view on Meta::CPAN
#!/usr/bin/perl
use strict;
use FindBin;
use lib "$FindBin::Bin/../lib";
local $SIG{__WARN__} = sub {1};
print "1..3\n";
view release on metacpan or search on metacpan
eg/apartment.pl view on Meta::CPAN
use strict;
use warnings;
use utf8;
use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(__FILE__), '../lib');
binmode(STDOUT, ":utf8");
use Acme::HidamariSketch;
my $hidamari = Acme::HidamariSketch->new;
view release on metacpan or search on metacpan
t/00_compile.t view on Meta::CPAN
use strict;
use Test::More 0.98;
use lib '../lib';
use_ok $_ for qw(
Acme::ICan'tBelieveItCanSort
);
done_testing;
view release on metacpan or search on metacpan
#!/usr/bin/perl -w
BEGIN
{
chdir 't' if -d 't';
use lib '../lib', '../blib/lib';
}
use strict;
use vars qw( $looping $moving_on );
use Test::More 'no_plan'; # tests => 20;
view release on metacpan or search on metacpan
script/evil_insult.pl view on Meta::CPAN
use lib '../lib';
use v5.36;
use Acme::Insult::Evil;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];
view release on metacpan or search on metacpan
script/glax_insult.pl view on Meta::CPAN
use lib '../lib';
use v5.36;
use Acme::Insult::Glax;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];
view release on metacpan or search on metacpan
script/pirate_insult.pl view on Meta::CPAN
use lib '../lib';
use v5.36;
use Acme::Insult::Pirate;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];
view release on metacpan or search on metacpan
script/insult.pl view on Meta::CPAN
use lib '../lib';
use v5.36;
use Acme::Insult;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];
view release on metacpan or search on metacpan
examples/inslolt view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use lib qw'../lib lib';
use Acme::LOLCAT;
print translate( prebuilt_insult() ), "\n";
view release on metacpan or search on metacpan
use v5.42;
use Test2::V0;
use lib '../lib';
use Acme::MCP;
use JSON::PP;
#
subtest 'Tool Registration' => sub {
isa_ok my $mcp = Acme::MCP->new(), ['Acme::MCP'];
view release on metacpan or search on metacpan
Then either set the PERL5LIB environment variable before you run
scripts that use the modules/libraries (see perlrun) or in your
programs say:
use lib 'BASEPATH/lib/perl5';
3. Run 'make' ('nmake' on Windows, 'dmake' on MinGW) to build OpenGL.
view release on metacpan or search on metacpan
inc/Inline/Module.pm view on Meta::CPAN
die <<"...";
First element of \@INC should be 'inc'.
It's '$first'.
Add this line to the top of your '$program':
use lib 'inc';
...
}
}
view release on metacpan or search on metacpan
eg/sample.pl view on Meta::CPAN
use strict;
use warnings;
use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::Math::PerfectChristmasTree qw/calc_perfect_christmas_tree/;
my %perfect_tree = calc_perfect_christmas_tree(140);
print $perfect_tree{'star_or_fairy_height'};
view release on metacpan or search on metacpan
utils/update-module view on Meta::CPAN
#!/usr/bin/perl
use strict;
use lib "lib";
use Acme::MetaSyntactic::daleks;
my $mod_path = $INC{"Acme/MetaSyntactic/daleks.pm"};
open(MODULE, $mod_path) or die "can't read '$mod_path': $!";
my @file = grep { /^package/ .. /^__DATA__/ } <MODULE>;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
or die "Couldn't install Module::Build, giving up.\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 MyModuleBuilder;
Module::Build::Compat->write_makefile(build_class => 'MyModuleBuilder');
view release on metacpan or search on metacpan
use strict;
use Test::More;
use Acme::MetaSyntactic;
use lib 't/lib';
use NoLang;
use File::Spec::Functions;
my $dir;
BEGIN { $dir = catdir qw( t lib ); }
use lib $dir;
plan tests => 11;
LIST: {
my $meta = Acme::MetaSyntactic->new('test_ams_list');