view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/Acme/AllThePerlIsAStage/AndAllTheMenAndWomenJAPH.pm
share/they_have_their_exits_and_their_entrances.pl
share/and_one_man_in_his_time_plays_many_parts.pl
Makefile.PL
MANIFEST			This list of files
README
t/00.load.t
t/lib
t/perlcritic.t
t/perltidy.t
t/pkg-changes.t
t/pkg-readme.t
t/pod-coverage.t
t/pod-encoding.t
t/pod-spelling.t
t/pod-version.t
t/pod.t
META.yml                                 Module YAML meta-data (added by MakeMaker)
META.json                                Module JSON meta-data (added by MakeMaker)

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

sub import {
    _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

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