Result:
found more than 757 distributions - search limited to the first 2001 files matching your query
( run in 1.182 )
Articulate
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....
Artifactory-Client
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' )
AsciiDB-TagFile
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.
Aspect-Library-Profiler
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*
AsposeCellsCloud-CellsApi
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',
Assert-Conditional
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
Assert-Refute
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) = @_;
Astro-Constants
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
Astro-Nova
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
}
Async-Defer
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 )
Async-Interrupt
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<<
Async-Microservice
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...
Async-Template
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; },
Async-Trampoline
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
At
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"
},
Atomic-Pipe
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;
Attribute-Handlers-Clean
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;
Attribute-Handlers
view release on metacpan or search on metacpan
lib/Attribute/Handlers.pm view on Meta::CPAN
$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|method|locked|unique|shared/;
sub _gen_handler_AH_() {
return sub {
_resolve_lastattr if _delayed_name_resolution;
my ($pkg, $ref, @attrs) = @_;
Audio-LibSampleRate
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
}
Audio-Play-MPG123
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 */
Audio-StreamGenerator
view release on metacpan or search on metacpan
lib/Audio/StreamGenerator.pm view on Meta::CPAN
my $streamer_sub = $streamer->get_streamer(0.25);
$loop->recurring(0.1 => $streamer_sub);
$loop->start;
Note: event loop will be blocked for up to 0.25 seconds every time the timer is done.
=head2 skip
$streamer->skip();
Audio
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 */
Audit-DBI-TT2
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; }
Auth-ActiveDirectory
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'
},
};
Authen-Krb5-Admin
view release on metacpan or search on metacpan
The period after which the bad preauthentication count will be reset.
=item * pw_lockout_duration {KADM5_PW_LOCKOUT_DURATION}
The period in which lockout is enforced; a duration of zero means that
the principal must be manually unlocked.
=item * pw_min_classes {KADM5_PW_MIN_CLASSES}
Number (between 1 and 5, inclusive) of required character classes
represented in a password
Authen-PluggableCaptcha
view release on metacpan or search on metacpan
lib/Authen/PluggableCaptcha/Tutorial.pm view on Meta::CPAN
my $captcha_embed= "<img src="/path/to/captcha/handler?section=registration" />";
then set up a sub / handler to generate the captcha on a url mapping
in this example, the captcha generator is in a central location -- /service/captcha/ -- so we supply the section name as a query arg.
if the captcha generator were locked into a page, then you could just hardcode the section name
sub render_image {
my ( $self )= @_ ;
my $sectionName= $self->{'PageUser'}{'ApacheRequest'}->param('section');
lib/Authen/PluggableCaptcha/Tutorial.pm view on Meta::CPAN
in my setup:
$seed= $url . $session{'id'}
That makes sure that only 1 captcha is made for a certain URL and a certain session_id ( locked to that time - since the time is used to create the public key, something 1 second later or earlier would be different )
The drawback is that anyone with the same session_id (which can be spoofed / hijacked) can use that same captcha url for the time window
If you're comfortable storing session data, this might be better for you:
Authen-Radius
view release on metacpan or search on metacpan
raddb/dictionary.shiva view on Meta::CPAN
VALUE Shiva-Disconnect-Reason Dialback 6
VALUE Shiva-Disconnect-Reason Virtual-Connection 7
VALUE Shiva-Disconnect-Reason Bandwidth-On-Demand 8
VALUE Shiva-Disconnect-Reason Failed-Authentication 9
VALUE Shiva-Disconnect-Reason Preempted 10
VALUE Shiva-Disconnect-Reason Blocked 11
VALUE Shiva-Disconnect-Reason Tariff-Management 12
VALUE Shiva-Disconnect-Reason Backup 13
# Shiva Function Values
Authen-SimplePam
view release on metacpan or search on metacpan
SimplePam.pm view on Meta::CPAN
elsif ( $result == 5 ) { return "user unknown" }
elsif ( $result == 6 ) { return "maximum tries" }
elsif ( $result == 7 ) { return "unknown error" }
elsif ( $result == 8 ) { return "authentication error" }
elsif ( $result == 9 ) { return "authentication information cannot be recovered" }
elsif ( $result == 10 ) { return "authentication locked busy" }
elsif ( $result == 11 ) { return "authentication aging disable" }
elsif ( $result == 12 ) { return "permission denied" }
elsif ( $result == 13 ) { return "try again" }
elsif ( $result == 14 ) { return "dlopen error" }
elsif ( $result == 15 ) { return "symbol not found" }
Authen-TacacsPlus
view release on metacpan or search on metacpan
tacpluslib/utils.c view on Meta::CPAN
/* Lock a file descriptor using fcntl. Returns 1 on successfully
acquiring the lock. The lock dies when we close the file, so
there's currently no separate unlock procedure.
Note that if the locked file is on an NFS-mounted partition, you
are at the mercy of SUN's lockd, which is probably a bad idea */
int
tac_lockfd(filename,lockfd)
char *filename;
( run in 1.182 second using v1.01-cache-2.11-cpan-49f99fa48dc )