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
view release on metacpan or search on metacpan
lib/Strict/Perl.pm view on Meta::CPAN
# $SIG{__WARN__}, $SIG{__DIE__}
_SIG();
}
# perl 5.010 or later
sub UNITCHECK {
}
# perl 5.006 or later
sub CHECK {
view release on metacpan or search on metacpan
lib/Sub/Attribute/Prototype.pm view on Meta::CPAN
=item *
Due to the way that attributes are applied to functions, it is not possible
to apply the prototype immediately during compiletime. Instead, they must be
deferred until a slightly later time. The earliest time that can feasibly be
implemented is C<UNITCHECK> time of the importing module.
This has the unfortunate downside that function prototypes are B<NOT> visible
to later functions in the module itself, though they are visible to the
importing code in the usual way. This means that exported functions will work
just fine from the perspective of a module that C<use>s them, they cannot be
lib/Sub/Attribute/Prototype.pm view on Meta::CPAN
attributes.
=item *
Because core perl does not have a built-in way for exporter to inject a
C<UNITCHECK> block into their importer, it is necessary to use a non-core XS
module, L<B::CompilerPhase::Hook>, to provide this. As a result, this polyfill
has non-core depenencies when running on older perl versions, and this
dependency includes XS (i.e. compiled) code, and is no longer Pure Perl. It
will not be possible to use tools such as L<App::FatPacker> to bundle this
dependency in order to ship a pure-perl portable script.
lib/Sub/Attribute/Prototype.pm view on Meta::CPAN
return @ret;
};
{ no strict 'refs'; *{"${pkg}::MODIFY_CODE_ATTRIBUTES"} = $MODIFY_CODE_ATTRIBUTES }
B::CompilerPhase::Hook::enqueue_UNITCHECK( sub {
foreach ( @prototypes ) {
my ( $code, $prototype ) = @$_;
Sub::Util::set_prototype( $_->[1], $_->[0] );
}
} );
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/Sub/Current.pm view on Meta::CPAN
=head1 DESCRIPTION
Sub::Current makes available a function C<ROUTINE()>, that returns a code
reference pointing at the currently executing subroutine.
In a special block (BEGIN, END, CHECK, INIT, and UNITCHECK in Perl 5.10)
this function will return undef.
Outside of a special block (that is, at the top level of a program)
C<ROUTINE()> will return undef as well.
view release on metacpan or search on metacpan
lib/Sub/Multi/Tiny.pm view on Meta::CPAN
"in file $filename at line $linenum"
} 2;
EOT
# Trap out-of-sequence calls. Currently you can't create a new multisub
# via eval at runtime. TODO use UNITCHECK instead to permit doing so?
$code .= _line_mark_string <<EOT;
die 'Dispatchers already created - please file a bug report'
if $P\::_dispatchers_created();
my \$multi_def = \$_multisubs{'$multi_package'};
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