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/Database/Async/Engine.pm view on Meta::CPAN
use URI;
use Scalar::Util;
our %ENGINE_MAP;
UNITCHECK { require Database::Async::Engine::Empty }
=head2 register_class
Class method which will register a package name for a given engine type.
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/Devel/Agent.pm view on Meta::CPAN
{
BEGIN=>1,
END=>1,
INIT=>1,
CHECK=>1,
UNITCHECK=>1,
}
The default values used to generate the hashref contained in in @DB::@PHAZES
=cut
our @PHAZES=(qw(BEGIN END INIT CHECK UNITCHECK));
has ignore_blocks=>(
#isa=>HashRef[Int],
is=>'ro',
default=>sub {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Devel/Deanonymize.pm view on Meta::CPAN
sub modify_files {
# Internal notes:
# Basically, this code replaces every file path in @INC with a reference to an anonymous sub which wraps each
# file in sub classWrapper { $orig_content } classWrapper(); However, this sub is **not** necessarily run at INIT or UNITCHECK stage!
# NB, this also explains why its is possible to have $include_pattern "defined" at UNITCHECK even if its run **before** import()
# Also make sure each file either ends with __DATA__, __END__, or 1;
unshift @INC, sub {
my (undef, $filename) = @_;
return () if ($filename !~ /$include_pattern/);
if (my $found = (grep {-e $_} map {"$_/$filename"} grep {!ref} @INC)[0]) {
lib/Devel/Deanonymize.pm view on Meta::CPAN
# Also, "double-modification" is not possible because we only alter non references
INIT {
modify_files();
}
UNITCHECK {
modify_files();
}
1;
view all matches for this distribution
view release on metacpan or search on metacpan
t/04_phases.t view on Meta::CPAN
}
BEGIN { check_not_global('BEGIN') }
BEGIN {
if (eval 'UNITCHECK {}; 1') {
eval q[ UNITCHECK { check_not_global('UNITCHECK') }; 1 ]
or die $@;
}
else {
print "ok # UNITCHECK not supported in perl < 5.10\n" x 2;
}
}
CHECK { check_not_global('CHECK') }
sub CLONE { check_not_global('CLONE') };
view all matches for this distribution
view release on metacpan or search on metacpan
t/04_phases.t view on Meta::CPAN
}
BEGIN { check_not_global('BEGIN') }
BEGIN {
if (eval 'UNITCHECK {}; 1') {
eval q[ UNITCHECK { check_not_global('UNITCHECK') }; 1 ]
or die $@;
}
else {
print "ok # UNITCHECK not supported in perl < 5.10\n" x 2;
}
}
CHECK { check_not_global('CHECK') }
sub CLONE { check_not_global('CLONE') };
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Devel/Hook.pm view on Meta::CPAN
_check( 'BEGIN', @_ );
push @{ _get_begin_array() }, @_;
}
sub unshift_UNITCHECK_hook {
shift;
_check( 'UNITCHECK', @_ );
unshift @{ _get_unitcheck_array() }, @_;
}
sub push_UNITCHECK_hook {
shift;
_check( 'UNITCHECK', @_ );
push @{ _get_unitcheck_array() }, @_;
}
sub unshift_CHECK_hook {
view all matches for this distribution
view release on metacpan or search on metacpan
doc/format.txt view on Meta::CPAN
main_cv = the main code
defstash = the default stash
mainstack = the main stack AV
beginav = the BEGIN list
checkav = the CHECK list
unitcheckav = the UNITCHECK list
initav = the INIT list
endav = the END list
strtab = the shared string table HV
envgv = the ENV GV
incgv = the INC GV
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Devel/MAT/Dumpfile.pm view on Meta::CPAN
[ main_cv => "+the main code" ],
[ defstash => "+the default stash" ],
[ mainstack => "+the main stack AV" ],
[ beginav => "+the BEGIN list" ],
[ checkav => "+the CHECK list" ],
[ unitcheckav => "+the UNITCHECK list" ],
[ initav => "+the INIT list" ],
[ endav => "+the END list" ],
[ strtab => "+the shared string table HV" ],
[ envgv => "-the ENV GV" ],
[ incgv => "+the INC GV" ],
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Devel/FileBreaker.pm view on Meta::CPAN
To use this module, pass this command-line argument to C<perl>
-d:FileBreaker=pattern[,pattern2[,...]]
where C<pattern>, C<pattern2>, etc. are any valid perl regular expressions.
In the L<< C<CHECK> phase|perlmod/"BEGIN,-UNITCHECK,-CHECK,-INIT-and-END" >>
of the program, a breakpoint will be set at the start of any subroutine
defined in a file name (given by the values of
L<< C<%DB::sub>|DB/"%DB::sub" >>) that matches one of the given regular expressions.
This includes any anonymous subroutines defined in the files
that are known at compile time.
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/Devel/StatProfiler/Report.pm view on Meta::CPAN
header => _get_template('header.tmpl'),
);
my %SPECIAL_SUBS = map { $_ => 1 } qw(
BEGIN
UNITCHECK
CHECK
INIT
END
);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Devel/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
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Encode/Guess/Educated.pm view on Meta::CPAN
########################################################################
########################################################################
# Class initializers
UNITCHECK {
####################################
# Incidence of non-ASCII code points in PubMed Open Access as of December 2010.
#
# Table is UCA sorted and formatted using the dump_training_data
view all matches for this distribution
view release on metacpan or search on metacpan
lib/English/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/EntityModel/Class.pm view on Meta::CPAN
}
}
# Thanks to Check::UnitCheck
Check::UnitCheck::unitcheckify(sub {
# FIXME Can't call any log functions within UNITCHECK
local $::DISABLE_LOG = 1;
my %ml = %methodList;
$class->add_method($pkg, $_, $ml{$_}) foreach keys %ml;
$class->add_method($pkg, 'import', sub { }) unless $pkg->can('import');
}) if %methodList;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/EntityModel/Log.pm view on Meta::CPAN
with L<EntityModel> only, if you're looking for a general logging framework try one of the
other options in the L</SEE ALSO> section.
=cut
# Need to be able to switch off logging in UNITCHECK stages, since that segfaults perl5.10.1 and possibly other versions
our $DISABLE = 0;
use Time::HiRes qw{time};
use POSIX qw{strftime};
use Exporter;
view all matches for this distribution
view release on metacpan or search on metacpan
0.005 2011-02-12 16:01:19 Europe/London
Fix dependencies and minor test cleanups.
0.004 2011-02-06 06:02:05 Europe/London
Add remaining dependencies, including EntityModel::Class 0.002 which provides a UNITCHECK fix for
non-multiplicity-enabled perl versions.
0.003 2011-02-06 02:46:11 Europe/London
Add missing XML::XPath dependency
Copy across the missing update support for EntityModel::Query.
Allow fields that don't have an EntityModel::Field definition (and corresponding type).
Initial support for callback events on entities at EntityModel::Support::Perl level.
Fix some pod doc headers.
Do EntityModel load in general.t inside a BEGIN block in an attempt to trace why usemultiplicity
seems to be required for UNITCHECK blocks to work as required.
0.001 2011-02-01 04:38:41 Europe/London
Preliminary release to CPAN.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Exporter/Auto.pm view on Meta::CPAN
unshift @{"${klass}::ISA"}, 'Exporter';
on_scope_end {
my %hash = %{"${klass}::"};
while (my ($k, $v) = each %hash) {
next if $k =~ /^(?:BEGIN|CHECK|END|INIT|UNITCHECK)$/;
next if $k =~ /^_/;
next unless *{"${klass}::${k}"}{CODE};
next if $klass ne stash_name($klass->can($k));
push @{"${klass}::EXPORT"}, $k;
}
view all matches for this distribution
view release on metacpan or search on metacpan
[Nicholas Clark]
2.200402 - Fri Oct 2 01:26:40 EDT 2009
Bug fixes:
- UNITCHECK subroutines were not being called (detected in ext/XS-APItest
in Perl blead) [reported by Jesse Vincent, patched by David Golden]
2.200401 - Mon Sep 14 22:26:03 EDT 2009
- No changes from 2.20_04.
- Fixed the treatment of the OVERLOAD: keyword, which was causing a C
compile error. [Toshiyuki Yamato]
2.18 - Mon Jan 29 20:56:36 2007
- Added some UNITCHECK stuff, which (I think) makes XS code able to
do UNITCHECK blocks. [Nicholas Clark]
- Changed 'use re "eval";' to 'BEGIN { $^H |= 0x00200000 };' so we
can compile re.xs in bleadperl. [Yves Orton]
- Fix an undefined-variable warning related to 'inout' parameter
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Extism/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
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
lib/Farabi/files/public/assets/perlito/perlito5.min.js view on Meta::CPAN
else{return(err);}}
return r;})(p5want)));if(p5bool(p5pkg["main"]["v_@"])){p5pkg["main"]["Hash_INC"].p5hset(p5str(v_filename),(null));return(p5pkg["Perlito5::Grammar::Use"].die([[p5pkg["main"]["v_@"]]],p5want));}
else{if(!(p5bool(v_result))){(delete p5pkg["main"]["Hash_INC"].p5hget(p5str(v_filename)));if(p5bool(p5pkg["main"]["v_@"])){p5pkg["Perlito5::Grammar::Use"].warn([[p5pkg["main"]["v_@"]]],null);};return(p5pkg["Perlito5::Grammar::Use"].die([[(p5str(v_fil...
else{throw(p5context([v_result],p5want))}}}
catch(err){if(err instanceof Error){throw(err);}
else{return(err);}}});1;})();(function(){var p5155=p5make_package("Perlito5::Grammar::Block");;;(p5pkg["Perlito5::Grammar::Block"]["Hash_Named_block"]={'BEGIN':1,'UNITCHECK':1,'CHECK':1,'INIT':1,'END':1});p5pkg["Perlito5::Expression"].add_statement([...
else{p5pkg["Perlito5::Grammar::Block"].die([['syntax error']],null);};p5pkg["Perlito5::Grammar::Block"].warn([['continue!']],null);(v_continue||(v_continue=new p5HashRef({})))._hash_.p5hset('stmts',((v_cont||(v_cont=new p5HashRef({})))._hash_.p5hget_...
else{(v_v=(p5pkg["Perlito5::Expression"].block_or_hash([v_v],0)));};if((p5str(p5pkg["Perlito5::Grammar::Block"].ref([v_v],0))=='Perlito5::AST::Lit::Block')){if((p5str(v_block_name)=='BEGIN')){(function(p5want){var r;p5pkg["main"]["v_@"]="";try{r=eval...
catch(err){if(err instanceof p5_error||err instanceof Error){p5pkg["main"]["v_@"]=err;try{p5pkg["main"]["v_@"]=p5pkg["main"]["v_@"]+"\n"+err.stack;}
catch(err){}}
else{return(err);}}
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/File/Copy/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