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
view release on metacpan or search on metacpan
eg/memoize.pl view on Meta::CPAN
my $cache = Data::HashMap::Shared::IS->new($path, 1000);
sub expensive { # pretend this is slow / costly
my $n = shift;
my $r = 0;
$r += $_ for 1 .. ($n + 1) * 1000; # busywork
return "f($n)=$r";
}
sub memoized {
my ($c, $n) = @_;
view release on metacpan or search on metacpan
__atomic_add_fetch(&hdr->stat_waits, 1, __ATOMIC_RELAXED);
for (;;) {
__atomic_add_fetch(&hdr->waiters_pop, 1, __ATOMIC_RELEASE);
uint32_t cur = __atomic_load_n(&hdr->size, __ATOMIC_ACQUIRE);
if (cur > h->capacity) { /* corrupt size: heap_pop can never succeed, so do not busy-spin */
__atomic_sub_fetch(&hdr->waiters_pop, 1, __ATOMIC_RELAXED);
return 0;
}
if (cur == 0) {
struct timespec *pts = NULL;
view release on metacpan or search on metacpan
lib/Data/ICal.pm view on Meta::CPAN
popular calendaring programs such as Apple's iCal.
Each L<Data::ICal> object is a collection of "entries", which are objects of a
subclass of L<Data::ICal::Entry>. The types of entries defined by iCalendar
(which refers to them as "components") include events, to-do items, journal
entries, free/busy time indicators, and time zone descriptors; in addition,
events and to-do items can contain alarm entries. (Currently, L<Data::ICal>
only implements to-do items and events.)
L<Data::ICal> is a subclass of L<Data::ICal::Entry>; see its manpage for more
methods applicable to L<Data::ICal>.
view release on metacpan or search on metacpan
Iterator_en.pod view on Meta::CPAN
Standard is the Perl-like format for Hashes/Arrays:
my $path = "{'key1'}{'key2'}[2][1]";
If you are too busy to write all the brackets and braces, this will do ok:
my $path = 'key1.key2.2.1';
If you choose not to use brackets/braces, hash keys have to contain at least one non-numerical character. Otherwise they will be taken as an array index - and will cause a non-fatal error plus warning.
view release on metacpan or search on metacpan
share/js/01-workerpool.js view on Meta::CPAN
this._executeNext();
return promise;
}
_executeNext(){
//console.log("is busy", this.isBusy);
if((!this.isBusy) && (this.requestQueue.length>0)){
//console.log(`POSTING TO WORKER ${this.id}`);
this.isBusy=true;
let r=this.requestQueue.shift();
this.responseQueue.push(r);
share/js/01-workerpool.js view on Meta::CPAN
try {
this.worker.postMessage({cmd:"callFunction",name:r.name, arg:r.arg },r.transfer);
}
catch(e){
let er={data:{name:"error", result:undefined}};
// Could not send message, probably a bad argument. Make as not busy
let r=this.responseQueue.shift();
//console.log(`Response from worker ${this.id}`);
r.rejecter(er);
this.isBusy=false;
this._executeNext(); //Trigger the queue again
view release on metacpan or search on metacpan
msgpack-3.3.0/Doxyfile view on Meta::CPAN
# The SYMBOL_CACHE_SIZE determines the size of the internal cache use to
# determine which symbols to keep in memory and which to flush to disk.
# When the cache is full, less often used symbols will be written to disk.
# For small to medium size projects (<1000 input files) the default value is
# probably good enough. For larger projects a too small cache size can cause
# doxygen to be busy swapping symbols to and from disk most of the time
# causing a significant performance penality.
# If the system has enough physical memory increasing the cache will improve the
# performance by keeping more symbols in memory. Note that the value works on
# a logarithmic scale so increasing the size by one will roughly double the
# memory usage. The cache size is given by this formula:
view release on metacpan or search on metacpan
t/repeatable/list.t view on Meta::CPAN
has_field 'tags' => ( type => 'Repeatable' );
has_field 'tags.contains';
sub validate_tags_contains {
my ( $self, $field ) = @_;
if ( $field->value eq 'busybee' ) {
$field->add_error('That tag is not allowed');
}
}
}
t/repeatable/list.t view on Meta::CPAN
};
is_deeply( $form->fif, $fif, 'fif is correct' );
is_deeply( $form->values, $params, 'values are correct' );
$params = { name => 'sally', tags => ['busybee', 'sillysally', 'missymim'] };
$form->process($params);
ok( $form->field('tags.0')->has_errors, 'instance has errors' );
ok( $form->has_errors, 'form has errors' );
done_testing;
view release on metacpan or search on metacpan
share/dictionary.txt view on Meta::CPAN
bustle
bustled
bustles
bustling
busts
busy
busybodies
busybody
busybody's
busying
busyness
busyness's
busywork
busywork's
but
butane
butane's
butch
butcher
view release on metacpan or search on metacpan
src/passwdqc/wordset_4k.c view on Meta::CPAN
"bury",
"bus",
"bush",
"bust",
"bustle",
"busy",
"but",
"butler",
"butt",
"butter",
"button",
view release on metacpan or search on metacpan
lib/Data/Password/zxcvbn/RankedDictionaries/English.pm view on Meta::CPAN
'bustier' => 17379,
'bustin' => 9304,
'busting' => 3266,
'busts' => 12473,
'busty' => 21284,
'busy' => 551,
'busybody' => 14373,
'busywork' => 19747,
'but' => 24,
'butabi' => 12097,
'butai' => 21283,
'butch' => 4535,
'butchered' => 13349,
view release on metacpan or search on metacpan
- Devel::Cover - 89.9%
0.25 2005-11-21
- Added support for multiple dictionaries.
- Finally added the Module::Pluggable::search_path functionality
(after Simon implemented my patch 9 months ago! .. I was busy m'kay)
- The query() method in SQL phrasebook class, can now support
replacement of parameters as well as binding of parameters.
(Thanks to Tielman De Villiers for the idea and the code examples)
0.24 2005-09-22
view release on metacpan or search on metacpan
lib/Data/Queue/Shared.pm view on Meta::CPAN
=item * File-backed mmap for cross-process sharing
=item * Lock-free MPMC for integer queues (Vyukov algorithm)
=item * Futex-based blocking wait with timeout (no busy-spin)
=item * PID-based stale lock recovery (dead process detection)
=item * Batch push/pop operations
view release on metacpan or search on metacpan
radius/starent view on Meta::CPAN
VALUE SN1-Disconnect-Reason mipha-dup-home-addr-req 122
VALUE SN1-Disconnect-Reason mipha-dup-imsi-session 123
VALUE SN1-Disconnect-Reason ha-unreachable 124
VALUE SN1-Disconnect-Reason IPSP-addr-in-use 125
VALUE SN1-Disconnect-Reason mipfa-dup-home-addr-req 126
VALUE SN1-Disconnect-Reason mipha-ip-pool-busyout 127
VALUE SN1-Disconnect-Reason inter-pdsn-handoff 128
VALUE SN1-Disconnect-Reason active-to-dormant 129
VALUE SN1-Disconnect-Reason ppp-renegotiation 130
VALUE SN1-Disconnect-Reason active-start-param-change 131
VALUE SN1-Disconnect-Reason tarrif-boundary 132
view release on metacpan or search on metacpan
lib/Data/Random/Contact/Language/EN.pm view on Meta::CPAN
bustle
bustled
bustles
bustling
busts
busy
busybodies
busybody
busybody's
busying
busyness
busyness's
busywork
busywork's
but
butane
butane's
butch
butcher
view release on metacpan or search on metacpan
lib/Data/Random/dict view on Meta::CPAN
busted
buster
bustle
bustling
busts
busy
but
butane
butcher
butchered
butchers
view release on metacpan or search on metacpan
lib/Data/SplitSerializer.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
eg/eventfd_fork.pl view on Meta::CPAN
if (defined $n && $n > 0) {
$collected += $n;
printf " parent: got %d notification(s), total=%d/%d\n",
$n, $collected, $nworkers;
} else {
select(undef, undef, undef, 0.01); # brief sleep, no busy-spin
}
}
waitpid($_, 0) for @pids;
printf "\nall %d workers finished, sem value=%d\n", $nworkers, $sem->value;
view release on metacpan or search on metacpan
lib/Data/Transpose/PasswordPolicy.pm view on Meta::CPAN
See below for the list of the available checkings.
B<Please note>: the purpose of this module is not to try to crack the
password provided, but to set a policy for the passwords, which should
have some minimum standards, and could be used on web services to stop
users to set trivial password (without keeping the server busy for
seconds while we check it). Nothing more.
=cut
=head1 METHODS
view release on metacpan or search on metacpan
lib/DataFlow/Proc/DPath.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/DataFlow/Proc/HTMLFilter.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/DataFlow/Proc/JSON.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/DataFlow/Proc/MessagePack.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/DataFlow/Proc/URLRetriever.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/DataFlow/Proc/YAML.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/DataFlow.pm view on Meta::CPAN
=head2 Internet Relay Chat
You can get live help by using IRC ( Internet Relay Chat ). If you don't know what IRC is,
please read this excellent guide: L<http://en.wikipedia.org/wiki/Internet_Relay_Chat>. Please
be courteous and patient when talking to us, as we might be busy or sleeping! You can join
those networks/channels and get help:
=over 4
=item *
view release on metacpan or search on metacpan
lib/Database/Abstraction.pm view on Meta::CPAN
$dbh->do('PRAGMA synchronous = OFF');
$dbh->do('PRAGMA cache_size = -4096');
$dbh->do('PRAGMA journal_mode = OFF');
$dbh->do('PRAGMA temp_store = MEMORY');
$dbh->do('PRAGMA mmap_size = 1048576');
$dbh->sqlite_busy_timeout(100000);
}
$self->{'type'} = 'DBI';
$self->{$table} = $dbh;
$self->{'_updated'} = time();
lib/Database/Abstraction.pm view on Meta::CPAN
$dbh->do('PRAGMA synchronous = OFF');
$dbh->do('PRAGMA cache_size = -4096'); # Use 4MB cache - negative = KB)
$dbh->do('PRAGMA journal_mode = OFF'); # Read-only, no journal needed
$dbh->do('PRAGMA temp_store = MEMORY'); # Store temp data in RAM
$dbh->do('PRAGMA mmap_size = 1048576'); # Use 1MB memory-mapped I/O
$dbh->sqlite_busy_timeout(100000); # 10s
$self->_debug("read in $table from SQLite $slurp_file");
$self->{'type'} = 'DBI';
} elsif($self->_is_berkeley_db(File::Spec->catfile($dir, "$dbname.db"))) {
$self->_debug("$table is a BerkeleyDB file");
$self->{'type'} = 'BerkeleyDB';
view release on metacpan or search on metacpan
sqlite_thread/sqlite_sth.cpp view on Meta::CPAN
switch(code) {
case SQLITE_OK:
std::cerr << self->stmt_ << " - OK\n";
break;
case SQLITE_BUSY:
std::cerr << self->stmt_ << " - busy\n";
break;
case SQLITE_DONE:
std::cerr << self->stmt_ << " - done\n";
break;
case SQLITE_ROW: {
view release on metacpan or search on metacpan
lib/Debian/Perl.pm view on Meta::CPAN
having to know the details. As long as this switch doesn't tell you
otherwise, you know that you did the all right things.
This module is just a helping hand that automates all the standard best
practices for you. It bends over backwards to help you get that module to
Debian without having to know any more than is expected of a busy Perl module
author, like you.
Specifically it uses things like C<dh-make-perl>, C<debuild>, C<pbuilder> and
C<lintian>. If you've never heard of these things, that's ok. Until this week,
neither did I. They all do a lot of work, and they aren't that hard to use,