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
lib/Chess/Plisco.pod view on Meta::CPAN
=item B<evasionSquares>
If a check can be evaded by moving a piece between the king and the attacking
piece of the opponent, this bitboard gives all squares where the check can be
blocked. These are all squares between the king and the attacking piece,
including the square where the attacker is standing.
=item B<enPassantShift>
If en-passant is possible, returns the shift of the square where the capturing
lib/Chess/Plisco.pod view on Meta::CPAN
Bitmask of pieces giving check. See also L</inCheck>.
=item B<POS-E<gt>[CP_POS_EVASION_SQUARES]>
Bitboard of squares where a check can be blocked. See also L</evasionSquares>.
=item B<POS-E<gt>[CP_POS_SIGNATURE]>
Same as L</signature>.
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
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
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/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
lib/Class/Maker/Examples/Lockable.pm view on Meta::CPAN
Class::Maker::class
{
public =>
{
bool => [ qw( locked blocked ) ],
int => [qw( limited passed failed )],
string => [ qw( passkey unlockkey ) ],
},
lib/Class/Maker/Examples/Lockable.pm view on Meta::CPAN
{
my $this = shift;
$this->unlockkey(1);
$this->locked(1);
$this->blocked(0);
$this->passed(0);
$this->limited(5);
}
lib/Class/Maker/Examples/Lockable.pm view on Meta::CPAN
{
my $this = shift;
warn 'Closing lock' if $Class::Maker::DEBUG;
return $this->locked(1);
}
sub block
{
my $this = shift;
warn 'Blocking lock!' if $Class::Maker::DEBUG;
return $this->blocked(1);
}
sub unlock
{
my $this = shift;
warn 'Opening lock' if $Class::Maker::DEBUG;
if( $this->blocked )
{
warn 'Cant unlock, because blocked !' if $Class::Maker::DEBUG;
return $this->locked(1);
}
return $this->locked(0);
}
sub unblock
{
my $this = shift;
warn 'Unblocking lock' if $Class::Maker::DEBUG;
return $this->blocked(0);
}
sub try
{
my $this = shift;
my %args = @_;
warn 'Try lock' if $Class::Maker::DEBUG;
if( $this->blocked )
{
warn 'Try failed - Lock is blocked !' if $Class::Maker::DEBUG;
return $this->locked;
}
if( $this->unlockkey )
{
warn 'Require Key' if $Class::Maker::DEBUG;
lib/Class/Maker/Examples/Lockable.pm view on Meta::CPAN
{
warn 'Key required through ->unlockkey param, but try( KEY => ) is missing';
}
}
if( $this->locked )
{
$this->failed( $this->failed + 1 );
if( $this->failed > $this->limited )
{
lib/Class/Maker/Examples/Lockable.pm view on Meta::CPAN
$this->failed( 0 );
$this->passed( $this->passed + 1 );
}
return $this->locked;
}
sub assert
{
my $this = shift;
if( $this->locked )
{
print "Wrong Key\n";
}
else
{
view release on metacpan or search on metacpan
t/threads.t view on Meta::CPAN
is( threads->create( sub { $warning } )->join, undef,
'manual cleanup prevents lost instances' );
$self = bless {};
$self->add_observer( @obs );
undef $self; # no cleanup, rely on DESTROY (which is blocked), causing littering
is( threads->create( sub { $warning } )->join,
"*** Inconsistent state ***\nObserved instances have gone away without invoking Class::Observable::DESTROY\n",
'detected lost instances' );
view release on metacpan or search on metacpan
Phrasebook.pm view on Meta::CPAN
}
}
} # of Char
); # of the parser setHandlers class
# open the xml file as a locked file and parse it
my $fh = new IO::LockedFile("<".$self->{FILE_PATH});
unless ($fh) {
$self->log()->write("Could not open ".$self->{FILE_PATH}.
" to read.", 4);
return 0;
view release on metacpan or search on metacpan
t/WhiteHole.t view on Meta::CPAN
sub foo { return 456 }
@Test::ISA = qw(Class::WhiteHole Moo);
::ok( Test->foo == 456, "static methods work" );
::ok( !eval { Test->bar; 1; }, "autoloader blocked" ); # must be line 57
# There's a precedence problem. Can't pass this all at once.
my $ok = $@ eq qq{Can\'t locate object method "bar" via package "Test" at $0 line 57.\n};
::ok( $ok, "Dying message preserved");
view release on metacpan or search on metacpan
#endif
return val;
}
STATIC const cp_op_info *cp_map_store_locked(
pPTBLMS_ const OP *o, OP *(*old_pp)(pTHX)
) {
#define cp_map_store_locked(O, PP) \
cp_map_store_locked(aPTBLMS_ (O), (PP))
cp_op_info *oi;
if (!(oi = ptable_fetch(cp_op_map, o))) {
oi = PerlMemShared_malloc(sizeof *oi);
ptable_map_store(cp_op_map, o, oi);
#ifdef USE_ITHREADS
MUTEX_LOCK(&cp_op_map_mutex);
#endif
cp_map_store_locked(o, old_pp);
#ifdef USE_ITHREADS
MUTEX_UNLOCK(&cp_op_map_mutex);
#endif
}
view release on metacpan or search on metacpan
ClearPrompt.pm view on Meta::CPAN
other messages arriving on stderr will typically be I<unexpected>
messages not under the control of the running script (for instance
those from a backquoted cleartool command). This distinction is quite
important in triggers, where the former may represent a policy decision
and the latter a plain old programming bug or system error such as a
locked VOB. Warn/die captures are also displayed with the appropriate
GUI icons and the title C<Warning> or C<Error>.
The 4 channels are known to ClearPrompt as WARN, DIE, STDOUT, and
STDERR. To capture any of them to clearprompt just specify them with a
leading C<+> at I<use> time:
view release on metacpan or search on metacpan
SyncTree.pm view on Meta::CPAN
my $dbase = $self->dstbase;
my $ct = $self->clone_ct({autochomp=>0});
my $ctq = $self->clone_ct({stdout=>0});
my $ctbool = $self->clone_ct({autofail=>0, stdout=>0, stderr=>0});
my $dvob = $self->dstvob;
my $locked;
if ($ctbool->lstype(['-s'], "lbtype:$lbtype\@$dvob")->system) {
$ct->mklbtype($self->comment, "lbtype:$lbtype\@$dvob")->system;
} elsif (!$self->inclb) {
$locked = $ct->lslock(['-s'], "lbtype:$lbtype\@$dvob")->qx;
$ct->unlock("lbtype:$lbtype\@$dvob")->system if $locked;
}
# Allow for labelling errors, in case of hard links: only the link
# recorded can be labelled, the other being seen as 'removed'
if ($self->label_mods || $self->inclb) {
my @mods = $self->_lsco;
SyncTree.pm view on Meta::CPAN
push(@ancestors, $dad);
}
$ctq->mklabel([qw(-rep -nc), $lbtype], @ancestors)->system
if @ancestors;
}
$self->clone_ct->lock("lbtype:$lbtype\@$dbase")->system if $locked;
}
sub get_addhash {
my $self = shift;
if ($self->{ST_ADD}) {
view release on metacpan or search on metacpan
no strict 'vars';
# Usage message additions for actual cleartool commands that we extend.
$catcs = "\n* [-cmnt|-expand|-sources|-start]";
$describe = "\n* [--par/ents <n>]";
$lock = "\n* [-allow|-deny login-name[,...]] [-iflocked]";
$lsregion = "\n* [-current]";
$mklabel = "\n* [-up]";
$setcs = "\n* [-clone view-tag] [-expand] [-sync|-needed]";
$setview = "\n* [-me] [-drive drive:] [-persistent]";
$update = "\n* [-quiet]";
=item * ECLIPSE
New command. B<Eclipse>s an element by copying a view-private version
over it. This is the dynamic-view equivalent of "hijacking" a file in a
snapshot view. Typically of use if you need temporary write access to a
file when the VOB or current branch is locked, or it's checked out
reserved. B<Eclipsing elements can lead to dangerous confusion - use
with care!>
=cut
New B<-allow> and B<-deny> flags. These work like I<-nuser> but operate
incrementally on an existing I<-nuser> list rather than completely
replacing it. When B<-allow> or B<-deny> are used, I<-replace> is
implied.
When B<-iflocked> is used, no lock will be created where one didn't
previously exist; the I<-nusers> list will only be modified for
existing locks.
=cut
sub lock {
my %opt;
GetOptions(\%opt, qw(allow=s deny=s iflocked));
return 0 unless %opt;
my $lock = ClearCase::Argv->new(@ARGV);
$lock->parse(qw(c|cfile=s c|cquery|cqeach nusers=s
pname=s obsolete replace));
die Msg('E', "cannot specify -nusers along with -allow or -deny")
if ($opt{deny}) {
for (split /,/, $opt{deny}) { delete $nusers{$_} }
}
$lock->opts($lock->opts, '-nusers', join(',', sort keys %nusers))
if %nusers;
} elsif (!$currlock && $opt{iflocked}) {
exit 0;
} elsif ($opt{allow}) {
$lock->opts($lock->opts, '-nusers', $opt{allow});
}
$lock->opts($lock->opts, '-replace') unless $lock->flag('replace');