Result:
found more than 700 distributions - search limited to the first 2001 files matching your query
( run in 0.828 )
Dancer-Layout-Bootstrap
view release on metacpan or search on metacpan
public/javascripts/jQuery/jquery-1.7.2.min.js view on Meta::CPAN
/*! jQuery v1.7.2 jquery.com | jquery.org/license */
(function(a,b){function cy(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cu(a){if(!cj[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){ck||(ck=c.createElement("ifram...
a){var b=F.exec(a);b&&(b[1]=(b[1]||"").toLowerCase(),b[3]=b[3]&&new RegExp("(?:^|\\s)"+b[3]+"(?:\\s|$)"));return b},H=function(a,b){var c=a.attributes||{};return(!b[1]||a.nodeName.toLowerCase()===b[1])&&(!b[2]||(c.id||{}).value===b[2])&&(!b[3]||b[3]....
.clean(arguments);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(argumen...
Dancer-Plugin-Auth-Extensible
view release on metacpan or search on metacpan
lib/Dancer/Plugin/Auth/Extensible.pm view on Meta::CPAN
# WHERE password LIKE '%' instead - which would not be a Good Thing.
my ($username, $password) = @{ params() }{qw(username password)};
for ($username, $password) {
if (ref $_) {
# TODO: handle more cleanly
die "Attempt to pass a reference as username/password blocked";
}
}
if(logged_in_user()) {
redirect params->{return_url} || $userhomepage;
Dancer-Plugin-FakeCGI
view release on metacpan or search on metacpan
lib/Dancer/Plugin/FakeCGI.pm view on Meta::CPAN
debug("After _capture_end() ");
}
return $err if ($params->{ret_error});
# When is in CGI called system() function, there is problem with filehandle and it is a blocked, then try to reopen it
sub _reopen_file {
return unless ($_[0]);
close($_[0]) or warn "Can't close IO handler";
open(my $fh, "<:utf8", $_[0]) or die "Can't reopen for reading : $!";
return $fh;
Dancer-SearchApp
view release on metacpan or search on metacpan
public/javascripts/jQuery/jquery-1.11.3.min.js view on Meta::CPAN
/*! jQuery v1.11.3 | (c) 2005, 2015 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...
return new Za.prototype.init(a,b,c,d,e)}m.Tween=Za,Za.prototype={constructor:Za,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")},...
//# sourceMappingURL=jquery.min.map
Dancer
view release on metacpan or search on metacpan
}
sub jquery_minified {
return <<'EOF';
/*! jQuery v1.11.0 | (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...
}}function S(a,b,c){if(n.acceptData(a)){var d,e,f=a.nodeType,g=f?n.cache:a,h=f?a[n.expando]:n.expando;if(g[h]){if(b&&(d=c?g[h]:g[h].data)){n.isArray(b)?b=b.concat(n.map(b,n.camelCase)):b in d?b=[b]:(b=n.camelCase(b),b=b in d?[b]:b.split(" ")),e=b.len...
},a,b,arguments.length>1)},show:function(){return Wb(this,!0)},hide:function(){return Wb(this)},toggle:function(a){return"boolean"==typeof a?a?this.show():this.hide():this.each(function(){V(this)?n(this).show():n(this).hide()})}});function $b(a,b,c,d...
EOF
}
Dancer2-Plugin-Auth-Extensible-Provider-Database
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Auth/Extensible/Provider/Database.pm view on Meta::CPAN
$self->set_user_details( $username, %update );
};
=head1 COOKBOOK
=head2 Handle locked or disabled user accounts
I<(contributed by PerlDuck, Borodin and simbabque
L<via Stack Overflow|https://stackoverflow.com/questions/46746864>)>
It's a good practice to not delete certain data, like user accounts. But what
Dancer2-Plugin-Auth-Extensible
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Auth/Extensible.pm view on Meta::CPAN
my $params = $app->request->body_parameters->as_hashref;
# First check for password reset request, if applicable
if ( $plugin->reset_password_handler && $params->{submit_reset} ) {
my $username = $params->{username_reset};
croak "Attempt to pass reference to reset blocked" if ref $username;
$plugin->password_reset_send( username => $username );
return $app->forward(
$plugin->login_page,
{ reset_sent => 1 },
{ method => 'GET' }
lib/Dancer2/Plugin/Auth/Extensible.pm view on Meta::CPAN
for ( $username, $password ) {
if ( ref $_ ) {
# TODO: handle more cleanly
croak "Attempt to pass a reference as username/password blocked";
}
}
if ( $plugin->logged_in_user ) {
# uncoverable condition false
Dancer2-Plugin-Auth-YARBAC
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Auth/YARBAC.pm view on Meta::CPAN
=head1 CONTROLLING AUTHENTICATION ACCESS
There are three ways you can control authentication access to your app.
One is using the keyword 'hook_before_require_login' which is a global
check for all routes.
This is handy if your app is mostly locked down with only a few exceptions.
The exceptions can be specified in your apps config using the option
'no_login_required' and putting in exempt routes here as a regex.
The second option is to use the keyword 'require_login' which must be
set on each route you wish authentication to be a requirement.
This is handy when most of your app is open to the big wide
Dancer2-Plugin-FormValidator
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/FormValidator/Input.pm view on Meta::CPAN
sub get {
return $_[0]->_input;
}
# Create locked copy.
sub _clone_and_lock_input {
# Copy input to work with isolated HashRef.
my $input = dclone($_[1]);
# Lock input to prevent accidental modifying.
Dancer2-Plugin-JsonApi
view release on metacpan or search on metacpan
use Test2::V0;
use Test2::Plugin::ExitSummary;
todo 'general list of todos' => sub {
fail $_ for
'blocked_attributes';
};
done_testing;
Dancer2-Plugin-OpenAPI
view release on metacpan or search on metacpan
examples/MyApp2/public/javascripts/jquery.js view on Meta::CPAN
/*! jQuery v2.1.4 | (c) 2005, 2015 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 M.access(a,b,c)},removeData:function(a,b){M.remove(a,b)},_data:function(a,b,c){return L.access(a,b,c)},_removeData:function(a,b){L.remove(a,b)}}),n.fn.extend({data:function(a,b){var c,d,e,f=this[0],g=f&&f.attributes;if(void 0===a){if(this.leng...
void 0===c?d&&"get"in d&&null!==(e=d.get(a,b))?e:(e=n.find.attr(a,b),null==e?void 0:e):null!==c?d&&"set"in d&&void 0!==(e=d.set(a,c,b))?e:(a.setAttribute(b,c+""),c):void n.removeAttr(a,b))},removeAttr:function(a,b){var c,d,e=0,f=b&&b.match(E);if(f&&1...
Dancer2-Plugin-REST
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/REST.pm view on Meta::CPAN
status_416 status_requested_range_not_satisfiable
status_417 status_expectation_failed
status_418 status_i_m_a_teapot
status_420 status_enhance_your_calm
status_422 status_unprocessable_entity
status_423 status_locked
status_424 status_failed_dependency
status_425 status_unordered_collection
status_426 status_upgrade_required
status_428 status_precondition_required
status_429 status_too_many_requests
status_431 status_request_header_fields_too_large
status_444 status_no_response
status_449 status_retry_with
status_450 status_blocked_by_windows_parental_controls
status_451 status_redirect
status_494 status_request_header_too_large
status_495 status_cert_error
status_496 status_no_cert
status_497 status_http_to_https
Dancer2
view release on metacpan or search on metacpan
lib/Dancer2/Core/HTTP.pm view on Meta::CPAN
428 => 'Precondition Required',
429 => 'Too Many Requests',
431 => 'Request Header Fields Too Large',
444 => 'No Response',
449 => 'Retry With',
450 => 'Blocked by Windows Parental Controls',
451 => 'Unavailable For Legal Reasons',
494 => 'Request Header Too Large',
495 => 'Cert Error',
496 => 'No Cert',
497 => 'HTTP to HTTPS',
Dansguardian
view release on metacpan or search on metacpan
lib/dansguardian.pm view on Meta::CPAN
Dansguardian Perl module is small module for administer dansguardian's content control files. It let you add, remove and get information from files control across methods.
=head1 METHODS
Dansguardian perl module provides some basic methods for administer control files, with it you can add, remove and get information about IP's blocked, sites denies, IP exception and other information.
=head2 new (constructor)
$dg = Dansguardian->new([%attributes])
Dash
view release on metacpan or search on metacpan
share/assets/dash_core_components/async~datepicker.js view on Meta::CPAN
(window.webpackJsonpdash_core_components=window.webpackJsonpdash_core_components||[]).push([[2],Array(195).concat([function(e,t,n){(function(e){e.exports=function(){"use strict";var t,r;function a(){return t.apply(null,arguments)}function o(e){return...
//# sourceMappingURL=async~datepicker.js.map
Data-AnyXfer
view release on metacpan or search on metacpan
t/json/upstream/12_blessed.t view on Meta::CPAN
my $o2 = bless \(my $dummy = 1), "YY";
if (eval 'require Hash::Util') {
if ($Hash::Util::VERSION > 0.05) {
Hash::Util::lock_ref_keys($o1);
print "# blessed hash is locked\n";
}
else {
Hash::Util::lock_hash($o1);
print "# hash is locked\n";
}
}
else {
print "# locked hashes are not supported\n";
};
sub XX::TO_JSON {
{__,""}
}
Data-BloomFilter-Shared
view release on metacpan or search on metacpan
STRLEN n;
const char *s;
CODE:
s = SvPVbyte(item, n); /* may croak (wide char) -- BEFORE the lock */
bf_rwlock_wrlock(h);
RETVAL = bf_add_locked(h, s, n);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
bf_rwlock_wrunlock(h);
OUTPUT:
RETVAL
SV **el = av_fetch(av, (SSize_t)i, 0);
if (el && *el) ps[i] = SvPVbyte(*el, ls[i]);
else { ps[i] = ""; ls[i] = 0; }
}
}
bf_rwlock_wrlock(h); /* locked region: NO croak-capable calls */
for (i = 0; i < cnt; i++) added += (UV)bf_add_locked(h, ps[i], ls[i]);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED); /* a call always counts, even an empty batch */
bf_rwlock_wrunlock(h);
}
RETVAL = added;
OUTPUT:
STRLEN n;
const char *s;
CODE:
s = SvPVbyte(item, n); /* may croak (wide char) -- BEFORE the lock */
bf_rwlock_rdlock(h);
RETVAL = bf_contains_locked(h, s, n);
bf_rwlock_rdunlock(h);
OUTPUT:
RETVAL
void
SV *self
PREINIT:
EXTRACT(self);
CODE:
bf_rwlock_wrlock(h);
bf_clear_locked(h);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
bf_rwlock_wrunlock(h);
UV
capacity(self)
PREINIT:
EXTRACT(self);
UV n;
CODE:
bf_rwlock_rdlock(h);
n = (UV)bf_count_locked(h);
bf_rwlock_rdunlock(h);
RETVAL = n;
OUTPUT:
RETVAL
uint32_t k;
double fp_rate;
/* Snapshot under the lock; do all (croak-capable) Perl allocation after
releasing it -- so an OOM in newHV/newSVuv can never strand the lock. */
bf_rwlock_rdlock(h);
X = bf_popcount_locked(h);
n_est = bf_count_from_popcount(h, X); /* reuse X -- no second scan */
m_bits = h->hdr->m_bits;
k = h->hdr->k;
capacity = h->hdr->capacity;
fp_rate = h->hdr->fp_rate;
Data-Buffer-Shared
view release on metacpan or search on metacpan
bench/throughput.pl view on Meta::CPAN
print "\n=== Str/16B ($n ops, $cap elements) ===\n";
{
my $buf = Data::Buffer::Shared::Str->new_anon($cap, 16);
my $val = "hello world!!!!"; # 15 bytes
bench "str set (locked)" => sub {
for my $i (1..$n) { $buf->set($i % $cap, $val) }
};
bench "str get (seqlock)" => sub {
my $v;
for my $i (1..$n) { $v = $buf->get($i % $cap) }
Data-ChipsChallenge
view release on metacpan or search on metacpan
lib/Data/ChipsChallenge.pm view on Meta::CPAN
01 Wall
02 Computer Chip
03 Water
04 Fire
05 Invisible Wall (won't appear)
06 Blocked North
07 Blocked West
08 Blocked South
09 Blocked East
0A Movable Dirt Block
0B Dirt (mud, turns to floor)
0C Ice
0D Force South (S)
0E Cloning Block North (N)
lib/Data/ChipsChallenge.pm view on Meta::CPAN
2B Bear Trap
2C Invisible Wall (will appear)
2D Gravel
2E Pass Once
2F Hint
30 Blocked South/East
31 Cloning Machine
32 Force Random Direction
34 Burned Chip
35 Burned Chip (2)
36 NOT USED
Data-Conveyor
view release on metacpan or search on metacpan
eg/rangelocks_perl.pl view on Meta::CPAN
print "# getting meta lock\n";
print "# trying to get locks for [$number]\n";
our %locks;
if ($locks{block_exact}{$number}) { # EXC
print "# exact number [$number] is blocked, aborting\n";
print "# releasing meta lock\n";
return;
}
local $_ = $number;
eg/rangelocks_perl.pl view on Meta::CPAN
chop;
}
for my $substr (@substr) {
if ($locks{block_range}{$substr}) { # EXC
print "# range [$substr] is blocked, aborting\n";
print "# releasing meta lock\n";
return;
}
}
eg/rangelocks_perl.pl view on Meta::CPAN
}
sub test_locks_are_empty {
our %locks;
is_deeply(($locks{block_exact} || {}), {}, 'no exact numbers are blocked');
is_deeply(($locks{block_range} || {}), {}, 'no numbers ranges are blocked');
}
reset_locks();
test_ok_locks(431234);
Data-CountMinSketch-Shared
view release on metacpan or search on metacpan
const char *s;
UV total;
CODE:
s = SvPVbyte(item, len); /* may croak (wide char) -- BEFORE the lock */
cms_rwlock_wrlock(h);
cms_add_locked(h, s, len, (uint64_t)n);
total = (UV)h->hdr->total;
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
cms_rwlock_wrunlock(h);
RETVAL = total;
OUTPUT:
SV **el = av_fetch(av, (SSize_t)i, 0);
if (el && *el) ps[i] = SvPVbyte(*el, ls[i]);
else { ps[i] = ""; ls[i] = 0; }
}
}
cms_rwlock_wrlock(h); /* locked region: NO croak-capable calls */
for (i = 0; i < cnt; i++) cms_add_locked(h, ps[i], ls[i], 1);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED); /* a call always counts, even an empty batch */
cms_rwlock_wrunlock(h);
RETVAL = (UV)cnt; /* every element is added (CMS add never fails) */
}
OUTPUT:
const char *s;
UV est;
CODE:
s = SvPVbyte(item, len); /* may croak (wide char) -- BEFORE the lock */
cms_rwlock_rdlock(h);
est = (UV)cms_estimate_locked(h, s, len);
cms_rwlock_rdunlock(h);
RETVAL = est;
OUTPUT:
RETVAL
SV *self
PREINIT:
EXTRACT(self);
CODE:
cms_rwlock_wrlock(h);
cms_clear_locked(h);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
cms_rwlock_wrunlock(h);
UV
total(self)
Data-CuckooFilter-Shared
view release on metacpan or search on metacpan
STRLEN n;
const char *s;
CODE:
s = SvPVbyte(item, n); /* may croak (wide char) -- BEFORE the lock */
cf_rwlock_wrlock(h);
RETVAL = cf_add_locked(h, s, n);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
cf_rwlock_wrunlock(h);
OUTPUT:
RETVAL
SV **el = av_fetch(av, (SSize_t)i, 0);
if (el && *el) ps[i] = SvPVbyte(*el, ls[i]);
else { ps[i] = ""; ls[i] = 0; }
}
}
cf_rwlock_wrlock(h); /* locked region: NO croak-capable calls */
for (i = 0; i < cnt; i++) added += (UV)cf_add_locked(h, ps[i], ls[i]);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED); /* a call always counts, even an empty batch */
cf_rwlock_wrunlock(h);
}
RETVAL = added;
OUTPUT:
STRLEN n;
const char *s;
CODE:
s = SvPVbyte(item, n); /* may croak (wide char) -- BEFORE the lock */
cf_rwlock_rdlock(h);
RETVAL = cf_contains_locked(h, s, n);
cf_rwlock_rdunlock(h);
OUTPUT:
RETVAL
int
STRLEN n;
const char *s;
CODE:
s = SvPVbyte(item, n); /* may croak (wide char) -- BEFORE the lock */
cf_rwlock_wrlock(h);
RETVAL = cf_remove_locked(h, s, n);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
cf_rwlock_wrunlock(h);
OUTPUT:
RETVAL
SV *self
PREINIT:
EXTRACT(self);
CODE:
cf_rwlock_wrlock(h);
cf_clear_locked(h);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
cf_rwlock_wrunlock(h);
UV
count(self)
Data-Deque-Shared
view release on metacpan or search on metacpan
xt/signal_during_wait.t view on Meta::CPAN
plan skip_all => 'AUTHOR_TESTING not set' unless $ENV{AUTHOR_TESTING};
# A SIGUSR1 while a process is parked in pop_wait must cleanly interrupt
# the futex, re-check the predicate, and (since no data arrived) continue
# waiting for the FULL remaining window. Wall-time assertion: total time
# spent blocked ≈ timeout, not just up-to-signal-arrival.
my $s = Data::Deque::Shared::Int->new(undef, 4);
my $TIMEOUT = 2.0;
pipe(my $rd, my $wr) or die $!;
Data-DisjointSet-Shared
view release on metacpan or search on metacpan
a, h->hdr->n);
if (b >= h->hdr->n)
croak("Data::DisjointSet::Shared->union: index %" UVuf " out of range (n=%u)",
b, h->hdr->n);
dsu_rwlock_wrlock(h);
RETVAL = (IV)dsu_union_locked(h, (uint32_t)a, (uint32_t)b); /* 1 = newly merged, 0 = already together */
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
dsu_rwlock_wrunlock(h);
OUTPUT:
RETVAL
if (b >= h->hdr->n)
croak("Data::DisjointSet::Shared->connected: index %" UVuf " out of range (n=%u)",
b, h->hdr->n);
/* connected compresses paths via dsu_find -> it MUTATES -> write lock. */
dsu_rwlock_wrlock(h);
RETVAL = dsu_connected_locked(h, (uint32_t)a, (uint32_t)b);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
dsu_rwlock_wrunlock(h);
OUTPUT:
RETVAL
croak("Data::DisjointSet::Shared->union_many: index %" UVuf " out of range (n=%u)",
v, n);
vals[i] = (uint32_t)v;
}
}
dsu_rwlock_wrlock(h); /* locked region: NO croak-capable calls */
for (i = 0; i < npairs; i++)
merged += (UV)dsu_union_locked(h, vals[2*i], vals[2*i + 1]);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED); /* a call always counts, even an empty batch */
dsu_rwlock_wrunlock(h);
RETVAL = merged;
}
OUTPUT:
if (x >= h->hdr->n)
croak("Data::DisjointSet::Shared->set_size: index %" UVuf " out of range (n=%u)",
x, h->hdr->n);
/* set_size compresses paths via dsu_find -> it MUTATES -> write lock. */
dsu_rwlock_wrlock(h);
RETVAL = (UV)dsu_set_size_locked(h, (uint32_t)x);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
dsu_rwlock_wrunlock(h);
OUTPUT:
RETVAL
SV *self
PREINIT:
EXTRACT(self);
CODE:
dsu_rwlock_wrlock(h);
dsu_reset_locked(h);
__atomic_fetch_add(&h->hdr->stat_ops, 1, __ATOMIC_RELAXED);
dsu_rwlock_wrunlock(h);
SV *
stats(self)
Data-Downloader
view release on metacpan or search on metacpan
lib/Data/Downloader/DB.pm view on Meta::CPAN
$dbh->do("PRAGMA count_changes = OFF");
if (my $mode = $ENV{DATA_DOWNLOADER_JOURNAL_MODE}) {
$dbh->do("PRAGMA journal_mode = $mode")
if (grep $_ eq $mode, qw(DELETE TRUNCATE PERSIST MEMORY WAL OFF));
}
$dbh->sqlite_busy_timeout(1000*300); # wait up to 5 minutes if it is locked
return $dbh;
}
=item simple
Data-Dump-HTML-PopUp
view release on metacpan or search on metacpan
share/jquery-3.7.1/jquery-3.7.1.min.js view on Meta::CPAN
/*! jQuery v3.7.1 | (c) OpenJS 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...
Data-Dump-Streamer
view release on metacpan or search on metacpan
Added additional support for utf8 and some minor doc fixes. Thanks to
Yitzchak yet again for the patches and advice.
1.05
Added support for locked hashes. Probably there are still bugs in here,
but for now it looks good. Thanks to Yitzchak for pointing out this wasn't
implemented.
Also started adding support for a "smart indent mode". Try using Indent(1)
instead of Indent(2).
Data-Dumper
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_mfree|5.006000||Viu
PERL_MG_UFUNC|5.007001||Viu
Perl_modf|5.006000||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
Data-Enumerable-Lazy
view release on metacpan or search on metacpan
lib/Data/Enumerable/Lazy.pm view on Meta::CPAN
while (my $queue_item = $queue_enum->next) {
# do something with the queue item
}
In this example the client is blocked until there is an element available in
the queue, but it's hidden away from the clients who consume the data item by
item.
=head2 Kafka example
Data-FSM
view release on metacpan or search on metacpan
FSM/Transition.pm view on Meta::CPAN
use warnings;
use Data::FSM::Transition;
use Data::FSM::State;
my $locked = Data::FSM::State->new(
'name' => 'Locked',
);
my $unlocked = Data::FSM::State->new(
'name' => 'Unlocked',
);
my $obj = Data::FSM::Transition->new(
'callback' => sub {
my $self = shift;
print 'Id: '.$self->id."\n";
},
'from' => $locked,
'id' => 7,
'name' => 'Coin',
'to' => $unlocked,
);
# Print out.
print 'Id: '.$obj->id."\n";
print 'From: '.$obj->from->name."\n";
( run in 0.828 second using v1.01-cache-2.11-cpan-bbe5e583499 )