Next refresh should show more results. ( run in 2.177 )
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
view release on metacpan or search on metacpan
t/public/javascripts/jquery.js view on Meta::CPAN
/*! jQuery v1.11.2 | (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...
return!0}function Q(a,b,d,e){if(m.acceptData(a)){var f,g,h=m.expando,i=a.nodeType,j=i?m.cache:a,k=i?a[h]:a[h]&&h;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}),("o...
}m.Tween=Zb,Zb.prototype={constructor:Zb,init:function(a,b,c,d,e,f){this.elem=a,this.prop=c,this.easing=e||"swing",this.options=b,this.start=this.now=this.cur(),this.end=d,this.unit=f||(m.cssNumber[c]?"":"px")},cur:function(){var a=Zb.propHooks[this....
view release on metacpan or search on metacpan
lib/Artifactory/Client.pm view on Meta::CPAN
);
}
=head2 get_global_system_replication_configuration
Returns the global system replication configuration status, i.e. if push and pull replications are blocked or unblocked.
=cut
sub get_global_system_replication_configuration {
my $self = shift;
lib/Artifactory/Client.pm view on Meta::CPAN
}
=head2 block_system_replication( push => 'false', pull => 'true' )
Blocks replications globally. Push and pull are true by default. If false, replication for the corresponding type is not
blocked.
=cut
sub block_system_replication {
my ( $self, %args ) = @_;
lib/Artifactory/Client.pm view on Meta::CPAN
}
=head2 unblock_system_replication( push => 'false', pull => 'true' )
Unblocks replications globally. Push and pull are true by default. If false, replication for the corresponding type is
not unblocked.
=cut
sub unblock_system_replication {
my ( $self, %args ) = @_;
lib/Artifactory/Client.pm view on Meta::CPAN
my $self = shift;
my $url = $self->_api_url() . "/security/userLockPolicy";
return $self->get($url);
}
=head2 get_locked_out_users
If locking out users is enabled, lists all users that were locked out due to recurrent incorrect login attempts.
=cut
sub get_locked_out_users {
my $self = shift;
my $url = $self->_api_url() . "/security/lockedUsers";
return $self->get($url);
}
=head2 unlock_locked_out_user
Unlocks a single user that was locked out due to recurrent incorrect login attempts.
=cut
sub unlock_locked_out_user {
my ( $self, $name ) = @_;
my $url = $self->_api_url() . "/security/unlockUsers/$name";
return $self->post($url);
}
=head2 unlock_locked_out_users
Unlocks a list of users that were locked out due to recurrent incorrect login attempts.
=cut
sub unlock_locked_out_users {
my ( $self, @users ) = @_;
my $url = $self->_api_url() . "/security/unlockUsers";
return $self->post(
$url,
'Content-Type' => 'application/json',
content => $self->_json->encode( \@users )
);
}
=head2 unlock_all_locked_out_users
Unlocks all users that were locked out due to recurrent incorrect login attempts.
=cut
sub unlock_all_locked_out_users {
my $self = shift;
my $url = $self->_api_url() . "/security/unlockAllUsers";
return $self->post($url);
}
lib/Artifactory/Client.pm view on Meta::CPAN
}
=head2 ignore_xray_alert( $path )
Sets an alert to be ignored until next time the repository hosting the artifact about which the alert was issued, is scanned. Note that this endpoint does not
affect artifacts that are blocked because they have not been scanned at all.
=cut
sub ignore_xray_alert {
my ( $self, $path ) = @_;
my $url = $self->_api_url() . "/xray/setAlertIgnored?path=$path";
return $self->post($url);
}
=head2 allow_download_of_blocked_artifacts( 'true'|'false' )
When a repository is configured to block downloads of artifacts, you may override that configuration (and allow download of blocked artifacts). Note that this
setting cannot override the blocking of unscanned artifacts.
=cut
sub allow_download_of_blocked_artifacts {
my ( $self, $bool ) = @_;
my $url = $self->_api_url() . "/xray/allowBlockedArtifactsDownload?allow=$bool";
return $self->post($url);
}
=head2 allow_download_when_xray_is_unavailable( 'true'|'false' )
view release on metacpan or search on metacpan
If this parameter is not supplied the records won't have a sufix.
=item LOCK
If you set this parameter to 1 TagFile will perform basic locking.
Record files will be share locked before reading them, and exclusive
locked when syncing (writing) them.
This basic locking only guarantees that a record file is always
written correctly, but as TagFile keep records in memory you can still suffer
consistency problems reading fields.
The default value is 0, i.e. the database won't be locked.
=item READONLY
If you set this parameter to 1 the database will be read only and
all changes will be discarted.
view release on metacpan or search on metacpan
- Added Test::NoWarnings to the test scripts now it's an Aspect dep.
- Added some other missing dependencies
0.32 Thu 7 Jan 2010 - Adam Kennedy
- Split into separate distribution for dependency reasons
(The need for Benchmark:: modules blocked installation of the main
Aspect package on some platforms)
0.15 Thu 24 Jul 23:02:11 CEST 2008 (Marcel Gruenauer <marcel@cpan.org>)
- fixed version in all modules. *sigh*
view release on metacpan or search on metacpan
lib/AsposeCellsCloud/Object/ArcShape.pm view on Meta::CPAN
base_name => 'IsLockAspectRatio',
description => '',
format => '',
read_only => '',
},
'is_locked' => {
datatype => 'boolean',
base_name => 'IsLocked',
description => '',
format => '',
read_only => '',
lib/AsposeCellsCloud/Object/ArcShape.pm view on Meta::CPAN
'text_vertical_alignment' => 'string',
'text_vertical_overflow' => 'string',
'is_group' => 'boolean',
'is_hidden' => 'boolean',
'is_lock_aspect_ratio' => 'boolean',
'is_locked' => 'boolean',
'is_printable' => 'boolean',
'is_text_wrapped' => 'boolean',
'is_word_art' => 'boolean',
'linked_cell' => 'string',
'z_order_position' => 'int',
lib/AsposeCellsCloud/Object/ArcShape.pm view on Meta::CPAN
'text_vertical_alignment' => 'TextVerticalAlignment',
'text_vertical_overflow' => 'TextVerticalOverflow',
'is_group' => 'IsGroup',
'is_hidden' => 'IsHidden',
'is_lock_aspect_ratio' => 'IsLockAspectRatio',
'is_locked' => 'IsLocked',
'is_printable' => 'IsPrintable',
'is_text_wrapped' => 'IsTextWrapped',
'is_word_art' => 'IsWordArt',
'linked_cell' => 'LinkedCell',
'z_order_position' => 'ZOrderPosition',
view release on metacpan or search on metacpan
lib/Assert/Conditional.pm view on Meta::CPAN
sub assert_latinish ( $ ) ;
sub assert_legal_exit_status ( ;$ ) ;
sub assert_like ( $$ ) ;
sub assert_list_context ( ) ;
sub assert_list_nonempty ( @ ) ;
sub assert_locked ( \[%$] @ ) ;
sub assert_lowercased ( $ ) ;
sub assert_max_keys ( \[%$] @ ) ;
sub assert_method ( ) ;
sub assert_min_keys ( \[%$] @ ) ;
sub assert_minmax_keys ( \[%$] \[@$] \[@$] ) ;
lib/Assert/Conditional.pm view on Meta::CPAN
sub assert_unblessed_ref ( $ ) ;
sub assert_undefined ( $ ) ;
sub assert_unhappy_code ( & ) ;
sub assert_unicode_ident ( $ ) ;
sub assert_unlike ( $$ ) ;
sub assert_unlocked ( \[%$] @ ) ;
sub assert_unsignalled ( ;$ ) ;
sub assert_untied ( \[$@%*] ) ;
sub assert_untied_array ( \@ ) ;
sub assert_untied_arrayref ( $ ) ;
sub assert_untied_glob ( \* ) ;
lib/Assert/Conditional.pm view on Meta::CPAN
}
# From perl5180delta, you couldn't actually get any use of
# the predicates to check whether a hash or hashref was
# locked because even though they were exported those
# function did not exist before.!
##
## * Hash::Util has been upgraded to 0.15.
##
## "hash_unlocked" and "hashref_unlocked" now returns true if the hash
## is unlocked, instead of always returning false [perl #112126].
##
## "hash_unlocked", "hashref_unlocked", "lock_hash_recurse" and
## "unlock_hash_recurse" are now exportable [perl #112126].
##
## Two new functions, "hash_locked" and "hashref_locked", have been
## added. Oddly enough, these two functions were already exported,
## even though they did not exist [perl #112126].
BEGIN {
use Hash::Util qw{hash_locked};
my $want_version = 0.15;
my $have_version = Hash::Util->VERSION;
my $huv = "v$have_version of Hash::Util and we need";
my $compiling = "compiling assert_lock and assert_unlocked because your perl $^V has";
my $debugging = $Exporter::Verbose || $Assert_Debug;
if ($have_version < $want_version) {
carp "Not $compiling only $huv v$want_version at ", __FILE__, " line ", __LINE__ if $debugging;
} else {
carp "\u$compiling $huv only v$want_version at ", __FILE__, " line ", __LINE__ if $debugging;
confess "compilation eval blew up: $@" unless eval <<'END_OF_LOCK_STUFF';
sub assert_locked( \[%$] @ )
:Assert( qw[hash] )
{
my($hashref) = @_;
_promote_to_hashref($hashref);
hash_locked(%$hashref) || botch "hash is locked";
}
sub assert_unlocked( \[%$] @ )
:Assert( qw[hash] )
{
my($hashref) = @_;
_promote_to_hashref($hashref);
!hash_locked(%$hashref) || botch "hash is not locked";
}
1;
END_OF_LOCK_STUFF
lib/Assert/Conditional.pm view on Meta::CPAN
assert_latinish ( $ ) ;
assert_legal_exit_status ( ;$ ) ;
assert_like ( $$ ) ;
assert_list_context ( ) ;
assert_list_nonempty ( @ ) ;
assert_locked ( \[%$] @ ) ;
assert_lowercased ( $ ) ;
assert_max_keys ( \[%$] @ ) ;
assert_method ( ) ;
assert_min_keys ( \[%$] @ ) ;
assert_minmax_keys ( \[%$] \[@$] \[@$] ) ;
lib/Assert/Conditional.pm view on Meta::CPAN
assert_unblessed_ref ( $ ) ;
assert_undefined ( $ ) ;
assert_unhappy_code ( & ) ;
assert_unicode_ident ( $ ) ;
assert_unlike ( $$ ) ;
assert_unlocked ( \[%$] @ ) ;
assert_unsignalled ( ;$ ) ;
assert_untied ( \[$@%*] ) ;
assert_untied_array ( \@ ) ;
assert_untied_arrayref ( $ ) ;
assert_untied_glob ( \* ) ;
lib/Assert/Conditional.pm view on Meta::CPAN
L</assert_hex_number>, L</assert_in_list>, L</assert_in_numeric_range>,
L</assert_integer>, L</assert_ioref>, L</assert_is>, L</assert_isa>,
L</assert_isnt>, L</assert_keys>, L</assert_known_package>,
L</assert_latin1>, L</assert_latinish>, L</assert_legal_exit_status>,
L</assert_like>, L</assert_list_context>, L</assert_list_nonempty>,
L</assert_locked>, L</assert_lowercased>, L</assert_max_keys>,
L</assert_method>, L</assert_min_keys>, L</assert_minmax_keys>,
L</assert_multi_line>, L</assert_natural_number>, L</assert_negative>,
L</assert_negative_integer>, L</assert_nfc>, L</assert_nfd>,
L</assert_nfkc>, L</assert_nfkd>, L</assert_no_coredump>,
L</assert_nonalphabetic>, L</assert_nonascii>, L</assert_nonastral>,
lib/Assert/Conditional.pm view on Meta::CPAN
L</assert_tied_array>, L</assert_tied_arrayref>, L</assert_tied_glob>,
L</assert_tied_globref>, L</assert_tied_hash>, L</assert_tied_hashref>,
L</assert_tied_referent>, L</assert_tied_scalar>,
L</assert_tied_scalarref>, L</assert_true>, L</assert_unblessed_ref>,
L</assert_undefined>, L</assert_unhappy_code>, L</assert_unicode_ident>,
L</assert_unlike>, L</assert_unlocked>, L</assert_unsignalled>,
L</assert_untied>, L</assert_untied_array>, L</assert_untied_arrayref>,
L</assert_untied_glob>, L</assert_untied_globref>, L</assert_untied_hash>,
L</assert_untied_hashref>, L</assert_untied_referent>,
L</assert_untied_scalar>, L</assert_untied_scalarref>,
L</assert_uppercased>, L</assert_void_context>, L</assert_whole_number>,
lib/Assert/Conditional.pm view on Meta::CPAN
L</assert_hashref>, L</assert_hashref_keys>,
L</assert_hashref_keys_allowed>,
L</assert_hashref_keys_allowed_and_required>,
L</assert_hashref_keys_required>,
L</assert_hashref_keys_required_and_allowed>, L</assert_hashref_nonempty>,
L</assert_keys>, L</assert_locked>, L</assert_max_keys>,
L</assert_min_keys>, L</assert_minmax_keys>, L</assert_tied_hash>,
L</assert_tied_hashref>, L</assert_unlocked>, L</assert_untied_hash>,
and L</assert_untied_hashref>.
=item C<:ident>
L</assert_ascii_ident>, L</assert_full_perl_ident>,
lib/Assert/Conditional.pm view on Meta::CPAN
my @exact_keys = qw[larry moe curly];
assert_keys($some_hashref, @exact_keys);
lock_ref_keys($some_hashref);
Now the I<keys> are locked down to keep your honest, although
the I<values> can be still be changed. See L<Hash::Util>.
=item assert_min_keys(I<HASH> | I<HASHREF>, I<KEY_LIST>)
=for comment
lib/Assert/Conditional.pm view on Meta::CPAN
actually use this if you circumvent prototype checking:
&assert_minmax_keys(\%hash, @minmax);
&assert_minmax_keys( $hashref, @minmax);
=item assert_locked(I<HASH> | I<HASHREF>)
=for comment
This is a workaround to create a "blank" line.
Z<>
B<WARNING>: Only available under version 0.15 and greater of L<Hash::Util,> first found in perl v5.17.
assert_locked(%hash);
assert_locked($hashref);
assert_locked($array_of_hashes[0]);
assert_locked($arrayref_of_hashes->[0]);
assert_locked($hash_of_hashes{FIELD});
assert_locked($hashref_of_hashes->{FIELD});
The argument, which must be either a hash variable or else a scalar
variable holding a hashref, must have locked keys.
=item assert_unlocked(I<HASH> | I<HASHREF>)
=for comment
This is a workaround to create a "blank" line.
Z<>
B<WARNING>: Only available under version 0.15 and greater of L<Hash::Util>, first found in perl v5.17.
assert_unlocked(%hash);
assert_unlocked($hashref);
assert_unlocked($array_of_hashes[0]);
assert_unlocked($arrayref_of_hashes->[0]);
assert_unlocked($hash_of_hashes{FIELD});
assert_unlocked($hashref_of_hashes->{FIELD});
The argument, which must be either a hash variable or else a scalar
variable holding a hashref, must not have locked keys.
=back
=head2 Legacy Assertions about Hashes
lib/Assert/Conditional.pm view on Meta::CPAN
0.005 Sun May 20 20:40:25 CDT 2018
- Initial beta release.
- Reworked the hash key checkers into a simpler set: assert_keys, assert_min_keys, assert_max_keys, assert_minmax_keys.
- Added invocant-specific assertions: assert_{object,class}_{isa,ainta,can,cant}.
- Added assertions for ties, overloads, and locked hashes.
- Made assert_private_method work despite Moose wrappers.
- Added assert_protected_method that works despite Moose wrappers and roles.
- Improved the looks of the uncompiled code for assert_happy_code.
- Fixed botch() to identify the most distant stack frame not the nearest for the name of the failed assertion.
- Improved the reporting of some assertion failures.
0.006 Mon May 21 07:45:43 CDT 2018
- Use hash_{,un}locked not hashref_{,un}locked to support pre-5.16 perls.
- Unhid assert_unblessed_ref swallowed up by stray pod.
0.007 Mon May 21 19:13:58 CDT 2018
- Add missing Hash::Util version requirement for old perls to get hashref_unlock imported.
0.008 Tue May 22 11:51:37 CDT 2018
- Rewrite hash_unlocked missing till 5.16 as !hash_locked
- Add omitted etc/generate-exporter-pod to MANIFEST
0.009 Tue Aug 21 06:29:56 MDT 2018
- Delay slow calls to uca_sort till you really need them, credit Larry Leszczynski.
0.010 Sun Jul 19 13:52:00 MDT 2020
- Fix coredump in perl 5.12 by replacing UNITCHECK in Assert::Conditional::Util with normal execution at botton.
- Make perls below 5.18 work again by setting Hash::Util prereq in Makefile.PL to 0 because it's in the core only, never cpan.
- Only provide assert_locked and assert_unlocked if core Hash::Util v0.15 is there (starting perl v5.17).
- Bump version req of parent class Exporter::ConditionalSubs to v1.11.1 so we don't break Devel::Cover.
- Normalize Export sub attribute tracing so either $Exporter::Verbose=1 or env ASSERT_CONDITIONAL_DEBUG=1 work for both Assert::Conditional{,::Utils}.
- Mentioned $Exporter::Verbose support.
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Assert/Refute/Contract.pm view on Meta::CPAN
=head2 apply( @parameters )
Spawn a new execution log object and run contract against it.
Returns a locked L<Assert::Refute::Report> instance.
=cut
sub apply {
my ($self, @args) = @_;
view release on metacpan or search on metacpan
script/xml_to_raku.pl view on Meta::CPAN
=head1 ISSUES
File issues/suggestions at the Github repository L<https://github.com/duffee/Astro-Constants>.
The venerable L<RT|https://rt.cpan.org/Dist/Display.html?Status=Active&Queue=Astro-Constants>
is the canonical bug tracker that is clocked by L<meta::cpan|https://metacpan.org/pod/Astro::Constants>.
Using C<strict> is a must with this code. Any constants you forgot to import will
evaluate to 0 and silently introduce errors in your code. Caveat Programmer.
If you are using this module, drop me a line using any available means at your
view release on metacpan or search on metacpan
libnova-0.15.0/ltmain.sh view on Meta::CPAN
fi
$opt_dry_run || {
func_write_libtool_object "$libobj" "$objdir/$objname" "$objname"
# Unlock the critical section if it was locked
if test "$need_locks" != no; then
removelist=$lockfile
$RM "$lockfile"
fi
}
view release on metacpan or search on metacpan
lib/Async/Defer.pm view on Meta::CPAN
In general, try/catch/finally behaviour is same as in Java (and probably
many other languages).
If some I<STATEMENTS> inside try/catch block will C<throw()>, the thrown error
can be intercepted (using matching regexp in C<catch()>) and handled in any
way (blocked - if C<catch()> handler call C<done()>, C<continue()> or C<break()> or
replaced by another exception - if C<catch()> handler call C<throw()>).
If exception match more than one regexp, first successfully matched
regexp's handler will be used. Handler will be executed with params:
( $defer_object, $error )
view release on metacpan or search on metacpan
Interrupt.pm view on Meta::CPAN
Calls the callback if the object is pending.
This method does not need to be called normally, as it will be invoked
automatically. However, it can be used to force handling of outstanding
interrupts while the object is blocked.
One reason why one might want to do that is when you want to switch
from asynchronous interruptions to synchronous one, using e.g. an event
loop. To do that, one would first C<< $async->block >> the interrupt
object, then register a read watcher on the C<pipe_fileno> that calls C<<
view release on metacpan or search on metacpan
root/static/edit.html view on Meta::CPAN
}
</script>
<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" style="position:absolute;width:0;height:0">
<defs>
<symbol viewBox="0 0 20 20" id="unlocked">
<path d="M15.8 8H14V5.6C14 2.703 12.665 1 10 1 7.334 1 6 2.703 6 5.6V6h2v-.801C8 3.754 8.797 3 10 3c1.203 0 2 .754 2 2.199V8H4c-.553 0-1 .646-1 1.199V17c0 .549.428 1.139.951 1.307l1.197.387C5.672 18.861 6.55 19 7.1 19h5.8c.549 0 1.428-.13...
</symbol>
<symbol viewBox="0 0 20 20" id="locked">
<path d="M15.8 8H14V5.6C14 2.703 12.665 1 10 1 7.334 1 6 2.703 6 5.6V8H4c-.553 0-1 .646-1 1.199V17c0 .549.428 1.139.951 1.307l1.197.387C5.672 18.861 6.55 19 7.1 19h5.8c.549 0 1.428-.139 1.951-.307l1.196-.387c.524-.167.953-.757.953-1.306V9.199...
</symbol>
<symbol viewBox="0 0 20 20" id="close">
<path d="M14.348 14.849c-.469.469-1.229.469-1.697 0L10 11.819l-2.651 3.029c-.469.469-1.229.469-1.697 0-.469-.469-.469-1.229 0-1.697l2.758-3.15-2.759-3.152c-.469-.469-.469-1.228 0-1.697.469-.469 1.228-.469 1.697 0L10 8.183l2.651-3.031c.469-.46...
view release on metacpan or search on metacpan
lib/Async/Redis/Subscription.pm view on Meta::CPAN
# Convert a raw RESP pub/sub frame into a message hashref and deliver it.
# In callback mode, invokes _on_message via _invoke_user_callback and
# returns its result (which may be a Future for consumer-side backpressure).
# In iterator mode, queues the message into _pending_messages and signals
# _message_waiter so a blocked next() can wake up.
#
# Non-message frames (subscribe confirmations, etc.) return undef and
# take no action — the driver loop will read the next frame.
sub _dispatch_frame {
my ($self, $frame) = @_;
lib/Async/Redis/Subscription.pm view on Meta::CPAN
type => $msg->{type},
};
}
# Intentional teardown: marks the subscription closed and wakes any
# blocked next() with undef. Clears the parent _subscription slot
# with an identity guard so a stale _close cannot evict a newer
# subscription object that reused the same slot.
sub _close {
my ($self) = @_;
return if $self->{_closed};
lib/Async/Redis/Subscription.pm view on Meta::CPAN
$f->cancel unless $f->is_ready;
}
}
# Unrecoverable failure: marks the subscription closed with a typed
# error. Any blocked next() will die with that error. The error is
# preserved for callers who call next() after the fact.
# In callback mode, fires on_error if registered; dies otherwise.
sub _fail_fatal {
my ($self, $typed_error) = @_;
return if $self->{_closed};
lib/Async/Redis/Subscription.pm view on Meta::CPAN
documented here for maintainers.
=head2 _close
Intentional teardown. Marks the subscription closed and wakes any
blocked C<next()> with C<undef>. Clears the parent C<_subscription>
slot on the L<Async::Redis> object with an identity guard — a stale
C<_close> call from an earlier subscription object cannot evict a newer
one that has since taken the slot.
=head2 _fail_fatal($typed_error)
Unrecoverable failure. Marks the subscription closed with a typed error
object. Any blocked C<next()> call will C<die> with that error. The
error is preserved for callers who call C<next()> after the fact.
Routes through C<_close>'s identity guard for parent-slot clearing.
=head2 _pause_for_reconnect
view release on metacpan or search on metacpan
lib/Async/Template.pm view on Meta::CPAN
# may be redefined at the process() function
DONE => sub{ my $output = shift; $cv->send; },
}) || die Async::Template->error();
# single blocked process
my $tt = Async::Template->new({}) || die Async::Template->error();
$tt->process($template, $vars, \$output)
# nonblocked multiple procesess
my $cv = AnyEvent->condvar;
$cv->begin;
my $tt2 = Async::Template->new({
DONE => sub{ my $output = shift; $cv->end; },
view release on metacpan or search on metacpan
lib/Async/Trampoline/Scheduler.pm view on Meta::CPAN
=head2 enqueue
$scheduler->enqueue($task)
$scheduler->enqueue($task => @blocked)
Add a I<$task> to the runnable queue.
B<$task>:
A task to be scheduled at some point in the future.
B<@blocked>:
Any number of tasks that depend on the I<$task>.
The blocked tasks will be added to the runnable queue
once the I<$task> is completed.
=head2 dequeue
($task) = $scheduler->dequeue
view release on metacpan or search on metacpan
share/lexicons/app/bsky/actor/defs.json view on Meta::CPAN
"muted": { "type": "boolean" },
"mutedByList": {
"type": "ref",
"ref": "app.bsky.graph.defs#listViewBasic"
},
"blockedBy": { "type": "boolean" },
"blocking": { "type": "string", "format": "at-uri" },
"blockingByList": {
"type": "ref",
"ref": "app.bsky.graph.defs#listViewBasic"
},
view release on metacpan or search on metacpan
t/read_block.t view on Meta::CPAN
worker { note_sleep 10; $w->write_message("aaa\n") };
sleep 2 if $^O eq 'MSWin32';
my $msg = $r->read_message;
ok(time - $start > 6, "Blocked");
is($msg, "aaa\n", "got the message");
cleanup();
$start = time;
view release on metacpan or search on metacpan
lib/Attribute/Handlers/Clean.pm view on Meta::CPAN
my ($class) = $AUTOLOAD =~ m/(.*)::/g;
$AUTOLOAD =~ m/_ATTR_(.*?)_(.*)/ or croak "Can't locate class method '$AUTOLOAD' via package '$class'";
croak "Attribute handler '$2' doesn't handle $1 attributes";
}
my $builtin = qr/lvalue|locked|unique|shared/; # Method left out on purpose.
sub _gen_handler_AH_() {
sub {
_resolve_lastattr if _delayed_name_resolution;
view release on metacpan or search on metacpan
lib/Attribute/Handlers.pm view on Meta::CPAN
croak "Attribute handler '$2' doesn't handle $1 attributes";
}
my $builtin = $] ge '5.027000'
? qr/lvalue|method|shared/
: qr/lvalue|method|locked|shared|unique/;
sub _gen_handler_AH_() {
return sub {
_resolve_lastattr if _delayed_name_resolution;
my ($pkg, $ref, @attrs) = @_;
view release on metacpan or search on metacpan
libsamplerate/Cfg/ltmain.sh view on Meta::CPAN
fi
$opt_dry_run || {
func_write_libtool_object "$libobj" "$objdir/$objname" "$objname"
# Unlock the critical section if it was locked
if test no != "$need_locks"; then
removelist=$lockfile
$RM "$lockfile"
fi
}
view release on metacpan or search on metacpan
mpg123/audio_nas.c view on Meta::CPAN
AuUnlimitedSamples, /* num samples */
0, /* num actions */
NULL); /* actions */
AuSetElements(info.aud, /* Au server */
info.flow, /* flow ID */
AuTrue, /* clocked */
2, /* num elements */
elements, /* elements */
NULL); /* return status */
AuRegisterEventHandler(info.aud, /* Au server */
view release on metacpan or search on metacpan
lib/Audio/StreamGenerator.pm view on Meta::CPAN
my $streamer_sub = $streamer->get_streamer(0.5);
$loop->recurring(0.05 => $streamer_sub);
$loop->start;
Note: event loop will be blocked for up to 0.5 seconds every time the timer is done. The timer/streamer ratio should be sizeable enough for the loop to run smoothly, including the mixing process. This may vary depending on the speed of the machine wh...
=head2 skip
$streamer->skip();
view release on metacpan or search on metacpan
Play/config/mmsystem.h view on Meta::CPAN
#ifndef _WIN32_VXD
typedef HWAVEIN *LPHWAVEIN;
typedef HWAVEOUT *LPHWAVEOUT;
#endif
typedef struct wavehdr_tag {
LPSTR lpData; /* pointer to locked data buffer */
DWORD dwBufferLength; /* length of data buffer */
DWORD dwBytesRecorded; /* used for input only */
DWORD dwUser; /* for client's use */
DWORD dwFlags; /* assorted flags (see defines) */
DWORD dwLoops; /* loop control counter */
view release on metacpan or search on metacpan
examples/css/jquery-ui-1.10.2.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
lib/Auth/ActiveDirectory.pm view on Meta::CPAN
'531' => { error => 'not permitted to logon at this workstation' },
'532' => { error => 'password expired' },
'533' => { error => 'data 533' },
'701' => { error => 'account expired' },
'773' => { error => 'user must reset password' },
'775' => { error => 'user account locked' },
'534' => {
error => 'account disabled',
description => 'The user has not been granted the requested logon type at this machine'
},
};