view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
KEY_truncate|5.003007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
lib/Message/String.pm view on Meta::CPAN
# subroutine identifier.
my %bad_identifiers = map +( $_, 1 ), qw/
BEGIN INIT CHECK END DESTROY
AUTOLOAD STDIN STDOUT STDERR ARGV
ARGVOUT ENV INC SIG UNITCHECK
__LINE__ __FILE__ __PACKAGE__ __DATA__ __SUB__
__END__ __ANON__
/;
sub id
view release on metacpan or search on metacpan
lib/Module/Functions.pm view on Meta::CPAN
my $klass = shift || caller(0);
my @functions;
no strict 'refs';
my %class = %{"${klass}::"};
while (my ($k, $v) = each %class) {
next if $k =~ /^(?:BEGIN|UNITCHECK|INIT|CHECK|END|import)$/;
next if $k =~ /^_/;
next unless *{"${klass}::${k}"}{CODE};
next if $klass ne Sub::Identify::stash_name( $klass->can($k) );
push @functions, $k;
}
lib/Module/Functions.pm view on Meta::CPAN
Rules are here:
=over 4
=item BEGIN, UNITCHECK, CHECK, INIT, and END are hidden.
=item 'import' method is hidden
=item function name prefixed by '_' is hidden.
lib/Module/Functions.pm view on Meta::CPAN
=head2 my @functions = get_full_functions($package)
This function get ALL functions.
ALL means functions that were imported from other packages.
And included specially named functions(BEGIN , UNITCHECK , CHECK , INIT and END).
Of course, included also private functions( ex. _foo ).
=head1 AUTHOR
Tokuhiro Matsuno E<lt>tokuhirom AAJKLFJEF@ GMAIL COME<gt>
view release on metacpan or search on metacpan
lib/Module/Generate.pm view on Meta::CPAN
$CLASS{CURRENT}{BEGIN} = $_[1];
return $_[0];
}
sub unitcheck {
$CLASS{CURRENT}{UNITCHECK} = $_[1];
return $_[0];
}
sub check {
$CLASS{CURRENT}{CHECK} = $_[1];
lib/Module/Generate.pm view on Meta::CPAN
}
sub _build_phase {
my $phases = shift;
my @codes;
for (qw/BEGIN UNITCHECK CHECK INIT END/) {
if ($phases->{$_}) {
my $code = ref $phases->{$_} ? Dumper $phases->{$_} : $phases->{$_};
$code =~ s/\$VAR1 = //;
$code =~ s/^\s*sub\s*//;
$code =~ s/\s*\n*\s*package Module\:\:Generate\;|use warnings\;|use strict\;//g;
view release on metacpan or search on metacpan
lib/Module/Generic.pm view on Meta::CPAN
return;
}
# illegal functions that have no business being here, and could pass through the previous check
elsif( $params =~ /\b(?:
qx|system|open|exec|fork|require|use|eval|do|
package|sub|BEGIN|UNITCHECK|CHECK|INIT|END|
readpipe|sysopen|unlink|rename|chmod|chown|utime|truncate|mkdir|rmdir|opendir|readdir|closedir|glob
)\b/i )
{
$self->__message( 120, "\$process_params->(): Illegal functions used inside eval." );
return;
view release on metacpan or search on metacpan
lib/Modulino/Demo.pm view on Meta::CPAN
use warnings;
our $VERSION = '1.006';
UNITCHECK {
sub _running_under_docreader {
!! $ENV{PERLDOC}
}
sub _running_under_tester {
view release on metacpan or search on metacpan
KEY_truncate|5.003007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
lib/MooseX/Compile.pm view on Meta::CPAN
} else {
warn "class '$class' requires compilation\n" if DEBUG;
require Check::UnitCheck;
Check::UnitCheck::unitcheckify(sub {
warn "compilation unit of class '$class' calling UNITCHECK\n" if DEBUG;
$self->unit_check( $class, $file, @args );
});
require Moose;
shift; unshift @_, "Moose";
view release on metacpan or search on metacpan
inc/Perl/Tidy.pm view on Meta::CPAN
@_ = qw(&& || and or : ? . + - * /);
@is_chain_operator{@_} = (1) x scalar(@_);
# We can remove semicolons after blocks preceded by these keywords
@_ =
qw(BEGIN END CHECK INIT AUTOLOAD DESTROY UNITCHECK continue if elsif else
unless while until for foreach);
@is_block_without_semicolon{@_} = (1) x scalar(@_);
# 'L' is token for opening { at hash key
@_ = qw" L { ( [ ";
inc/Perl/Tidy.pm view on Meta::CPAN
# These block types terminate statements and do not need a trailing
# semicolon
# patched for SWITCH/CASE/
my %is_zero_continuation_block_type;
@_ = qw( } { BEGIN END CHECK INIT AUTOLOAD DESTROY UNITCHECK continue ;
if elsif else unless while until for foreach switch case given when);
@is_zero_continuation_block_type{@_} = (1) x scalar(@_);
my %is_not_zero_continuation_block_type;
@_ = qw(sort grep map do eval);
inc/Perl/Tidy.pm view on Meta::CPAN
}
}
# ...and include all block types except user subs with
# block prototypes and these: (sort|grep|map|do|eval)
# /^(\}|\{|BEGIN|END|CHECK|INIT|AUTOLOAD|DESTROY|UNITCHECK|continue|;|if|elsif|else|unless|while|until|for|foreach)$/
elsif (
$is_zero_continuation_block_type{
$routput_block_type->[$i] } )
{
$in_statement_continuation = 0;
inc/Perl/Tidy.pm view on Meta::CPAN
return $last_nonblank_token;
}
# otherwise, look at previous token. This must be a code block if
# it follows any of these:
# /^(BEGIN|END|CHECK|INIT|AUTOLOAD|DESTROY|UNITCHECK|continue|if|elsif|else|unless|do|while|until|eval|for|foreach|map|grep|sort)$/
elsif ( $is_code_block_token{$last_nonblank_token} ) {
# Bug Patch: Note that the opening brace after the 'if' in the following
# snippet is an anonymous hash ref and not a code block!
# print 'hi' if { x => 1, }->{x};
inc/Perl/Tidy.pm view on Meta::CPAN
@is_indirect_object_taker{@_} = (1) x scalar(@_);
# These tokens may precede a code block
# patched for SWITCH/CASE
@_ =
qw( BEGIN END CHECK INIT AUTOLOAD DESTROY UNITCHECK continue if elsif else
unless do while until eval for foreach map grep sort
switch case given when);
@is_code_block_token{@_} = (1) x scalar(@_);
# I'll build the list of keywords incrementally
inc/Perl/Tidy.pm view on Meta::CPAN
GT
INIT
LE
LT
NE
UNITCHECK
abs
accept
alarm
and
atan2
view release on metacpan or search on metacpan
lib/Moxie.pm view on Meta::CPAN
# then schedule the trait collection ...
Method::Traits->import_into( $meta->name, @traits );
# install our class finalizer
MOP::Util::defer_until_UNITCHECK(sub {
# pre-populate the cache for all the slots (if it is a class)
MOP::Util::inherit_slots( $meta );
# apply roles ...
lib/Moxie.pm view on Meta::CPAN
the correct state in the current package such that it conforms
to the expectations of the L<UNIVERSAL::Object> and L<MOP>
modules.
All of these keywords are executed during the C<BEGIN> phase,
and the keywords themselves are removed in the C<UNITCHECK>
phase. This prevents them from being mistaken as methods by
both L<perl> and the L<MOP>.
=over 4
lib/Moxie.pm view on Meta::CPAN
This sets up a role relationship between the current class or
role and the roles listed in C<@roles>.
This will cause L<Moxie> to compose the C<@roles> into the current
class or role during the next C<UNITCHECK> phase.
This will populate the C<@DOES> variable in the current package.
=item C<< has $name => sub { $default_value } >>
view release on metacpan or search on metacpan
lib/Multi/Dispatch.pm view on Meta::CPAN
if ($export) {
$BEGIN = $ISOLATION_TEST = q{};
}
my $annotator = $^H{'Multi::Dispatch annotate'}
? q{ UNITCHECK { Multi::Dispatch::_annotate(__PACKAGE__, __FILE__) } }
: q{};
my $installer = qq{
$BEGIN {
no strict 'refs';
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
lib/Net/Async/Redis/Commands.pm view on Meta::CPAN
'ZUNIONSTORE' => 3,
);
our %COMMAND_DEFINITION;
UNITCHECK {
%COMMAND_DEFINITION = do {
my $path = Path::Tiny::path(__DIR__)->parent(3)->child('share/commands.yaml');
$path = Path::Tiny::path(
File::ShareDir::dist_file(
'Net-Async-Redis',
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
KEY_truncate|5.003007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
lib/Object/Import.pm view on Meta::CPAN
# but the sub slot is not used, so we don't care.
# The following names are called by use/no, so they definitely should not be exported.
$special_source{$_}++, $special_target{$_}++ for qw"import unimport";
# The following should not occur as subs, but we exclude them for good measure.
$special_source{$_}++, $special_target{$_}++ for
qw"BEGIN UNITCHECK CHECK INIT END";
# The following names could override a builtin function if exported to a module
$special_target{$_}++ for qw"
abs accept alarm atan2 bind binmode bless break caller chdir chmod
chomp chop chown chr chroot close closedir connect continue cos
crypt dbmclose dbmopen default defined delete die do dump each
view release on metacpan or search on metacpan
lib/Object/Pad/MOP/Class.pm view on Meta::CPAN
A variant of L</create_class> which sets the newly-created class as the
current complication scope of the surrounding code, allowing it to accept
C<Object::Pad> syntax forms such as C<has> and C<method>.
This must be done during C<BEGIN> time because of this compiletime effect.
It additionally creates a deferred code block at C<UNITCHECK> time of its
surrounding scope, which is used to finalise the constructed class. In this
case you do not need to remember to call L</seal> on it; this happens
automatically.
=head2 begin_role
view release on metacpan or search on metacpan
lib/Object/PadX/Enum.pm view on Meta::CPAN
C<item> args. C<Object::PadX::Enum> does I<not> inject C<:param> automatically.
=item *
Singletons are constructed at the runtime of the compilation unit that
contains the C<enum> declaration, after that unit's C<UNITCHECK> phase. They
are therefore not visible from earlier C<BEGIN>/C<UNITCHECK> blocks of the
same unit. Normal runtime code (including code inside C<do BLOCK> and
C<eval "STRING"> blocks executed during main runtime) sees them as expected.
=item *
view release on metacpan or search on metacpan
lib/Object/Proto/Sugar.pm view on Meta::CPAN
push @modifiers, [$mod_type, $name, $code];
}
);
}
Devel::Hook->push_UNITCHECK_hook(sub {
my @spec_copy = @spec;
my (@func_names, $attr, $spec, %isa, @attributes);
while (@spec) {
($attr, $spec) = (shift @spec, shift @spec);
$attr = _configure_is($attr, $spec);
view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
view release on metacpan or search on metacpan
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu