view release on metacpan or search on metacpan
lib/Latin4.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/Latin5.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/Latin6.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/Latin7.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/Latin8.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/Latin9.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/OldUTF8.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/Sjis.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/TIS620.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/USASCII.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/UTF2.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/Windows1252.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
lib/Windows1258.pm view on Meta::CPAN
=back
=head1 Environment Variable
This software uses the flock function for exclusive control. The execution of the
program is blocked until it becomes possible to read or write the file.
You can have it not block in the flock function by defining environment variable
CHAR_NONBLOCK.
Example:
view release on metacpan or search on metacpan
share/plotly.js/plotly.min.js view on Meta::CPAN
* The buffer module from node.js, for the browser.
*
* @author Feross Aboukhadijeh <https://feross.org>
* @license MIT
*/
"use strict";var e=t("base64-js"),n=t("ieee754");r.Buffer=a,r.SlowBuffer=function(t){+t!=t&&(t=0);return a.alloc(+t)},r.INSPECT_MAX_BYTES=50;function i(t){if(t>2147483647)throw new RangeError('The value "'+t+'" is invalid for option "size"');var e=ne...
/*! Native Promise Only
v0.8.1 (c) Kyle Simpson
MIT License: http://getify.mit-license.org
*/
!function(t,r,n){r[t]=r[t]||n(),void 0!==e&&e.exports&&(e.exports=r[t])}("Promise",void 0!==t?t:this,(function(){"use strict";var t,e,n,i=Object.prototype.toString,a=void 0!==r?function(t){return r(t)}:setTimeout;try{Object.defineProperty({},"x",{}),...
view release on metacpan or search on metacpan
lib/Chatbot/Alpha.pm view on Meta::CPAN
& Ha! <msg>! That's a good one!
// A Conversation Holder: Rambling!
+ are you crazy
- I was crazy once.
& They locked me away...
& In a room with padded walls.
& There were rats there...
& Did I mention I was crazy once?
// Regexp Trigger Tests
view release on metacpan or search on metacpan
lib/Cheat/Sheet/Util.agi view on Meta::CPAN
use Hash::Util; # Hash locking, key locking, value locking
use Hash::Util qw(
lock_keys lock_keys_plus unlock_keys
lock_value unlock_value
lock_hash unlock_hash lock_hash_recurse unlock_hash_recurse
hash_locked hidden_keys legal_keys all_keys
);
# Restrict %hash to a set of keys; can delete but can't add other keys
\%hash = lock_keys ( %hash ); # current keys %hash
\%hash = lock_keys ( %hash, @keys ); # @keys; subset of keys @hash
\%hash = lock_keys_plus( %hash, @keys ); # superset
lib/Cheat/Sheet/Util.agi view on Meta::CPAN
\%hash = lock_hash ( %hash );
\%hash = unlock_hash ( %hash );
\%hash = lock_hash_recurse ( %hash ); # HoHoH... only
\%hash = unlock_hash_recurse ( %hash ); # ditto
# Other functions...
$bool = hash_unlocked ( %hash ); # true if %hash is unlocked
@keys = legal_keys ( %hash ); # list of keys allowed
@keys = hidden_keys ( %hash ); # see docs; experimental feature
\%hash = all_keys( %hash, @keys, @hidden ); # experimental feature
# Just like Daddy but take hashref arguments
\%hash = lock_ref_keys ( \%hash );
lib/Cheat/Sheet/Util.agi view on Meta::CPAN
\%hash = unlock_ref_value ( \%hash, $key );
\%hash = lock_hashref ( \%hash );
\%hash = unlock_hashref ( \%hash );
\%hash = lock_hashref_recurse ( \%hash );
\%hash = unlock_hashref_recurse ( \%hash );
$bool = hash_ref_unlocked ( \%hash );
@keys = legal_ref_keys ( \%hash );
@keys = hidden_ref_keys ( \%hash );
## Hash::Util
__END__
view release on metacpan or search on metacpan
get_av|5.006000|5.003007|p
getc|5.003007||Viu
get_c_backtrace|5.021001||Vi
get_c_backtrace_dump|5.021001||V
get_context|5.006000|5.006000|nu
getc_unlocked|5.003007||Viu
get_cv|5.006000|5.003007|p
get_cvn_flags|5.009005|5.003007|p
get_cvs|5.011000|5.003007|p
getcwd_sv|5.007002|5.007002|
get_db_sub|||iu
PERL_MALLOC_WRAP|5.009002|5.009002|Vn
PerlMem_calloc|5.006000||Viu
PerlMem_free|5.005000||Viu
PerlMem_free_lock|5.006000||Viu
PerlMem_get_lock|5.006000||Viu
PerlMem_is_locked|5.006000||Viu
PerlMem_malloc|5.005000||Viu
PERL_MEMORY_DEBUG_HEADER_SIZE|5.019009||Viu
PerlMemParse_calloc|5.006000||Viu
PerlMemParse_free|5.006000||Viu
PerlMemParse_free_lock|5.006000||Viu
PerlMemParse_get_lock|5.006000||Viu
PerlMemParse_is_locked|5.006000||Viu
PerlMemParse_malloc|5.006000||Viu
PerlMemParse_realloc|5.006000||Viu
PerlMem_realloc|5.005000||Viu
PerlMemShared_calloc|5.006000||Viu
PerlMemShared_free|5.006000||Viu
PerlMemShared_free_lock|5.006000||Viu
PerlMemShared_get_lock|5.006000||Viu
PerlMemShared_is_locked|5.006000||Viu
PerlMemShared_malloc|5.006000||Viu
PerlMemShared_realloc|5.006000||Viu
PERL_MG_UFUNC|5.007001||Viu
Perl_modf|5.006000|5.006000|n
PERL_MULTICONCAT_HEADER_SIZE|5.027006||Viu
putc|5.003007||Viu
put_charclass_bitmap_innards|5.021004||Viu
put_charclass_bitmap_innards_common|5.023008||Viu
put_charclass_bitmap_innards_invlist|5.023008||Viu
put_code_point|5.021004||Viu
putc_unlocked|5.003007||Viu
putenv|5.005000||Viu
put_range|5.019009||Viu
putw|5.003007||Viu
pv_display|5.006000|5.003007|p
pv_escape|5.009004|5.003007|p
view release on metacpan or search on metacpan
t/04legal-moves.t view on Meta::CPAN
name => 'discovered bishop check through en passant simplified',
fen => '8/8/7k/K7/4pP2/8/8/2B5 b - g3 0 1',
moves => [qw(h6h7 h6g7 h6g6 h6h5 e4e3)],
},
{
name => 'queen check must be blocked',
fen => 'r3k2Q/p1ppqp2/bn2p1pb/3PN3/1p2P3/2N4p/PPPBBPPP/R3K2R b KQq - 0 2',
moves => [qw(h6f8 e7f8)],
},
{
name => 'capture queen giving check',
view release on metacpan or search on metacpan
lib/Chess/Board.pm view on Meta::CPAN
=item line_is_open()
Takes two scalar arguments, valid squares defining the endpoints of a line
on the Chess::Board. Returns true if there are no pieces on either of the
endpoints, or on any of the intervening squares. Returns false if the line
is blocked by one or more pieces, and C<undef> if the two squares do not
define endpoints of a line. In the case where both squares are equal, will
return true if the square is empty and false otherwise.
=item get_piece_at()
view release on metacpan or search on metacpan
Card/Card.pm view on Meta::CPAN
if ($sw1 =~ m/69/)
{
$text = "Command not allowed. ";
$text .= "Command incompatible with file structure." if ($sw2 =~ m/81/);
$text .= "Security status not satisfied." if ($sw2 =~ m/82/);
$text .= "Authentication method blocked." if ($sw2 =~ m/83/);
$text .= "Referenced data invalidated." if ($sw2 =~ m/84/);
$text .= "Conditions of use not satisfied." if ($sw2 =~ m/85/);
$text .= "Command not allowed (no current EF)." if ($sw2 =~ m/86/);
$text .= "Expected SM data objects missing." if ($sw2 =~ m/87/);
$text .= "SM data objects incorrect." if ($sw2 =~ m/88/);
view release on metacpan or search on metacpan
examples/diagnosis.pl view on Meta::CPAN
confidence : 0..1
Mechanisms illustrated:
_NEEDED (2 levels) temperature → infer from skin_temp (backward chaining).
fever_grade → infer from temperature (second _NEEDED level).
_LOCK_UNTIL_STABLE Agent 2 (Diagnose) is blocked while Agent 1 (Collect)
is still making progress.
replay_all() When Diagnose finds a hypothesis that unlocks new
symptom checks, it calls replay_all() so Collect
can complete the missing slots before Diagnose
re-evaluates.
view release on metacpan or search on metacpan
lib/Schedule/Chronic/Constraint/Xscreensaver.pm view on Meta::CPAN
my $state = $self->state();
# $state values:
# 0 means no change
# 1 means toggled to locked
# 2 means toggled to unlocked
my @states = ('NO CHANGE', 'LOCKED', 'UNLOCKED');
$self->debug(" xscreensaver state = $states[$state]");
if ($$self{timer}->running() and $state == 0) {
# We are still in locked mode.
if ($$self{timer}->get() <= 0) {
return 1;
} else {
$$self{wait} = $$self{timer}->get();
$self->debug(" xscreensaver locked, " . $$self{timer}->get() . " seconds remain.");
return 0;
}
}
if ($$self{timer}->running() and $state == 2) {
# In unlocked mode.
$$self{wait} = 5;
$$self{timer}->stop();
return 0;
}
if (!$$self{timer}->running() and $state == 1) {
# Toggled into locked mode.
$$self{timer}->set($$self{active});
$$self{wait} = 0;
return 0;
view release on metacpan or search on metacpan
share/icd10.json view on Meta::CPAN
"O655": "Obstructed labor due to abnormality of maternal pelvic organs",
"O658": "Obstructed labor due to other maternal pelvic abnormalities",
"O659": "Obstructed labor due to maternal pelvic abnormality, unspecified",
"O66": "Other obstructed labor",
"O660": "Obstructed labor due to shoulder dystocia",
"O661": "Obstructed labor due to locked twins",
"O662": "Obstructed labor due to unusually large fetus",
"O663": "Obstructed labor due to other abnormalities of fetus",
"O664": "Failed trial of labor",
"O6640": "Failed trial of labor, unspecified",
"O6641": "Failed attempted vaginal birth after previous cesarean delivery",
view release on metacpan or search on metacpan
lib/Clarion.pm view on Meta::CPAN
=over 4
=cut
sub FILLOCK { 0x01; } # file is locked
sub FILOWN { 0x02; } # file is owned
sub FILCRYP { 0x04; } # records are encrypted
sub FILMEMO { 0x08; } # memo file exists
sub FILCOMP { 0x10; } # file is compressed
sub FILRCLM { 0x20; } # reclaim deleted records
view release on metacpan or search on metacpan
t/extended_tests.t view on Meta::CPAN
local $Class::Abstract::config{harness_bypass} = $config{harness_bypass_on};
local $ENV{HARNESS_ACTIVE} = $config{harness_active_off};
my $obj;
lives_ok { $obj = ET::Concrete->new() }
'new(concrete) lives in production context (only abstract class is blocked)';
ok blessed($obj), 'concrete object is blessed in production context';
}
# check_abstract(): same production context
{
view release on metacpan or search on metacpan
t/01-class_constructor.t view on Meta::CPAN
baz => 'testbaz',
bam => 'testbam',
);
is(ref $tc, 'Test_Class3', 'class 3 - object created');
ok(!defined $tc->bam, 'class 3 - initialization blocked');
ok($@ =~ /can\'t\s+autoinitialize/i, 'auto init');
package Test_Class4;
use base qw/ Class::Constructor /;
view release on metacpan or search on metacpan
0.09 Mon Oct 5 15:45:32 2015
- altered symbol table walk to avoid "undefined behaviour" warning
0.08 Sun Aug 22 15:39:24 2010
- removed ': locked' attribute from object method & attribute accessors
as this has been deprecated in newer versions of Perl
0.07 Thu Jul 17 18:36:45 2008
- corrected symbol table walking to allow for encountering a non-GLOB
view release on metacpan or search on metacpan
t/lib/TurnstileState.pm view on Meta::CPAN
my @values;
sub values { ## no critic ( ProhibitBuiltinHomonyms )
unless ( @values ) {
my $ordinal = 0;
@values = map { __PACKAGE__->_new( $ordinal++, $_ ) } qw( Locked Unlocked )
}
@values
}
1