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
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
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
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
share/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_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/PLS/Parser/PackageSymbols.pm view on Meta::CPAN
my @parts = split /::/, $package;
my $ref = \%{"${package}::"};
foreach my $name (keys %{$ref})
{
next if $name =~ /^BEGIN|UNITCHECK|INIT|CHECK|END|VERSION|DESTROY|import|unimport|can|isa$/;
next if $name =~ /^_/; # hide private subroutines
next if $name =~ /^\(/; # overloaded operators start with a parenthesis
my $code_ref = $package->can($name);
next if (ref $code_ref ne 'CODE');
view release on metacpan or search on metacpan
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
=for Pod::Functions =!Non-functions
C<and>, C<AUTOLOAD>, C<BEGIN>, C<CHECK>, C<cmp>, C<CORE>, C<__DATA__>,
C<default>, C<DESTROY>, C<else>, C<elseif>, C<elsif>, C<END>, C<__END__>,
C<eq>, C<for>, C<foreach>, C<ge>, C<given>, C<gt>, C<if>, C<INIT>, C<le>,
C<lt>, C<ne>, C<not>, C<or>, C<UNITCHECK>, C<unless>, C<until>, C<when>,
C<while>, C<x>, C<xor>
=back
=head2 Portabilidad
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
moviendo todos los demás hacia arriba. Si no hay elementos en el array,
devuelve el valor undef. Si se omite ARRAY, se desplaza el array
L<C<@_>|perlvar/@_> dentro del ámbito léxico de subrutinas y formatos, y el
array L<C<@ARGV>|perlvar/@ARGV> si está fuera de una subrutina y también
dentro de los ámbitos léxicos establecidos por construcciones como C<eval
CADENA>, C<BEGIN {}>, C<INIT {}>, C<CHECK {}>, C<UNITCHECK {}> y C<END {}>.
A partir de Perl 5.14, una caracterÃstica experimental permitÃa a
L<C<shift>|/shift ARRAY> tomar una expresión escalar. Se ha considerado que
este experimento no ha funcionado, y se quitó a partir de Perl 5.24.
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
return unless defined wantarray; # no nos molestamos más
my @a = calculo_complejo();
return wantarray ? @a : "@a";
El resultado de L<C<wantarray>|/wantarray> no está especificado en el nivel
superior de un archivo, en un C<BEGIN>, C<UNITCHECK>, C<CHECK>, C<INIT> o
bloque C<END>, o en un método C<DESTROY>.
Esta función deberÃa haber sido nombrada wantlist().
=item warn LISTA
lib/POD2/ES/perlfunc.pod view on Meta::CPAN
=item END
=item INIT
=item UNITCHECK
Estas palabras clave de la fase de compilación están documentadas en
L<perlmod/"BEGIN, UNITCHECK, CHECK, INIT y END">.
=back
=head3 perlobj
view release on metacpan or search on metacpan
lib/POD2/RU/perldebug.pod view on Meta::CPAN
=back
=head2 Debugging Compile-Time Statements
If you have compile-time executable statements (such as code within
BEGIN, UNITCHECK and CHECK blocks or C<use> statements), these will
I<not> be stopped by debugger, although C<require>s and INIT blocks
will, and compile-time statements can be traced with the C<AutoTrace>
option set in C<PERLDB_OPTS>). From your own Perl code, however, you
can transfer control back to the debugger using the following
statement, which is harmless if the debugger is not running:
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/POSIX/RT/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
lib/POSIX/RT/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
21783 stat("/usr/share/perl5/constant.pmc", 0x7ffffff2c1a0) = -1 ENOENT (No such file or directory)
21783 stat("/usr/share/perl5/constant.pm", {st_mode=S_IFREG|0444, st_size=14724, ...}) = 0
21783 open("/usr/share/perl5/constant.pm", O_RDONLY|O_CLOEXEC) = 6
21783 ioctl(6, TCGETS, 0x7ffffff2bf60) = -1 ENOTTY (Inappropriate ioctl for device)
21783 lseek(6, 0, SEEK_CUR) = 0
21783 read(6, "package constant;\nuse 5.008;\nuse strict;\nuse warnings::register;\n\nour $VERSION = '1.33';\nour %declared;\n\n#=======================================================================\n\n# Some names are evil choices.\nmy %keywords =...
21783 brk(0x211e000) = 0x211e000
21783 stat("t/warnings/register.pmc", 0x7ffffff2ba70) = -1 ENOENT (No such file or directory)
21783 stat("t/warnings/register.pm", 0x7ffffff2ba70) = -1 ENOENT (No such file or directory)
21783 stat("/home/gray/src/posixruncapture/lib/warnings/register.pmc", 0x7ffffff2ba70) = -1 ENOENT (No such file or directory)
21783 stat("/home/gray/src/posixruncapture/lib/warnings/register.pm", 0x7ffffff2ba70) = -1 ENOENT (No such file or directory)
view release on metacpan or search on metacpan
lib/PPI/Lexer.pm view on Meta::CPAN
# Keyword -> Statement Subclass
my %STATEMENT_CLASSES = (
# Things that affect the timing of execution
'BEGIN' => 'PPI::Statement::Scheduled',
'CHECK' => 'PPI::Statement::Scheduled',
'UNITCHECK' => 'PPI::Statement::Scheduled',
'INIT' => 'PPI::Statement::Scheduled',
'END' => 'PPI::Statement::Scheduled',
# Special subroutines for which 'sub' is optional
'AUTOLOAD' => 'PPI::Statement::Sub',
view release on metacpan or search on metacpan
lib/PPIx/IndexLines.pm view on Meta::CPAN
=head2 line_type
Call this method with a line number, it will return one of
BEGIN CHECK UNITCHECK INIT END POD __DATA__ __END__
or
<PackageName>::<SubName>
view release on metacpan or search on metacpan
(?>(?&PerlOWS)) continue
(?>(?&PerlOWS)) (?&PerlBlock)
)?+
| # Phasers...
(?> BEGIN | END | CHECK | INIT | UNITCHECK | ADJUST ) \b (?>(?&PerlOWS))
(?&PerlBlock)
| # Try/catch/finallys...
(?>(?&PerlTryCatchFinallyBlock))
=head3 C<< (?&PerlStatement) >>
Matches a single valid Perl statement, including: control structures;
C<BEGIN>, C<CHECK>, C<UNITCHECK>, C<INIT>, C<END>, C<DESTROY>, or
C<AUTOLOAD> blocks; variable declarations, C<use> statements, etc.
=head3 C<< (?&PerlExpression) >>
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/Padre/Wx/Scintilla.pm view on Meta::CPAN
sin sleep socket socketpair sort splice split sprintf sqrt srand
stat study sub substr symlink syscall sysopen sysread sysseek
system syswrite tell telldir tie tied time times truncate
uc ucfirst umask undef unless unlink unpack unshift untie until
use utime values vec wait waitpid wantarray warn while write
xor given when default say state UNITCHECK
},
];
# 8 different keyword lists for povray
$KEYWORDS{'text/x-povray'} = [
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/Parse/Perl.xs view on Meta::CPAN
#define PERL_DECIMAL_VERSION \
PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
#define PERL_VERSION_GE(r,v,s) \
(PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
#define QHAVE_UNITCHECK PERL_VERSION_GE(5,9,5)
#define QHAVE_WARNINGS_AS_SV (!PERL_VERSION_GE(5,9,4))
#if QHAVE_WARNINGS_AS_SV
# define WARNINGS_t SV
#else /* !QHAVE_WARNINGS_AS_SV */
lib/Parse/Perl.xs view on Meta::CPAN
/* initialise other parser state */
SAVEOP();
PL_op = NULL;
SAVEGENERICSV(PL_beginav);
PL_beginav = newAV();
#if QHAVE_UNITCHECK
SAVEGENERICSV(PL_unitcheckav);
PL_unitcheckav = newAV();
#endif /* QHAVE_UNITCHECK */
/* parse */
#if !QLEX_START_LINE_IS_SAFE
source = sv_mortalcopy(source);
#endif /* !QLEX_START_LINE_IS_SAFE */
lex_start_simple(source);
lib/Parse/Perl.xs view on Meta::CPAN
if(!(SvPOK(ERRSV) && SvCUR(ERRSV) != 0))
sv_setpvs(ERRSV, "Compilation error");
Perl_die(aTHX_ NULL);
}
/* finalise */
#if QHAVE_UNITCHECK
if(PL_unitcheckav) call_list(PL_scopestack_ix, PL_unitcheckav);
#endif /* QHAVE_UNITCHECK */
RETVAL = (CV*)SvREFCNT_inc((SV*)PL_compcv);
FREETMPS;
LEAVE;
OUTPUT:
RETVAL