view release on metacpan or search on metacpan
lib/Acme/AllThePerlIsAStage.pm view on Meta::CPAN
$our_set_at_init_and_run = $$;
_say_stage("IF-RUN 1");
}
BEGIN {
$my_set_at_begin = $$;
$our_set_at_begin = $$;
_say_stage("BEGIN 1");
}
UNITCHECK {
$my_set_at_unitcheck = $$;
$our_set_at_unitcheck = $$;
_say_stage("UNITCHECK 1");
}
CHECK {
$my_set_at_check = $$;
$our_set_at_check = $$;
_say_stage("CHECK 1");
}
INIT {
$my_set_at_init = $$;
lib/Acme/AllThePerlIsAStage.pm view on Meta::CPAN
}
INIT {
_say_stage("INIT 2");
}
CHECK {
_say_stage("CHECK 2");
}
UNITCHECK {
_say_stage("UNITCHECK 2");
}
BEGIN {
_say_stage("BEGIN 2");
}
if ( ${^GLOBAL_PHASE} eq 'RUN' ) {
_say_stage("IF-RUN 2");
}
lib/Acme/AllThePerlIsAStage.pm view on Meta::CPAN
=head2 our $vars
TODO v0.02 – fill me out (sorry, ran our of time)
=head2 my $vars
TODO v0.02 – fill me out (sorry, ran our of time)
=head1 INTERFACE
Just use or require the module. It outputs info you can use to visualize and study in order to grok L<perlmod/"BEGIN, UNITCHECK, CHECK, INIT and END">.
If the environment variable 'AllThePerlIsAStage_verbose' is true it outputs info on various symbols at each point in the process.
=head2 use()/require() compiled/uncompiled
perl -e 'use Acme::AllThePerlIsAStage;'
perl -e 'use Acme::AllThePerlIsAStage;'
perlcc -e 'use Acme::AllThePerlIsAStage;' -o tmp/use
./tmp/use
./tmp/use
lib/Acme/AllThePerlIsAStage/AndAllTheMenAndWomenJAPH.pm view on Meta::CPAN
$our_set_at_init_and_run = $$;
_say_stage("IF-RUN 1");
}
BEGIN {
$my_set_at_begin = $$;
$our_set_at_begin = $$;
_say_stage("BEGIN 1");
}
UNITCHECK {
$my_set_at_unitcheck = $$;
$our_set_at_unitcheck = $$;
_say_stage("UNITCHECK 1");
}
CHECK {
$my_set_at_check = $$;
$our_set_at_check = $$;
_say_stage("CHECK 1");
}
INIT {
$my_set_at_init = $$;
lib/Acme/AllThePerlIsAStage/AndAllTheMenAndWomenJAPH.pm view on Meta::CPAN
}
INIT {
_say_stage("INIT 2");
}
CHECK {
_say_stage("CHECK 2");
}
UNITCHECK {
_say_stage("UNITCHECK 2");
}
BEGIN {
_say_stage("BEGIN 2");
}
if ( ${^GLOBAL_PHASE} eq 'RUN' ) {
_say_stage("IF-RUN 2");
}
share/and_one_man_in_his_time_plays_many_parts.pl view on Meta::CPAN
$our_set_at_init_and_run = $$;
say_stage("IF-RUN 1");
}
BEGIN {
$my_set_at_begin = $$;
$our_set_at_begin = $$;
say_stage("BEGIN 1");
}
UNITCHECK {
$my_set_at_unitcheck = $$;
$our_set_at_unitcheck = $$;
say_stage("UNITCHECK 1");
}
CHECK {
$my_set_at_check = $$;
$our_set_at_check = $$;
say_stage("CHECK 1");
}
INIT {
$my_set_at_init = $$;
share/and_one_man_in_his_time_plays_many_parts.pl view on Meta::CPAN
}
INIT {
say_stage("INIT 2");
}
CHECK {
say_stage("CHECK 2");
}
UNITCHECK {
say_stage("UNITCHECK 2");
}
BEGIN {
say_stage("BEGIN 2");
}
if ( ${^GLOBAL_PHASE} eq 'RUN' ) {
say_stage("IF-RUN 2");
}
share/they_have_their_exits_and_their_entrances.pl view on Meta::CPAN
$our_set_at_init_and_run = $$;
say_stage("IF-RUN 1");
}
BEGIN {
$my_set_at_begin = $$;
$our_set_at_begin = $$;
say_stage("BEGIN 1");
}
UNITCHECK {
$my_set_at_unitcheck = $$;
$our_set_at_unitcheck = $$;
say_stage("UNITCHECK 1");
}
CHECK {
$my_set_at_check = $$;
$our_set_at_check = $$;
say_stage("CHECK 1");
}
INIT {
$my_set_at_init = $$;
share/they_have_their_exits_and_their_entrances.pl view on Meta::CPAN
}
INIT {
say_stage("INIT 2");
}
CHECK {
say_stage("CHECK 2");
}
UNITCHECK {
say_stage("UNITCHECK 2");
}
BEGIN {
say_stage("BEGIN 2");
}
if ( ${^GLOBAL_PHASE} eq 'RUN' ) {
say_stage("IF-RUN 2");
}