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
'__DATA__' => 4,
'__END__' => 5,
'__SUB__' => 6,
AUTOLOAD => 7,
BEGIN => 8,
UNITCHECK => 9,
DESTROY => 10,
END => 11,
INIT => 12,
CHECK => 13,
abs => 14,
view release on metacpan or search on metacpan
lib/Perl/Tidy/Formatter.pm view on Meta::CPAN
};
# 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{@q} = (1) x scalar(@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{@q} = (1) x scalar(@q);
# 'L' is token for opening { at hash key
@q = qw< L { ( [ >;
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
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/Perlito5/Grammar/Block.pm view on Meta::CPAN
use Perlito5::Grammar::Scope ;
use Perlito5::AST::BeginScratchpad ;
use Perlito5::AST::Captures ;
use Perlito5::FoldConstant ;
use strict ;
our %Named_block = ("BEGIN", 1, "UNITCHECK", 1, "CHECK", 1, "INIT", 1, "END", 1, "AUTOLOAD", 1, "DESTROY", 1);
sub Perlito5::Grammar::Block::block {
my $str = $_[0];
my $pos = $_[1];
my $m = Perlito5::Grammar::Space::opt_ws($str, $pos);
$pos = $m->{"to"};
lib/Perlito5/Grammar/Block.pm view on Meta::CPAN
}
elsif ($block_name eq "CHECK") {
unshift(@Perlito5::CHECK_BLOCK, Perlito5::Grammar::Block::eval_end_block($block, "CHECK"));
$m->{"capture"} = Perlito5::Grammar::Block::ast_nop()
}
elsif ($block_name eq "UNITCHECK") {
unshift(@Perlito5::UNITCHECK_BLOCK, Perlito5::Grammar::Block::eval_end_block($block, "UNITCHECK"));
$m->{"capture"} = Perlito5::Grammar::Block::ast_nop()
}
elsif ($block_name eq "BEGIN") {
local $Perlito5::PHASE = "BEGIN";
Perlito5::Grammar::Block::eval_begin_block($block);
view release on metacpan or search on metacpan
lib/Pistachio/Keywords/Perl5.pm view on Meta::CPAN
'TIEHASH' => 1,
'TIESCALAR' => 1,
'TODO:' => 1,
'UID' => 1,
'UNICODE' => 1,
'UNITCHECK' => 1,
'UNSHIFT' => 1,
'UNTIE' => 1,
'UTF8CACHE' => 1,
'UTF8LOCALE' => 1,
'VERSION' => 1,
view release on metacpan or search on metacpan
local/lib/perl5/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
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/Pod/Inherit.pm view on Meta::CPAN
for my $globname (sort keys %$stash) {
next if ($local_config->{skip_underscored} and $globname =~ m/^_/);
next if $seen{$globname};
# Skip the typical UPPERCASE sub blocks that aren't really user-friendly methods
next if ($globname =~ m/^(?:AUTOLOAD|CLONE|DESTROY|BEGIN|UNITCHECK|CHECK|INIT|END)$/);
my $glob = $stash->{$globname};
# Skip over things that aren't *code* globs, and cache entries.
# (You might think that ->can will return false for non-code globs. You'd be right. It'll return true
# for cache globs, and we want to skip those, so that we'll get them later.)
view release on metacpan or search on metacpan
corpus/perlfunc.pod view on Meta::CPAN
array by 1 and moving everything down. If there are no elements in the
array, returns the undefined value. If ARRAY is omitted, shifts the
C<@_> array within the lexical scope of subroutines and formats, and the
C<@ARGV> array outside a subroutine and also within the lexical scopes
established by the C<eval STRING>, C<BEGIN {}>, C<INIT {}>, C<CHECK {}>,
C<UNITCHECK {}>, and C<END {}> constructs.
Starting with Perl 5.14, C<shift> can take a scalar EXPR, which must hold a
reference to an unblessed array. The argument will be dereferenced
automatically. This aspect of C<shift> is considered highly experimental.
The exact behaviour may change in a future version of Perl.
corpus/perlfunc.pod view on Meta::CPAN
return unless defined wantarray; # don't bother doing more
my @a = complex_calculation();
return wantarray ? @a : "@a";
C<wantarray()>'s result is unspecified in the top level of a file,
in a C<BEGIN>, C<UNITCHECK>, C<CHECK>, C<INIT> or C<END> block, or
in a C<DESTROY> method.
This function should have been named wantlist() instead.
=item warn LIST
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
local/lib/perl5/x86_64-linux-thread-multi/Glib/Object/Introspection.pm view on Meta::CPAN
XSLoader::load(__PACKAGE__, $VERSION);
my @OBJECT_PACKAGES_WITH_VFUNCS;
my %SEEN;
our %_FORBIDDEN_SUB_NAMES = map { $_ => 1 } qw/AUTOLOAD CLONE DESTROY BEGIN
UNITCHECK CHECK INIT END/;
our %_BASENAME_TO_PACKAGE;
our %_REBLESSERS;
sub _create_invoker_sub {
my ($basename, $namespace, $name,
view release on metacpan or search on metacpan
src/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
- use C99 llround, llroundd in SPVM::Math->lround, SPVM::Math->lroundf
- fix bug that print and warn can't receive byte[] type
0.0708 2020-07-06
- SPVM don't need the following manually initialization in Perl script because SPVM is compiled at each time to call import method.
# Don't needed the following statement
UNITCHECK { SPVM::init() }
0.0707 2020-07-06
- rename SPVM::Builder::Config::add_include_dirs to unshift_include_dirs
- add SPVM::Builder::Config::push_include_dirs
- rename SPVM::Builder::Config::add_lib_dirs to unshift_lib_dirs
- add SPVM::Builder::Config::get_shrpenv
- add SPVM::Builder::Config::set_shrpenv
0.0706 2020-06-29
- SPVM need manually initialization in Perl script because SPVM is not compiled some environment require, do, Mojo morbo, Mojo hypnotoad, mod_perl, etc
UNITCHECK { SPVM::init() }
- Increased Perl version requirement to 5.10.0 because UNITCHECK is needed for SPVM.
0.0705 2020-06-28
- remove SPVM::Builder::quiet method
- SPVM::Builder::Config quiet field default become 1
- add get_lib_dirs to SPVM::Builder::Config
- add set_lib_dirs to SPVM::Builder::Config
view release on metacpan or search on metacpan
lib/SQL/Exec.pm view on Meta::CPAN
return $c;
}
# This bless the default handle. The handle is blessed again if it is
# connected in a sub classe.
UNITCHECK {
$default_handle = __PACKAGE__->new_no_connect();
}
sub DESTROY {
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/Siffra/Bootstrap.pm view on Meta::CPAN
@EXPORT = qw();
@EXPORT_OK = qw();
%EXPORT_TAGS = ();
} ## end BEGIN
UNITCHECK
{
# eval { use Fcntl qw(:flock); };
# $log->info( "Tentando lockar o programa [ $0 ]..." );
# unless ( flock( DATA, LOCK_EX | LOCK_NB ) )
# {
# $log->warn( "O programa [ $0 ] já está sendo executado. Saindo." );
# exit( 1 );
# }
# $log->info( "Programa [ $0 ] lockado com sucesso..." );
} ## end UNITCHECK
#################### subroutine header begin ####################
=head2 sample_function
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_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