view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

);

if ( $answer =~ m/^y/i ) {
    print "I'm going to run the network tests.\n";
    push @patterns, 't/NETZ/*.t';
}
else {
    print "Skipping network tests.\n";
}

$config{test} = { TESTS => join ' ', map {glob} @patterns };

WriteMakefile(%config);

t/NETZ/FUNKTIONALITAT.t  view on Meta::CPAN

#!perl
# vim:enc=utf8:
use strict;
use warnings;

use Test::More;
use File::Temp;

my @pairs = map { [ split m{\n----\n}s ] } split m{%%%%\n}s,
    do { local $/, <DATA> };
plan tests => scalar @pairs;

$ENV{PERL5LIB}
    = join( ':', @INC ) . ( exists $ENV{PERL5LIB} ? ":$ENV{PERL5LIB}" : q{} );

my $test_program = <<'END_TEST_PROGRAM';
#!perl
use Acme::LAUTER::DEUTSCHER;
print <DATA>;