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
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
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');
view release on metacpan or search on metacpan
t/01basic.t view on Meta::CPAN
use strict;
use warnings;
#use lib 'lib';
use Test::More tests => 3;
use Acme::Metification;
ok(1, "Module loaded.");
view release on metacpan or search on metacpan
#!perl
use strict;
use lib 'blib/lib';
use Acme::Module::Authors;
use CGI;
view release on metacpan or search on metacpan
t/05package.t view on Meta::CPAN
1;
EOF
$fh = $filehandles[1];
print $fh <<EOF;
use lib qw($lib);
use AcmeTestGood;
1;
EOF
$fh = $filehandles[2];
t/05package.t view on Meta::CPAN
1;
EOF
$fh = $filehandles[3];
print $fh <<EOF;
use lib qw($lib);
use AcmeTestBad;
1;
EOF
foreach my $filehandle (@filehandles) {
view release on metacpan or search on metacpan
eg/nyaaproxy.psgi view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use lib './lib';
use Furl;
use Plack::Builder;
use Plack::Request;
use Plack::Builder;
use Acme::Nyaa;