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
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;
view release on metacpan or search on metacpan
t/synopsis.t view on Meta::CPAN
system "mv $FindBin::Bin/../examples/lib/Hello.pm $FindBin::Bin/../examples/lib/Hello.🧅";
}
use Test::More;
use lib 'examples/lib';
use Acme::Onion;
use Hello;
ok +Hello->onion;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use strict;
use warnings;
use ExtUtils::MakeMaker;
use lib qw(../blib/lib lib );
use Apache::TestMM qw(test clean); #enable 'make test'
# prerequisites
my @scripts = qw(t/TEST);
view release on metacpan or search on metacpan
builder/Acme/Parataxis/Builder.pm view on Meta::CPAN
method Build_PL() {
say sprintf 'Creating new Build script for %s %s', $meta->name, $meta->version;
$self->write_file( 'Build', sprintf <<'', $^X, __PACKAGE__, __PACKAGE__ );
#!%s
use lib 'builder';
use %s;
use Getopt::Long qw[GetOptionsFromArray];
my %%opts = ( @ARGV && $ARGV[0] =~ /\A\w+\z/ ? ( action => shift @ARGV ) : () );
GetOptionsFromArray \@ARGV, \%%opts, qw[install_base=s install_path=s%% installdirs=s destdir=s prefix=s config=s%% uninst:1 verbose:1 dry_run:1 jobs=i];
%s->new(%%opts)->Build();
view release on metacpan or search on metacpan
- Fix bugtracker.
0.04 2021-03-19T18:24:58+01:00
- Add LICENSE file.
- Add tests.
- Fix use lib '.' in Makefile.PL.
- Improve LICENSE AND COPYRIGHT section in doc.
- Improve SYNOPSIS section in doc.
- Rewrite doc to use =head2.
- Update Module::Install to 1.19 version.
- Update author github username.
view release on metacpan or search on metacpan
example/funcall.pl view on Meta::CPAN
#!perl -w
use strict;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use Acme::Perl::VM::Run;
sub hello{
my($s) = @_;
view release on metacpan or search on metacpan
t/01_compile.t view on Meta::CPAN
#!/usr/bin/perl -w
# Compile testing for Acme::PerlML
use strict;
use lib ();
use File::Spec::Functions ':ALL';
BEGIN {
$| = 1;
unless ( $ENV{HARNESS_ACTIVE} ) {
require FindBin;
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
maint/Makefile.PL.include view on Meta::CPAN
BEGIN { -e 'Distar' or system qw(git clone https://github.com/p5sagit/Distar.git) }
use lib 'Distar/lib';
use Distar 0.001;
author 'haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org>';
1;
view release on metacpan or search on metacpan
#!/usr/bin/perl
use strict;
use warnings;
use lib "/home/anarion/perl/rtb";
use Acme::RTB;
my $robot = Acme::RTB->new({ Name => 'Killer Montses',
Colour => 'ff0000 ff0000',
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
BEGIN {
use_ok 'Acme::Resume';
}
use lib 't/01/lib';
use Acme::Resume::For::Tester;
my $resume = Acme::Resume::For::Tester->new;
view release on metacpan or search on metacpan
use Test::More tests => 1;
use Acme::RunDoc;
use lib "t";
use lib ".";
Acme::RunDoc->use('Local::TestModule');
my $pass = Local::TestModule->can('PASS');
ok($pass && $pass->());
view release on metacpan or search on metacpan
use lib 't';
use t::UnsafeSourceFilter;
use Acme::SafetyGoggles;
use Test::More tests => length("xx"); # Can't say tests=>2 because of source filter!
my $foo = 42;
view release on metacpan or search on metacpan
bin/schlong view on Meta::CPAN
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Data::Printer;
use Acme::Schlong;
view release on metacpan or search on metacpan
use v5.42;
use Test2::V0;
use lib 'lib', '../lib';
use Acme::Selection::RarestFirst;
use Acme::Bitfield;
#
subtest 'Rarest First Picking' => sub {
isa_ok my $sel = Acme::Selection::RarestFirst->new( size => 5 ), ['Acme::Selection::RarestFirst'];
view release on metacpan or search on metacpan
use strict;
use warnings;
use Getopt::Long;
use lib "./lib";
use Acme::Shotgun;
sub usage {
my $err_msg = shift;
print "$err_msg\n" if $err_msg;
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
}
sub _startperl { shift()->config('startperl') }
# Return any directories in @INC which are not in the default @INC for
# this perl. For example, stuff passed in with -I or loaded with "use lib".
sub _added_to_INC {
my $self = shift;
my %seen;
$seen{$_}++ foreach $self->_default_INC;
view release on metacpan or search on metacpan
#!perl -w
use strict;
use FindBin;
use lib $FindBin::Bin;
use Tester;
Tester::test_package('Acme::Steganography::Image::Png::FlashingNeonSignGrey');
view release on metacpan or search on metacpan
t/01_validating.t view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use lib ('./blib','./lib','../blib','../lib');
use Acme::Sub::Parms;
my @tests_list = (
{ -code => \&bind_parms_test, -desc => 'BindParms (validating, non-normalized) ' },
);
view release on metacpan or search on metacpan
t/01-function.t view on Meta::CPAN
use lib './lib';
use Acme::Syntax::Python;
from Data::Dumper import Dumper, DumperX;
import Test::More;
def test:
view release on metacpan or search on metacpan
#!/usr/bin/perl -w
use strict;
use lib qw( ./blib/lib ../blib/lib );
use Test::More tests => 3;
use Acme::Test::Pr0n;
my $filename = 't/test.data';
view release on metacpan or search on metacpan
lib/Acme/Test.pm view on Meta::CPAN
=head1 EXAMPLE
Imagine your test.pl script would look something like this:
use lib '../devel/file-basename/lib';
use Acme::Test 'File::Basename';
Then the resulting test output would look pretty much like this:
# Testing File::Basename
view release on metacpan or search on metacpan
t/00_compile.t view on Meta::CPAN
use warnings;
use Test::More 0.98 tests => 7;
use Test::More::UTF8;
use lib 'lib';
use_ok 'Acme::Text::Viceversa'; # 1
my $v = new_ok('Acme::Text::Viceversa'); # 2
note "start to upset the echoes...";
view release on metacpan or search on metacpan
use Test::More;
use IO::Handle;
use FindBin qw/ $Bin /;
use lib "$Bin/lib";
use Capture::Tiny qw/ capture_stderr /; # bundled under t/lib
# make sure all test output supports utf
binmode( \$_, ":utf8" ) for *STDERR, *STDOUT;
$_->autoflush(1) for *STDERR, *STDOUT;
view release on metacpan or search on metacpan
t/test_speed_pushsort.pl view on Meta::CPAN
#!/usr/bin/perl
use lib 'blib/lib';
use Acme::Tools;
print "Version $Acme::Tools::VERSION\n";
for(qw/1000 10000 100000 1000000 2000000 3000000 4000000 5000000/){
print "----------$_\n";
my $t=time_fp();