view release on metacpan or search on metacpan
t/Archive/Data/Secs2.pm view on Meta::CPAN
writes and reads
the C<$Data::Secs2::default_options> object
directly using the L<Data::Startup::config|Data::Startup/config>
method.
Avoided the C<config> and in multi-threaded environments
where separate threads are using C<Data::Secs2>.
All other subroutines are multi-thread safe.
They use C<override> to obtain a copy of the
C<$Data::Secs2::default_options> and apply any option
changes to the copy keeping the original intact.
Using the C<config> as a method,
view all matches for this distribution
view release on metacpan or search on metacpan
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsCV|||
oopsHV|||
save_scalar|||
save_set_svflags||5.009000|
save_shared_pvref||5.007003|
save_sptr|||
save_svref|||
save_threadsv||5.005000|
save_vptr||5.006000|
savepvn|||
savepv|||
savesharedpv||5.007003|
savestack_grow_cnt||5.008001|
#endif
/*
* Boilerplate macros for initializing and accessing interpreter-local
* data from C. All statics in extensions should be reworked to use
* this, if you want to make the extension thread-safe. See ext/re/re.xs
* for an example of the use of these macros.
*
* Code that uses these macros is responsible for the following:
* 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
* 2. Declare a typedef named my_cxt_t that is a structure that contains
defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
#ifndef START_MY_CXT
/* This must appear in all extensions that define a my_cxt_t structure,
* right after the definition (i.e. at file scope). The non-threads
* case below uses it to declare the data as static. */
#define START_MY_CXT
#if (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION < 68 ))
/* Fetches the SV that keeps the per-interpreter data. */
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Arcus/Client.pm view on Meta::CPAN
sub new {
my ($class, $args) = @_;
$args->{connect_timeout} //= 1.0; # second
$args->{io_timeout} //= 0.8; # second
$args->{max_thread} //= 64;
$args->{nowait} = 0; # TODO: Fix a C Client's noreply flags (issue: #3)
$args->{hash_namespace} = 1;
$args->{namespace} //= "";
$args->{serialize_methods} //= [ \&Storable::nfreeze, \&Storable::thaw ];
$args->{compress_threshold} //= -1;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Array/Circular.pm view on Meta::CPAN
does not support C<previous>. L<Array::Iterator> contains a survey of
various similar modules.
=head2 TODO
Not thread safe. See implementation of L<Hash::MultiValue> for
implementation of thread safety. Alternatively use
L<Hash::Util::FieldHash> or L<Hash::Util::FieldHash::Compat>.
=head2 AUTHOR COPYRIGHT AND LICENSE
Copyright 2018 Kieren Diment L<zarquon@cpan.org>. This software can
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Array/Shuffle.pm view on Meta::CPAN
=head1 SEE ALSO
L<List::Util>.
The following thread on PerlMonks for a discussion on the topic:
L<http://perlmonks.org/?node_id=953607>.
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2012, 2021 by Salvador FandiE<ntilde>o (sfandino@yahoo.com)
view all matches for this distribution
view release on metacpan or search on metacpan
0.02 Thu Apr 12 10:40:48 CEST 2007
- mildly hacked version
0.03 Mon Apr 16 09:32:07 CEST 2007
- added threaded stuff
view all matches for this distribution
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
packs
packsack
packsacks
packsaddle
packsaddles
packthread
packthreads
packwax
packwaxes
paclitaxel
paclitaxels
pacs
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
rethinker
rethinkers
rethinking
rethinks
rethought
rethread
rethreaded
rethreading
rethreads
retia
retial
retiarii
retiarius
retiary
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
thrawed
thrawing
thrawn
thrawnly
thraws
thread
threadbare
threadbareness
threadbarenesses
threaded
threader
threaders
threadfin
threadfins
threadier
threadiest
threadiness
threadinesses
threading
threadless
threadlike
threads
threadworm
threadworms
thready
threap
threaped
threaper
threapers
threaping
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
unthinkably
unthinking
unthinkingly
unthinks
unthought
unthread
unthreaded
unthreading
unthreads
unthreatening
unthrifty
unthrone
unthroned
unthrones
view all matches for this distribution
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Medical/Glutanimate.pm view on Meta::CPAN
Thost
thought
thousandth
thozalinone
Thr
thread
threadworm
thready
Threamine
threat
three
threonine
threonyl
view all matches for this distribution
view release on metacpan or search on metacpan
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
packs
packsack
packsacks
packsaddle
packsaddles
packthread
packthreads
packwax
packwaxes
paclitaxel
paclitaxels
pacs
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
rethinker
rethinkers
rethinking
rethinks
rethought
rethread
rethreaded
rethreading
rethreads
retia
retial
retiarii
retiarius
retiary
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
thrawed
thrawing
thrawn
thrawnly
thraws
thread
threadbare
threadbareness
threadbarenesses
threaded
threader
threaders
threadfin
threadfins
threadier
threadiest
threadiness
threadinesses
threading
threadless
threadlike
threads
threadworm
threadworms
thready
threap
threaped
threaper
threapers
threaping
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
unthinkably
unthinking
unthinkingly
unthinks
unthought
unthread
unthreaded
unthreading
unthreads
unthreatening
unthrifty
unthrone
unthroned
unthrones
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Arriba/Server.pm view on Meta::CPAN
'psgi.errors' => *STDERR,
'psgi.url_scheme' => $req->{scheme},
'psgi.nonblocking' => Plack::Util::FALSE,
'psgi.streaming' => Plack::Util::TRUE,
'psgi.run_once' => Plack::Util::FALSE,
'psgi.multithread' => Plack::Util::FALSE,
'psgi.multiprocess' => Plack::Util::TRUE,
'psgix.io' => $client,
'psgix.input.buffered' => Plack::Util::TRUE,
'psgix.harakiri' => Plack::Util::TRUE,
};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Art/World/Util.pm view on Meta::CPAN
Also there is the Zydeco's C<$class> object.
This is a couple of utilities that makes a sort of meta-programming very simple. It is
more like a reminder for my bad memory than something very interesting. Largely
inspired by L<this Perl Monks thread|https://www.perlmonks.org/?node_id=1043195>.
Art::World::Meta->get_all_attributes( $artist );
# ==> ( 'id', 'name', 'reputation', 'artworks', 'collectors', 'collected', 'status' )
Mostly useless since Zydeco rely on Moo(se) so the Moose Meta Object Protocol is
view all matches for this distribution
view release on metacpan or search on metacpan
- New Module AMI::Common:Dev contains additional functions for working with Asterisk 1.6+
0.1.2 - All AMI Objects can now also be used a normal IO Handles. It is not recommended
that you read and write directly to them. This was added so you can add the AMI
object to something like IO::Select for single threaded server applications
- New module AMI::Common::Dev, which is currently empty. This will be where new functions
specific to Asterisk 1.6+ will go. When the next LTS of Asterisk is released these will then
be merged back into AMI::Common and new functions will be added here.
view all matches for this distribution
view release on metacpan or search on metacpan
use File::Spec;
use POSIX qw/sys_wait_h/;
use Errno qw/EAGAIN/;
use Carp;
use threads;
use threads::shared;
use Astro::Aladin::LowLevel;
'$Revision: 1.3 $ ' =~ /.*:\s(.*)\s\$/ && ($VERSION = $1);
# Check for threading
#use Config;
#print "Config: useithreads = " . $Config{'useithreads'} . "\n";
#print "Config: threads::shared loaded\n" if($threads::shared::threads_shared);
# A N O N Y M O U S S U B R O U T I N E S ---------------------------------
my $threaded_supercos_catalog = sub {
my ( $ra, $dec, $radius, $band, $file ) = @_;
# create a lowlevel object
my $aladin = new Astro::Aladin::LowLevel( );
share( $radius );
share( $band );
share( $file );
share( $status );
my $supercos_thread = threads->create( sub {
$status = &$threaded_supercos_catalog( $ra, $dec, $radius, $band, $file );
});
# wait for the supercos thread to join
$supercos_thread->join();
# return the status, with luck this will be set to $file, however
# if we get an error (and sucessfully pick up on it) it will be undef
return $status;
view all matches for this distribution
view release on metacpan or search on metacpan
Cosmology.pm view on Meta::CPAN
Most functions have two names; a short one and a (hopefully) more
descriptive one, such as C<pmot_dist()> and C<proper_motion_distance()>.
Most of the routines below include a C<sig:> line in their documentation.
This is an attempt to say how they
`L<thread|PDL::indexing>' (in the L<PDL|PDL> sense of the word).
So, for routines like C<lum_dist> - which have a sig line of
C<dl() = $cosmo-E<gt>lum_dist( z() )> - the return value has the
same format as the input C<$z> value; supply a scalar, get a scalar back,
send in a piddle and get a piddle of the same dimensions back.
For routines like C<abs_mag> - with a sig line of
C<absmag() = $cosmo-E<gt>abs_mag( appmag(), z() )> - you can thread over
either of the two input values,
in this case the apparent magnitude and redshift.
=head1 SUMMARY
Cosmology.pm view on Meta::CPAN
#
# note: we call the C code directly
#
sub lookback_time ($$;$) {
my $self = shift;
my $z_low = $#_ == 1 ? shift : 0; # let PDL do the threading if z_high is a piddle
my $z_high = shift;
return Astro::Cosmology::Internal::_lookback_time( $z_low, $z_high,
$self->{OMEGA_MATTER}, $self->{OMEGA_LAMBDA},
$self->{ABSTOL}, $self->{TCONV} );
view all matches for this distribution
view release on metacpan or search on metacpan
my @funcnts;
my @funhist;
BEGIN {
# use readdir instead of globs b/c of 5.6.0 multithreaded perl debug bug
opendir( DIR, "data" ) or die( "couldn't open data directory\n" );
my @files = grep { -f "data/$_" } readdir( DIR );
closedir( DIR );
@funcnts = grep { /^funcnts.*\.log$/ } @files;
view all matches for this distribution
view release on metacpan or search on metacpan
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
oopsHV|||
#endif
/* Hint: PL_ppaddr
* Calling an op via PL_ppaddr requires passing a context argument
* for threaded builds. Since the context argument is different for
* 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
* automatically be defined as the correct argument.
*/
#if (PERL_BCDVERSION <= 0x5005005)
#endif
/*
* Boilerplate macros for initializing and accessing interpreter-local
* data from C. All statics in extensions should be reworked to use
* this, if you want to make the extension thread-safe. See ext/re/re.xs
* for an example of the use of these macros.
*
* Code that uses these macros is responsible for the following:
* 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
* 2. Declare a typedef named my_cxt_t that is a structure that contains
defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
#ifndef START_MY_CXT
/* This must appear in all extensions that define a my_cxt_t structure,
* right after the definition (i.e. at file scope). The non-threads
* case below uses it to declare the data as static. */
#define START_MY_CXT
#if (PERL_BCDVERSION < 0x5004068)
/* Fetches the SV that keeps the per-interpreter data. */
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
view all matches for this distribution
view release on metacpan or search on metacpan
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
oopsHV|||
#endif
/* Hint: PL_ppaddr
* Calling an op via PL_ppaddr requires passing a context argument
* for threaded builds. Since the context argument is different for
* 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
* automatically be defined as the correct argument.
*/
#if (PERL_BCDVERSION <= 0x5005005)
#endif
/*
* Boilerplate macros for initializing and accessing interpreter-local
* data from C. All statics in extensions should be reworked to use
* this, if you want to make the extension thread-safe. See ext/re/re.xs
* for an example of the use of these macros.
*
* Code that uses these macros is responsible for the following:
* 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
* 2. Declare a typedef named my_cxt_t that is a structure that contains
defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
#ifndef START_MY_CXT
/* This must appear in all extensions that define a my_cxt_t structure,
* right after the definition (i.e. at file scope). The non-threads
* case below uses it to declare the data as static. */
#define START_MY_CXT
#if (PERL_BCDVERSION < 0x5004068)
/* Fetches the SV that keeps the per-interpreter data. */
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
view all matches for this distribution
view release on metacpan or search on metacpan
libnova-0.15.0/aclocal.m4 view on Meta::CPAN
_LT_TAGVAR(link_all_deplibs, $1)=unknown
_LT_TAGVAR(module_cmds, $1)=
_LT_TAGVAR(module_expsym_cmds, $1)=
_LT_TAGVAR(old_archive_from_new_cmds, $1)=
_LT_TAGVAR(old_archive_from_expsyms_cmds, $1)=
_LT_TAGVAR(thread_safe_flag_spec, $1)=
_LT_TAGVAR(whole_archive_flag_spec, $1)=
# include_expsyms should be a list of space-separated symbols to be *always*
# included in the symbol list
_LT_TAGVAR(include_expsyms, $1)=
# exclude_expsyms can be an extended regexp of symbols to exclude
libnova-0.15.0/aclocal.m4 view on Meta::CPAN
_LT_TAGDECL([], [postlink_cmds], [2],
[Commands necessary for finishing linking programs])
_LT_TAGDECL([], [file_list_spec], [1],
[Specify filename containing input files])
dnl FIXME: Not yet implemented
dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1],
dnl [Compiler flag to generate thread safe objects])
])# _LT_LINKER_SHLIBS
# _LT_LANG_C_CONFIG([TAG])
# ------------------------
view all matches for this distribution