view release on metacpan or search on metacpan
lib/OpenGL/Modern/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
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/PAX/Capture.pm view on Meta::CPAN
}
sub _compile_phase_events {
my ($source) = @_;
my @events;
for my $hook (qw(BEGIN UNITCHECK CHECK INIT END)) {
while ($source =~ /\b\Q$hook\E\s*\{/g) {
push @events, {
hook => $hook,
offset => pos($source) - length($hook) - 1,
source => 'static_scan',
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
view release on metacpan or search on metacpan
lib/Perl/Critic/Mardem/Util.pm view on Meta::CPAN
WHILE UNTIL
DO
FOR FOREACH
EVAL
SORT MAP GREP
BEGIN UNITCHECK CHECK INIT END
PACKAGE );
Readonly::Scalar my $MAX_KEYWORD_LOOKUP_DEPTH => 10;
sub _keyword_in_searchlist
view release on metacpan or search on metacpan
lib/PPIx/PerlCompiler/Element.pm view on Meta::CPAN
sub isa_prerun_block {
my ($self) = @_;
return $self->isa('PPI::Statement::Scheduled')
&& $self->non_whitespace_child(0)->matches( 'PPI::Token::Word' => qr/^(BEGIN|UNITCHECK|CHECK)$/ );
}
1;
view release on metacpan or search on metacpan
lib/Perl/Critic/Policy/TooMuchCode/ProhibitDuplicateSub.pm view on Meta::CPAN
sub initialize_if_enabled {
my ($self, $config) = @_;
$self->{_allow_duplicates_for} = {
BEGIN => 1,
UNITCHECK => 1,
CHECK => 1,
INIT => 1,
END => 1,
};
view release on metacpan or search on metacpan
lib/Perl/Critic/Policy/ControlStructures/ProhibitLabelsWithSpecialBlockNames.pm view on Meta::CPAN
use parent 'Perl::Critic::Policy';
our $VERSION = '1.156';
Readonly::Hash my %SPECIAL_BLOCK_NAMES =>
hashify( qw< BEGIN END INIT CHECK UNITCHECK > );
#-----------------------------------------------------------------------------
Readonly::Scalar my $DESC => q<Special block name used as label.>;
Readonly::Scalar my $EXPL =>
q<Use a label that cannot be confused with BEGIN, END, CHECK, INIT, or UNITCHECK blocks.>;
#-----------------------------------------------------------------------------
sub supported_parameters { return () }
sub default_severity { return $SEVERITY_HIGH }
lib/Perl/Critic/Policy/ControlStructures/ProhibitLabelsWithSpecialBlockNames.pm view on Meta::CPAN
=head1 DESCRIPTION
When using one of the special Perl blocks C<BEGIN>, C<END>, C<CHECK>,
C<INIT>, and C<UNITCHECK>, it is easy to mistakenly add a colon to the
end of the block name. E.g.:
# a BEGIN block that gets executed at compile time.
BEGIN { <...code...> }
view release on metacpan or search on metacpan
lib/Perl/Lint/Policy/ControlStructures/ProhibitLabelsWithSpecialBlockNames.pm view on Meta::CPAN
use Perl::Lint::Constants::Type;
use parent "Perl::Lint::Policy";
use constant {
DESC => 'Special block name used as label',
EXPL => 'Use a label that cannot be confused with BEGIN, END, CHECK, INIT, or UNITCHECK blocks',
};
sub evaluate {
my ($class, $file, $tokens, $src, $args) = @_;
view release on metacpan or search on metacpan
lib/Perl/MinimumVersion.pm view on Meta::CPAN
my %SCHEDULED_BLOCK =
(
'INIT' => '5.006',
'CHECK' => '5.006002',
'UNITCHECK' => '5.010',
);
sub _scheduled_blocks
{
my @versions;
view release on metacpan or search on metacpan
lib/Perl/PrereqScanner/NotQuiteLite/Context.pm view on Meta::CPAN
BEGIN
CHECK
DESTROY
END
INIT
UNITCHECK
abs
accept
alarm
all
and
view release on metacpan or search on metacpan
lib/Perl/Tidy/Formatter.pm view on Meta::CPAN
$is_binary_operator_token{$_} = 1 for @binops;
# We can remove semicolons after blocks preceded by these keywords
@q = qw(
BEGIN END CHECK INIT AUTOLOAD DESTROY
UNITCHECK continue if elsif else unless
while until for foreach given when
default
);
$is_block_without_semicolon{$_} = 1 for @q;
lib/Perl/Tidy/Formatter.pm view on Meta::CPAN
# switch case given when default sort map grep
# 2. It is also ok to add for sub and package blocks and a labeled block
# 3. But not okay for other perltidy types including:
# { } ; G t
# 4. Test files: blktype.t, blktype1.t, semicolon.t
@q = qw( BEGIN END CHECK INIT AUTOLOAD DESTROY UNITCHECK continue if elsif
else unless do while until eval for foreach );
$ok_to_add_semicolon_for_block_type{$_} = 1 for @q;
# 'L' is token for opening { at hash key
@q = qw< L { ( [ >;
view release on metacpan or search on metacpan
lib/Perl500503Syntax/OrDie.pm view on Meta::CPAN
# defined-or operator (two slashes, not part of s///, m//, =~, !~)
# and not the defined-or-assign variant
[ qr/(?<![=~!])\s\/\/(?!=)/,
"defined-or operator (introduced in Perl 5.10)" ],
# UNITCHECK phase block
[ qr/\bUNITCHECK\s*\{/,
"UNITCHECK phase block (introduced in Perl 5.10)" ],
# ${^MATCH} ${^PREMATCH} ${^POSTMATCH} (used with /p flag -- 5.10)
[ qr/\$\{\^(?:MATCH|PREMATCH|POSTMATCH)\}/,
"\${^MATCH}/\${^PREMATCH}/\${^POSTMATCH} (introduced in Perl 5.10; require /p flag)" ],
lib/Perl500503Syntax/OrDie.pm view on Meta::CPAN
(the empty-import form C<use feature ()> is a no-op on every Perl version
and is treated as compatible)
=item * Defined-or operator C<//> (standalone) -- Perl 5.10
=item * C<UNITCHECK> phase block -- Perl 5.10
=item * C<${^MATCH}>/C<${^PREMATCH}>/C<${^POSTMATCH}> -- Perl 5.10
=item * C<package NAME VERSION> -- Perl 5.12
view release on metacpan or search on metacpan
lib/Linux/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
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