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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Kephra/App/Editor/SyntaxMode/Perl.pm view on Meta::CPAN
my ($self) = @_;
$self->StyleClearAll;
$self->SetLexer( &Wx::wxSTC_LEX_PERL );
$self->SetKeyWords(0, 'NULL
__FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ __WARN__ __DIE__
AUTOLOAD BEGIN CHECK CORE DESTROY END EQ GE GT INIT LE LT NE UNITCHECK
abs accept alarm and atan2 bind binmode bless break
caller chdir chmod chomp chop chown chr chroot close closedir cmp connect
continue cos crypt
dbmclose dbmopen default defined delete die do dump
each else elsif endgrent endhostent endnetent endprotoent endpwent endservent
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Linux/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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Linux/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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/MOP/Class.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:STEVAN';
use parent 'UNIVERSAL::Object::Immutable';
our @DOES; BEGIN { @DOES = 'MOP::Role' }; # to be composed later ...
UNITCHECK {
# apply them roles ...
MOP::Internal::Util::APPLY_ROLES(
MOP::Role->new( name => __PACKAGE__ ),
\@DOES,
to => 'class'
view all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Mardem/RefactoringPerlCriticPolicies/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 all matches for this distribution
view release on metacpan or search on metacpan
pperl/Marpa/R2/Perl.pm view on Meta::CPAN
'CORE' => 'TO_BE_DETERMINED',
'DESTROY' => 'PHASER',
'END' => 'PHASER',
'INIT' => 'PHASER',
'NULL' => 'TO_BE_DETERMINED',
'UNITCHECK' => 'PHASER',
'__DATA__' => 'TO_BE_DETERMINED',
'__END__' => 'TO_BE_DETERMINED',
'__FILE__' => 'THING',
'__LINE__' => 'THING',
'__PACKAGE__' => 'THING',
view all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Math/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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution