Acme-AllThePerlIsAStage

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use strict;
use warnings;
use ExtUtils::MakeMaker;

# eval q{
#     use File::ShareDir::Install 0.07;
#     delete_share '.'; # delete it all first
#     install_share 'share'; # install the current version second
#     *MY::postamble = \&File::ShareDir::Install::postamble;
# };
# warn "-- share/ will not be installed --\n\t$@\n-- end sharedir error --\n" if $@;

WriteMakefile(
    NAME          => 'Acme::AllThePerlIsAStage',
    AUTHOR        => 'Daniel Muey <http://drmuey.com/cpan_contact.pl>',

lib/Acme/AllThePerlIsAStage.pm  view on Meta::CPAN

    _say_stage("inside import()");
}

# Since we are doing BEGIN blocks that call this we need it first:
sub _say_stage {
    my ($name) = @_;
    print caller() . " - $name (\${^GLOBAL_PHASE} is '${^GLOBAL_PHASE}')\n";
    return unless $ENV{'AllThePerlIsAStage_verbose'};

    # TODO v0.02: test that this does not change results
    # TODO v0.02: eval if callable w/and w/out parens?
    # print "\t set_at_begin() is " . (defined &set_at_begin) ? "defined" : "not defined";
    # print "\tset_at_global() is " . (defined &set_at_global) ? "defined" : "not defined";
    # set_at_begin_via_import
    # set_at_begin_via_block
    # set_at_begin_via_sub_defined_at_global
    # set_at_begin_via_sub_defined_at_global
    # set_at_begin
    # set_at_global

    for my $var (

t/perlcritic.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'Critic tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::Perl::Critic';
plan skip_all => 'Test::Perl::Critic required for testing PBP compliance' if $@;
Test::Perl::Critic::all_critic_ok();

t/perltidy.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'PerlTidy tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::PerlTidy';
plan skip_all => 'Test::PerlTidy required for testing PerlTidy-ness' if $@;
Test::PerlTidy::run_tests();

t/pkg-changes.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'pkg/Changes tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::CPAN::Changes 0.23';
plan skip_all => 'Test::CPAN::Changes 0.23 required for testing the pkg/Changes file' if $@;

changes_ok();    # this does the plan

t/pkg-readme.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'pkg/README tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::CPAN::README 0.2';
plan skip_all => 'Test::CPAN::README v0.2 required for testing the pkg/README file' if $@;

readme_ok();    # this does the plan

t/pod-coverage.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'POD tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::Pod::Coverage 1.04';
plan skip_all => 'Test::Pod::Coverage v1.04 required for testing POD coverage' if $@;
pod_coverage_ok('Acme::AllThePerlIsAStage');
done_testing;

t/pod-encoding.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'POD tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::Pod 1.14';
plan skip_all => 'Test::Pod v1.14 required for testing POD' if $@;
eval 'use Pod::Simple';
plan skip_all => 'Pod::Simple v3.28 required for testing POD encoding' if $@;

for my $pod ( all_pod_files() ) {
    my $parser = Pod::Simple->new();
    $parser->parse_file($pod);
    next if !$parser->content_seen();

    my $enc = $parser->encoding();
    ok( defined $enc, "=encoding exists: $pod" ) && like( $enc, qr/^utf-?8$/i, "=encoding is utf8: $pod" );
}

t/pod-spelling.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'POD tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::Spelling 0.19';
plan skip_all => 'Test::Spelling v0.19 required for testing POD' if $@;

add_stopwords( map { split /[\s\:\-]/ } readline(*DATA) );
$ENV{LANG} = 'C';
all_pod_files_spelling_ok();

__DATA__
MERCHANTABILITY
Muey

t/pod-version.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'POD tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::Pod 1.14';
plan skip_all => 'Test::Pod v1.14 required for testing POD' if $@;
eval 'use Pod::Simple::SimpleTree 3.28';
plan skip_all => 'Pod::Simple::SimpleTree v3.28 required for testing POD version' if $@;
eval 'use Module::Want 0.5';
plan skip_all => 'Module::Want v0.5 required for testing POD version' if $@;

my $ns_regex = Module::Want::get_ns_regexp();

for my $pod ( all_pod_files() ) {

    my $version_section;
    my $next = 0;
    for my $section ( @{ Pod::Simple::SimpleTree->new->parse_file($pod)->root } ) {
        next unless ref($section) eq 'ARRAY';

t/pod.t  view on Meta::CPAN

#!perl

use Test::More;
plan skip_all => 'POD tests are only run in RELEASE_TESTING mode.' unless $ENV{'RELEASE_TESTING'};

eval 'use Test::Pod 1.14';
plan skip_all => 'Test::Pod v1.14 required for testing POD' if $@;
all_pod_files_ok();