view release on metacpan or search on metacpan
t/samples/percona-compiled.txt view on Meta::CPAN
Number of rollback segments to use for storing undo logs.
--innodb-show-locks-held=#
Number of locks held to print for each InnoDB transaction
in SHOW INNODB STATUS.
--innodb-show-verbose-locks[=#]
Whether to show records locked in SHOW INNODB STATUS.
--innodb-sort-buffer-size=#
Memory buffer size for index creation
--innodb-spin-wait-delay[=#]
Maximum delay between polling for a spin lock (6 by
default)
t/samples/percona-compiled.txt view on Meta::CPAN
max_relay_log_size is 0
--max-binlog-stmt-cache-size=#
Sets the total size of the statement cache
--max-connect-errors=#
If there is more than this number of interrupted
connections from a host this host will be blocked from
further connections
--max-connections=# The number of simultaneous clients allowed
--max-delayed-threads=#
Don't start more than this number of threads to handle
INSERT DELAYED statements. If set to zero INSERT DELAYED
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
my $host = shift;
my $space = shift;
my $code = shift;
my $count = shift || 0;
my $dir = wiki_dir($host, $space);
my $lock = "$dir/locked";
# remove stale locks
if (-e $lock) {
my $age = time() - modified($lock);
$log->debug("lock is ${age}s old");
rmdir $lock if -e $lock and $age > 5;
}
if (mkdir($lock)) {
$log->debug("Running code with lock $lock");
eval { $code->() }; # protect against exceptions
if ($@) {
$log->error("Unable to run code with locked $lock: $@");
result($stream, "40", "An error occured, unfortunately");
}
rmdir($lock);
$stream->close_gracefully();
} elsif ($count > 25) {
$log->error("Unable to unlock $lock");
result($stream, "40", "The wiki is locked; try again in a few seconds");
$stream->close_gracefully();
} else {
$log->debug("Waiting $count...");
Mojo::IOLoop->timer(0.2 => sub {
with_lock($stream, $host, $space, $code, $count + 1)});
view release on metacpan or search on metacpan
my $exit = shift;
unless ($silent) {
if ($exit == EX_UNAVAILABLE) {
warn progname . ": cannot open $lock_file: $!\n";
} else {
warn progname . ": $lock_file: already locked\n";
}
}
exit $exit;
}
=over
=item C<EX_TEMPFAIL> (75)
The specified lock I<file> was already locked by another process.
=item C<EX_CANTCREAT> (73)
The B<plockf> utility was unable to create the lock I<file>, e.g.,
because of insufficient access privileges.
view release on metacpan or search on metacpan
lib/App/rdapper.pm view on Meta::CPAN
'last changed',
'expiration',
'deletion',
'reinstantiation',
'transfer',
'locked',
'unlocked',
'last update of RDAP database',
'registrar expiration',
'enum validation expiration',
);
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
require=function e(t,a,r){function s(i,l){if(!a[i]){if(!t[i]){var o="function"==typeof require&&require;if(!l&&o)return o(i,!0);if(n)return n(i,!0);var c=new Error("Cannot find module '"+i+"'");throw c.code="MODULE_NOT_FOUND",c}var d=a[i]={exports:{}...
a.relevance>r.relevance&&(s=r,r=a)}),s.language&&(r.second_best=s),r}function u(e){return N.tabReplace||N.useBR?e.replace(x,function(e,t){return N.useBR&&"\n"===e?"<br>":N.tabReplace?t.replace(/\t/g,N.tabReplace):void 0}):e}function h(e,t,a){var r=t?...
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
return{aliases:["styl"],case_insensitive:!1,keywords:"if else for in",illegal:"("+o.join("|")+")",contains:[e.QUOTE_STRING_MODE,e.APOS_STRING_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,a,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+i,returnBegin:!0,cont...
built_in:"ip eip rip al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d rax rbx rcx rdx...
"atelier-lakeside-light":".hljs-atelier-lakeside-light .hljs-comment,.hljs-atelier-lakeside-light .hljs-quote{color:#5a7b8c}.hljs-atelier-lakeside-light .hljs-variable,.hljs-atelier-lakeside-light .hljs-template-variable,.hljs-atelier-lakeside-light ...
grayscale:".hljs-grayscale .hljs{display:block;overflow-x:auto;padding:.5em;color:#333;background:#fff}.hljs-grayscale .hljs-comment,.hljs-grayscale .hljs-quote{color:#777;font-style:italic}.hljs-grayscale .hljs-keyword,.hljs-grayscale .hljs-selector...
"solarized-dark":".hljs-solarized-dark .hljs{display:block;overflow-x:auto;padding:.5em;background:#002b36;color:#839496}.hljs-solarized-dark .hljs-comment,.hljs-solarized-dark .hljs-quote{color:#586e75}.hljs-solarized-dark .hljs-keyword,.hljs-solari...
containerLayout:'<div class="remark-notes-area">\n <div class="remark-top-area">\n <div class="remark-toolbar">\n <a class="remark-toolbar-link" href="#increase">+</a>\n <a class="remark-toolbar-link" href="#decrease">-</a>\n <span...
view release on metacpan or search on metacpan
share/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(t){return(e="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e})(t)}function t(e,t){if(!(...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
var of={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:rf,init:function(e){var t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,t....
view release on metacpan or search on metacpan
=head1 BUGS
If your template file contains an B<Fcc> header pointing to a B<MH> folder,
you will get the following message:
WARNING: Folder already locked with file <FILENAME>
This is not a B<tpnotify> bug, but a bug of B<Mail::Box::Manager>. It has
been reported (see L<https://rt.cpan.org/Public/Bug/Display.html?id=130193>)
and hopefully it will be fixed in one of the future versions of
B<Mail::Box::Manager>.
view release on metacpan or search on metacpan
eg/public/javascripts/jquery.js view on Meta::CPAN
/*! jQuery v3.4.1 | (c) JS Foundation and other contributors | jquery.org/license */
!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof windo...
view release on metacpan or search on metacpan
lib/Appium.pm view on Meta::CPAN
return $self->_execute_command( $res, $params );
}
sub is_locked {
my($self) = @_;
my $res = { command => 'is_locked' };
return $self->_execute_command( $res );
}
sub shake {
lib/Appium.pm view on Meta::CPAN
Lock the device for a specified number of seconds.
$appium->lock( 5 ); # lock for 5 seconds
=head2 is_locked
Query the device for its locked/unlocked state.
$locked = $appium->is_locked
=head2 shake ()
Shake the device.
view release on metacpan or search on metacpan
lib/AppleII/ProDOS.pm view on Meta::CPAN
0x40 File can be renamed
0x20 File has changed since last backup
0x02 File can be written to
0x01 File can be read
Normal values are 0xC3 or 0xE3 for an unlocked file, and 0x01 for a
locked file.
=item $auxtype = $entry->auxtype([$new])
Gets or sets the auxiliary type. This is a number between 0x0000 and
0xFFFF. Its meaning depends on the filetype.
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/css/redmond/jquery-ui-1.9.1.custom.css view on Meta::CPAN
.ui-icon-suitcase { background-position: -112px -96px; }
.ui-icon-comment { background-position: -128px -96px; }
.ui-icon-person { background-position: -144px -96px; }
.ui-icon-print { background-position: -160px -96px; }
.ui-icon-trash { background-position: -176px -96px; }
.ui-icon-locked { background-position: -192px -96px; }
.ui-icon-unlocked { background-position: -208px -96px; }
.ui-icon-bookmark { background-position: -224px -96px; }
.ui-icon-tag { background-position: -240px -96px; }
.ui-icon-home { background-position: 0 -112px; }
.ui-icon-flag { background-position: -16px -112px; }
.ui-icon-calendar { background-position: -32px -112px; }
view release on metacpan or search on metacpan
share/root/jquery-1.11.1.min.js view on Meta::CPAN
/*! jQuery v1.11.1 | (c) 2005, 2014 jQuery Foundation, Inc. | jquery.org/license */
!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this...
if(k&&j[k]&&(e||j[k].data)||void 0!==d||"string"!=typeof b)return k||(k=i?a[h]=c.pop()||m.guid++:h),j[k]||(j[k]=i?{}:{toJSON:m.noop}),("object"==typeof b||"function"==typeof b)&&(e?j[k]=m.extend(j[k],b):j[k].data=m.extend(j[k].data,b)),g=j[k],e||(g.d...
},cur:function(){var a=Zb.propHooks[this.prop];return a&&a.get?a.get(this):Zb.propHooks._default.get(this)},run:function(a){var b,c=Zb.propHooks[this.prop];return this.pos=b=this.options.duration?m.easing[this.easing](a,this.options.duration*a,0,1,th...
view release on metacpan or search on metacpan
lib/Arabic.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
xs/ppport.h view on Meta::CPAN
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
xs/ppport.h view on Meta::CPAN
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_mfree|5.006000||Viu
PERL_MG_UFUNC|5.007001||Viu
Perl_modf|5.006000|5.006000|n
xs/ppport.h view on Meta::CPAN
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
DCC SEND STARTKEYLOGGER 0 0 0
# Scunthorpe Problem
#
# Innocuous strings which may be blocked by profanity filters (https://en.wikipedia.org/wiki/Scunthorpe_problem)
Scunthorpe General Hospital
Penistone Community Church
Lightwater Country Park
Jimmy Clitheroe
view release on metacpan or search on metacpan
lib/Archive/Builder.pm view on Meta::CPAN
example, the two files could not exist in the same Section.
first/second
first/second/third
Creation of the directory first/second would be blocked by the existing
file first/second ( or vica versa ). This issue is caught for you now,
rather than wait until we are halfway through writing the files to disk
to find out.
=head2 new_file $path, $generator [, @arguments ]
view release on metacpan or search on metacpan
lib/Archive/Har/Entry.pm view on Meta::CPAN
my ($self) = @_;
my $timings = $self->timings();
my $total = 0;
my $found = 0;
foreach my $timing (
$timings->blocked(), $timings->dns(),
$timings->connect(), $timings->send(),
$timings->wait(), $timings->receive(),
$timings->ssl(),
)
{
view release on metacpan or search on metacpan
lib/Archive/Libarchive/FFI/Function.pod view on Meta::CPAN
my $status = archive_read_open_filename($archive, $filename, $block_size);
Like C<archive_read_open>, except that it accepts a simple filename
and a block size. This function is safe for use with tape drives
or other blocked devices.
If you pass in C<undef> as the C<$filename>, libarchive will use
standard in as the input archive.
=head2 archive_read_open_filenames
lib/Archive/Libarchive/FFI/Function.pod view on Meta::CPAN
=head2 archive_write_add_filter_program
my $status = archive_write_add_filter_program($archive, $cmd);
The archive will be fed into the specified compression program.
The output of that program is blocked and written to the client
write callbacks.
=head2 archive_write_add_filter_uuencode
my $status = archive_write_add_filter_uuencode($archive);
view release on metacpan or search on metacpan
lib/Archive/Libarchive/XS.xs view on Meta::CPAN
my $status = archive_read_open_filename($archive, $filename, $block_size);
Like C<archive_read_open>, except that it accepts a simple filename
and a block size. This function is safe for use with tape drives
or other blocked devices.
If you pass in C<undef> as the C<$filename>, libarchive will use
standard in as the input archive.
=cut
lib/Archive/Libarchive/XS.xs view on Meta::CPAN
=head2 archive_write_add_filter_program
my $status = archive_write_add_filter_program($archive, $cmd);
The archive will be fed into the specified compression program.
The output of that program is blocked and written to the client
write callbacks.
=cut
#if HAS_archive_write_add_filter_program
view release on metacpan or search on metacpan
lib/Archive/Rar.pm view on Meta::CPAN
# 255 USER BREAK User stopped the process
# 8 MEMORY ERROR Not enough memory for operation
# 7 USER ERROR Command line option error
# 6 OPEN ERROR Open file error
# 5 WRITE ERROR Write to disk error
# 4 LOCKED ARCHIVE Attempt to modify an archive previously locked
# by the 'k' command
# 3 CRC ERROR A CRC error occurred when unpacking
# 2 FATAL ERROR A fatal error occurred
# 1 WARNING Non fatal error(s) occurred
# 0 SUCCESS Successful operation (User exit)
lib/Archive/Rar.pm view on Meta::CPAN
my %errors = (
0 => '',
1 => "WARNING : Non fatal error(s) occurred.",
2 => "FATAL ERROR : A fatal error occurred.",
3 => "CRC ERROR : A CRC error occurred when unpacking.",
4 => "LOCKED ARCHIVE : Attempt to modify an archive previously locked by the 'k' command.",
5 => "WRITE ERROR : Write to disk error.",
6 => "OPEN ERROR : Open file error.",
7 => "USER ERROR : Command line option error.",
8 => "MEMORY ERROR : Not enough memory for operation.",
255 => "USER BREAK : User stopped the process.",
view release on metacpan or search on metacpan
t/Archive/File/Package.pm view on Meta::CPAN
# The eval messes with the stack. Since not using an eval, need
# to double check to make sure import does not die.
####
# Poor man's eval where trap off the Carp::croak function.
# The Perl authorities have Core::die locked down tight so
# it is next to impossible to trap off of Core::die. Lucky
# must everyone uses Carp::croak instead of just dieing.
#
# Anyway, get the benefit of a lot of stack gyrations to
# formulate the correct error msg by Exporter::import.
view release on metacpan or search on metacpan
unzip-6.0/macos/HISTORY.TXT view on Meta::CPAN
---------------------------------
1) CHG: {zip/unzip) switch to latest source level
zip 2.3h beta and unzip 5.4 final release
2) ADD: {zip} Zip finds "namelocked" files also, if switch "-S"
is set.
3) FIX: {unzip} Function isZipfile() fails if the zip archive
has a comment.
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
lib/Armadito/Agent/Logger/File.pm view on Meta::CPAN
if ( !$handle && !open $handle, '>>', $self->{logfile} ) {
warn "can't open $self->{logfile}: $ERRNO";
return;
}
my $locked;
my $retryTill = time + 60;
while ( $retryTill > time && !$locked ) {
## no critic (ProhibitBitwise)
# get an exclusive lock on log file
$locked = 1 if flock( $handle, LOCK_EX | LOCK_NB );
}
if ( !$locked ) {
die "can't get an exclusive lock on $self->{logfile}: $ERRNO";
}
print {$handle} "[" . localtime() . "]" . "[$level]" . " $message\n";
view release on metacpan or search on metacpan
Restricts the given arrays indexes to its current amount. No more indexes
can be added; however, the values of current indexes can be changed.
exists() will still work, but delete() will not, as its standard behavior
is to get rid of the current index. B<Note>: the current implementation prevents
bless()ing while locked. Any attempt to do so will raise an exception. Of course
you can still bless() the array before you call lock_indexes() so this shouldn't be
a problem.
Right now, lock_indexes does not function with a range. However, if I get feedback that
sugests that a range is desired, a hack of some sort may be possible.
lock_values (@array, @indexes);
lock_values (@array);
unlock_values (@array, @indexes);
Locks and unlocks index value pairs in an array. If no set of indexes is
specified, then all current indexes are locked.
=cut
sub lock_values (\@;@) {
my($array,@indexes) = @_;
view release on metacpan or search on metacpan
t/sticky-array.t view on Meta::CPAN
use Array::Sticky;
my @target;
tie @target, 'Array::Sticky', head => [2], body => [3..7], tail => [8..9];
# the head of the array is locked at [2]
unshift @target, 1;
deep_ok( \@target, [(2), (1, 3..7), (8..9)] ); # the parens are for visual grouping
# the tail is locked at [8, 9]
push @target, 10..12;
deep_ok( \@target, [(2), (1, 3..7, 10..12), (8..9)] );
# shifting leaves the head alone
my @shifted = map { shift(@target) } 0..2;
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
blockages
blockbuster
blockbusters
blockbusting
blockbustings
blocked
blocker
blockers
blockhead
blockheads
blockhouse
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
clochard
clochards
cloche
cloches
clock
clocked
clocker
clockers
clocking
clocklike
clocks
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
deadline
deadlines
deadliness
deadlinesses
deadlock
deadlocked
deadlocking
deadlocks
deadly
deadness
deadnesses
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
floccules
flocculi
flocculus
floccus
flock
flocked
flockier
flockiest
flocking
flockings
flocks
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
foreleg
forelegs
forelimb
forelimbs
forelock
forelocked
forelocking
forelocks
foreman
foremanship
foremanships
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
grides
griding
gridiron
gridirons
gridlock
gridlocked
gridlocking
gridlocks
grids
grief
griefs
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
interlinking
interlinks
interlobular
interlocal
interlock
interlocked
interlocking
interlocks
interlocutor
interlocutors
interlocutory
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
landless
landlessness
landlessnesses
landline
landlines
landlocked
landlord
landlordism
landlordisms
landlords
landlubber
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
lockages
lockbox
lockboxes
lockdown
lockdowns
locked
locker
lockers
locket
lockets
locking
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
padishah
padishahs
padle
padles
padlock
padlocked
padlocking
padlocks
padnag
padnags
padouk
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
relocates
relocating
relocation
relocations
relock
relocked
relocking
relocks
relook
relooked
relooking
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
roadabilities
roadability
roadbed
roadbeds
roadblock
roadblocked
roadblocking
roadblocks
roadeo
roadeos
roadholding
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
shyer
shyers
shyest
shying
shylock
shylocked
shylocking
shylocks
shyly
shyness
shynesses
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
unblest
unblinded
unblinking
unblinkingly
unblock
unblocked
unblocking
unblocks
unblooded
unbloodied
unbloody
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
unloading
unloads
unlobed
unlocalized
unlock
unlocked
unlocking
unlocks
unloose
unloosed
unloosen
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Medical/Glutanimate.pm view on Meta::CPAN
blockade
blockaded
blockading
blockage
Blockain
blocked
blocker
blockers
blocking
Blockout
blocq's
lib/ArrayData/Lingua/Word/EN/Medical/Glutanimate.pm view on Meta::CPAN
lochometritis
loci
Locilex
lock
Locke
locked
locken
Locke's
lockjaw
lockwood's
loco
view release on metacpan or search on metacpan
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
blockages
blockbuster
blockbusters
blockbusting
blockbustings
blocked
blocker
blockers
blockhead
blockheads
blockhouse
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
clochard
clochards
cloche
cloches
clock
clocked
clocker
clockers
clocking
clocklike
clocks
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
deadline
deadlines
deadliness
deadlinesses
deadlock
deadlocked
deadlocking
deadlocks
deadly
deadness
deadnesses
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
floccules
flocculi
flocculus
floccus
flock
flocked
flockier
flockiest
flocking
flockings
flocks
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
foreleg
forelegs
forelimb
forelimbs
forelock
forelocked
forelocking
forelocks
foreman
foremanship
foremanships
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
grides
griding
gridiron
gridirons
gridlock
gridlocked
gridlocking
gridlocks
grids
grief
griefs
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
interlinking
interlinks
interlobular
interlocal
interlock
interlocked
interlocking
interlocks
interlocutor
interlocutors
interlocutory
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
landless
landlessness
landlessnesses
landline
landlines
landlocked
landlord
landlordism
landlordisms
landlords
landlubber
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
lockages
lockbox
lockboxes
lockdown
lockdowns
locked
locker
lockers
locket
lockets
locking
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
padishah
padishahs
padle
padles
padlock
padlocked
padlocking
padlocks
padnag
padnags
padouk
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
relocates
relocating
relocation
relocations
relock
relocked
relocking
relocks
relook
relooked
relooking
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
roadabilities
roadability
roadbed
roadbeds
roadblock
roadblocked
roadblocking
roadblocks
roadeo
roadeos
roadholding
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
shyer
shyers
shyest
shying
shylock
shylocked
shylocking
shylocks
shyly
shyness
shynesses
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
unblest
unblinded
unblinking
unblinkingly
unblock
unblocked
unblocking
unblocks
unblooded
unbloodied
unbloody
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
unloading
unloads
unlobed
unlocalized
unlock
unlocked
unlocking
unlocks
unloose
unloosed
unloosen