Acme-AsciiArtinator
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
abstract: Embed Perl code in ASCII artwork
author:
- Marty O'Brien <mob@cpan.org>
license: perl
distribution_type: module
configure_requires:
ExtUtils::MakeMaker: 0
build_requires:
ExtUtils::MakeMaker: 0
requires:
Test::More: 0
no_index:
directory:
- t
- inc
generated_by: ExtUtils::MakeMaker version 6.54
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Makefile.PL view on Meta::CPAN
WriteMakefile(
NAME => 'Acme::AsciiArtinator',
AUTHOR => q{Marty O'Brien <mob@cpan.org>},
VERSION_FROM => 'lib/Acme/AsciiArtinator.pm',
ABSTRACT_FROM => 'lib/Acme/AsciiArtinator.pm',
($ExtUtils::MakeMaker::VERSION >= 6.3002
? ('LICENSE'=> 'perl')
: ()),
PL_FILES => {},
PREREQ_PM => {
'Test::More' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'Acme-AsciiArtinator-*' },
);
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
close $fh;
print qq{Running test: $^X ascii-art-test-$ntest-$$.pl @test_argv < ascii-art-test-$ntest-$$.stdin\n} if $DEBUG;
$output = qx{$^X ascii-art-test-$ntest-$$.pl @test_argv < ascii-art-test-$ntest-$$.stdin};
unlink "ascii-art-test-$ntest-$$.stdin";
} else {
print qq{Running test: $^X ascii-art-test-$ntest-$$.pl @test_argv\n};
$output = qx{$^X ascii-art-test-$ntest-$$.pl @test_argv};
}
print "Ran pre-test # $ntest with argv: \"@test_argv\", stdin: \"@test_stdin\"\n";
$Acme::AsciiArtinator::TestOutput[$ntest] = $output;
unlink "ascii-art-test-$ntest-$$.pl";
} else {
carp "Could not write code to disk in order to run pre-test.\n";
}
} continue {
$ntest++;
}
###############################################
t/01-artinate.t view on Meta::CPAN
#!perl
use Test::More tests => 6;
use Acme::AsciiArtinator;
use strict;
use warnings;
my $art = '
XXXXXXXXXXXXXXX
XXXXXXXXXXXXX
XXXXXXXXXXX
XXXXXXXXX
XXXXXXX
t/19-tokenize-regex.t view on Meta::CPAN
use Acme::AsciiArtinator;
use Test::More tests => 10;
#################################
#
# test how things are tokenized
#
#################################
my $code = '$a=$b+$c;$d=$e**4';
my @tokens = Acme::AsciiArtinator::tokenize_code($code);
ok(@tokens == 16, "routine tokenize test");
t/pod-coverage.tt view on Meta::CPAN
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
all_pod_coverage_ok();
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.823 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )