Result:
found more than 489 distributions - search limited to the first 2001 files matching your query
( run in 0.855 )
AWS-Lambda
view release on metacpan or search on metacpan
lib/AWS/Lambda/PSGI.pm view on Meta::CPAN
}
$env->{'psgi.version'} = [1, 1];
$env->{'psgi.errors'} = *STDERR;
$env->{'psgi.run_once'} = Plack::Util::FALSE;
$env->{'psgi.multithread'} = Plack::Util::FALSE;
$env->{'psgi.multiprocess'} = Plack::Util::FALSE;
$env->{'psgi.streaming'} = Plack::Util::FALSE;
$env->{'psgi.nonblocking'} = Plack::Util::FALSE;
$env->{'psgix.harakiri'} = Plack::Util::TRUE;
$env->{'psgix.input.buffered'} = Plack::Util::TRUE;
lib/AWS/Lambda/PSGI.pm view on Meta::CPAN
}
$env->{'psgi.version'} = [1, 1];
$env->{'psgi.errors'} = *STDERR;
$env->{'psgi.run_once'} = Plack::Util::FALSE;
$env->{'psgi.multithread'} = Plack::Util::FALSE;
$env->{'psgi.multiprocess'} = Plack::Util::FALSE;
$env->{'psgi.streaming'} = Plack::Util::FALSE;
$env->{'psgi.nonblocking'} = Plack::Util::FALSE;
$env->{'psgix.harakiri'} = Plack::Util::TRUE;
$env->{'psgix.input.buffered'} = Plack::Util::TRUE;
Acme-Acotie
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use strict;
our $VERSION = '0.80';
$VERSION = eval { $VERSION }; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on.
# 5.8.0's threads are so busted we no longer support them.
if( $] >= 5.008001 && $Config{useithreads} && $INC{'threads.pm'}) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die("Unknown type: ".$type);
}
$_[0] = &threads::shared::share($_[0]);
if( $type eq 'HASH' ) {
%{$_[0]} = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off
# and earlier Perls just don't have that module at all.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share({});
for my $idx ( 0..$self->{Expected_Tests}-1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
Acme-AirRead
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
# sorted with the same algorithm.
#
# Ensure that references are not accidentally treated the same as a
# string containing the reference.
#
# Have to inline the sort routine due to a threading/sort bug.
# See [rt.cpan.org 6782]
#
# I don't know how references would be sorted so we just don't sort
# them. This means eq_set doesn't really work with refs.
return eq_array(
Acme-Albed
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
require Test::Builder::IO::Scalar;
}
}
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on.
# 5.8.0's threads are so busted we no longer support them.
if( $] >= 5.008001 && $Config{useithreads} && $INC{'threads.pm'} ) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die( "Unknown type: " . $type );
}
$_[0] = &threads::shared::share( $_[0] );
if( $type eq 'HASH' ) {
%{ $_[0] } = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off
# and earlier Perls just don't have that module at all.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share( {} );
for my $idx ( 0 .. $self->{Expected_Tests} - 1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
Acme-AliG
view release on metacpan or search on metacpan
lib/Acme/AliG.pm view on Meta::CPAN
"clever" => "brainiest",
"click" => "let it rip",
"clit" => "love button",
"clitoris" => "love button",
"clockwork" => "chocolate",
"clothes" => "threads",
"club" => "cukabilly",
"coat" => "tommy hilfinger",
"cocaine" => "erbal remedy",
"cock" => "dong",
"coins" => "coppers",
Acme-BOATES
view release on metacpan or search on metacpan
# --- MakeMaker post_initialize section:
# --- MakeMaker const_config section:
# These definitions are from config.sh (via /usr/lib/perl5/5.8.8/i386-linux-thread-multi/Config.pm).
# They may have been overridden via Makefile.PL or on the command line.
AR = ar
CC = gcc
CCCDLFLAGS = -fPIC
CCDLFLAGS = -Wl,-E -Wl,-rpath,/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE
DLEXT = so
DLSRC = dl_dlopen.xs
EXE_EXT =
FULL_AR = /usr/bin/ar
LD = gcc
OBJ_EXT = .o
OSNAME = linux
OSVERS = 2.6.18-53.el5
RANLIB = :
SITELIBEXP = /usr/lib/perl5/site_perl/5.8.8
SITEARCHEXP = /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
SO = so
VENDORARCHEXP = /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
VENDORLIBEXP = /usr/lib/perl5/vendor_perl/5.8.8
# --- MakeMaker constants section:
AR_STATIC_ARGS = cr
DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
INSTALLSITELIB = /usr/lib/perl5/site_perl/5.8.8
DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
INSTALLVENDORLIB = /usr/lib/perl5/vendor_perl/5.8.8
DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
INSTALLARCHLIB = /usr/lib/perl5/5.8.8/i386-linux-thread-multi
DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
INSTALLSITEARCH = /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
INSTALLVENDORARCH = /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
INSTALLBIN = /usr/bin
DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
INSTALLSITEBIN = /usr/bin
DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
INSTALLSITEMAN3DIR = /usr/share/man/man3
DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR)
INSTALLVENDORMAN3DIR = /usr/share/man/man3
DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR)
PERL_LIB = /usr/lib/perl5/5.8.8
PERL_ARCHLIB = /usr/lib/perl5/5.8.8/i386-linux-thread-multi
LIBPERL_A = libperl.a
FIRST_MAKEFILE = Makefile
MAKEFILE_OLD = Makefile.old
MAKE_APERL_FILE = Makefile.aperl
PERLMAINCC = $(CC)
PERL_INC = /usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE
PERL = /usr/local/bin/perl
FULLPERL = /usr/local/bin/perl
ABSPERL = $(PERL)
PERLRUN = $(PERL)
FULLPERLRUN = $(FULLPERL)
$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="0.03">' > $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <ABSTRACT>The great new Acme::BOATES!</ABSTRACT>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <AUTHOR>Brian Oates <boates@cpan.org></AUTHOR>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Test::More" />' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="i386-linux-thread-multi-5.8" />' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
Acme-CPANAuthors-GeekHouse
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use strict;
our $VERSION = '0.80';
$VERSION = eval { $VERSION }; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on.
# 5.8.0's threads are so busted we no longer support them.
if( $] >= 5.008001 && $Config{useithreads} && $INC{'threads.pm'}) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die("Unknown type: ".$type);
}
$_[0] = &threads::shared::share($_[0]);
if( $type eq 'HASH' ) {
%{$_[0]} = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off
# and earlier Perls just don't have that module at all.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share({});
for my $idx ( 0..$self->{Expected_Tests}-1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
Acme-CPANLists-Import
view release on metacpan or search on metacpan
lib/Acme/CPANLists/Import/ThreadPoolForBossWorkerModel.pm view on Meta::CPAN
package Acme::CPANLists::Import::ThreadPoolForBossWorkerModel;
our $DATE = '2016-12-28'; # DATE
our $VERSION = '0.03'; # VERSION
our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/kal/2012/09/thread-pool-for-a-bossworker-model.html] (retrieved on 2016-07-19). For the full article, visit th...
1;
# ABSTRACT: Thread pool for a boss/worker model (2012)
__END__
lib/Acme/CPANLists/Import/ThreadPoolForBossWorkerModel.pm view on Meta::CPAN
This document describes version 0.03 of Acme::CPANLists::Import::ThreadPoolForBossWorkerModel (from Perl distribution Acme-CPANLists-Import), released on 2016-12-28.
=head1 DESCRIPTION
This module is generated by extracting module names mentioned in the article L<http://blogs.perl.org/users/kal/2012/09/thread-pool-for-a-bossworker-model.html> (retrieved on 2016-07-19). For the full article, visit the URL.
=head1 MODULE LISTS
=head2 Thread pool for a boss/worker model (2012)
This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/kal/2012/09/thread-pool-for-a-bossworker-model.html] (retrieved on 2016-07-19). For the full article, visit the URL.
=over
=item * L<Beanstalk::Client>
lib/Acme/CPANLists/Import/ThreadPoolForBossWorkerModel.pm view on Meta::CPAN
=item * L<Thread::Semaphore>
=item * L<Thread::Workers>
=item * L<threads::shared>
=back
=head1 HOMEPAGE
Acme-CPANModules-Import-CPANRatings-User-stevenharyanto
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-stevenharyanto'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\n(REMOVED)\n",module=>"Log::Any",rating=>undef},{description=>"\nProvides a thin/lightweight OO interface for \$?, ...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user stevenharyanto
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
=item L<Thread::IID>
Author: L<WROG|https://metacpan.org/author/WROG>
When I saw the perlmonks thread yesterday, I thought "well, someone should package it and put it on CPAN". And then someone did :) Thanks.
<br>
=item L<Test::Lite>
Acme-CPANModulesBundle-Import-MojoliciousAdvent-2017
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2017_12_01_day-1-getting-started view on Meta::CPAN
In order to use them as one, we need to start it as a web server.</p>
<p>Mojolicious comes with four built-in servers</p>
<ul>
<li><code>daemon</code>, single-threaded, the basis of all the others</li>
<li><code>morbo</code>, the development server, restarts on files changes</li>
<li><code>prefork</code>, optimized production server</li>
<li><code>hypnotoad</code>, like prefork but with hot-restart capability</li>
</ul>
Acme-CPANModulesBundle-Import-PerlDancerAdvent-2018
view release on metacpan or search on metacpan
devdata/http_advent.perldancer.org_2018_13 view on Meta::CPAN
<p>No copyright retained. Enjoy.</p>
<p>Jason A. Crome</p>
</div>
<div id="disqus_thread"></div>
<script type="text/javascript">
/* * * CONFIGURATION VARIABLES: EDIT BEFORE PASTING INTO YOUR WEBPAGE * * */
var disqus_shortname = 'danceradvent'; // required: replace example with your forum shortname
/* * * DON'T EDIT BELOW THIS LINE * * */
Acme-CPANModulesBundle-Import
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/ThreadPoolForBossWorkerModel.pm view on Meta::CPAN
our $DATE = '2018-09-22'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {
description => "This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/kal/2012/09/thread-pool-for-a-bossworker-model.html] (retrieved on 2016-07-19). For the full article, visit the URL.",
entries => [
{ module => "Beanstalk::Client" },
{ module => "GraphViz2::Marpa" },
{ module => "POE::Component::JobQueue" },
{ module => "Parallel::Workers" },
{ module => "Thread::Apartment" },
{ module => "Thread::Pool" },
{ module => "Thread::Queue" },
{ module => "Thread::Semaphore" },
{ module => "Thread::Workers" },
{ module => "threads::shared" },
],
summary => "Thread pool for a boss/worker model (2012)",
};
1;
lib/Acme/CPANModules/Import/ThreadPoolForBossWorkerModel.pm view on Meta::CPAN
=head1 DESCRIPTION
Thread pool for a boss/worker model (2012).
This list is generated by extracting module names mentioned in the article [http://blogs.perl.org/users/kal/2012/09/thread-pool-for-a-bossworker-model.html] (retrieved on 2016-07-19). For the full article, visit the URL.
=head1 INCLUDED MODULES
=over
lib/Acme/CPANModules/Import/ThreadPoolForBossWorkerModel.pm view on Meta::CPAN
=item * L<Thread::Semaphore>
=item * L<Thread::Workers>
=item * L<threads::shared>
=back
=head1 HOMEPAGE
Acme-Color-Rust
view release on metacpan or search on metacpan
ffi/src/lib.rs view on Meta::CPAN
fn get_blue(&self) -> u8 {
self.blue
}
}
thread_local!(
static COUNTER: Cell<u32> = Cell::new(0);
static STORE: RefCell<HashMap<u32, Color>> = RefCell::new(HashMap::new())
);
#[no_mangle]
ffi/src/lib.rs view on Meta::CPAN
index
}
#[no_mangle]
pub extern "C" fn color_name(index: u32) -> *const c_char {
thread_local!(
static KEEP: RefCell<Option<CString>> = RefCell::new(None);
);
let name = STORE.with(|it| {
let it = it.borrow();
Acme-ComeFrom
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = '0.70';
$VERSION = eval $VERSION; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on.
# 5.8.0's threads are so busted we no longer support them.
if( $] >= 5.008001 && $Config{useithreads} && $INC{'threads.pm'}) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die("Unknown type: ".$type);
}
$_[0] = &threads::shared::share($_[0]);
if( $type eq 'HASH' ) {
%{$_[0]} = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off
# and earlier Perls just don't have that module at all.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share({});
for my $idx ( 0..$self->{Expected_Tests}-1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
Acme-Coro-Suke
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
require Test::Builder::IO::Scalar;
}
}
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on.
# 5.8.0's threads are so busted we no longer support them.
if( $] >= 5.008001 && $Config{useithreads} && $INC{'threads.pm'} ) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die( "Unknown type: " . $type );
}
$_[0] = &threads::shared::share( $_[0] );
if( $type eq 'HASH' ) {
%{ $_[0] } = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off
# and earlier Perls just don't have that module at all.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share( {} );
for my $idx ( 0 .. $self->{Expected_Tests} - 1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
Acme-CorpusScrambler
view release on metacpan or search on metacpan
t/text/dream.txt view on Meta::CPAN
在Oracle Database 11gä¸ï¼ŒXML DB的性能ç²å¾—了æå‡ï¼ŒXML DB是Oracle Database的一個套件，å¯å¹«åŠ©å®¢æˆ¶ä»¥æœ¬æ©Ÿæ¨¡å¼å„²å˜å’Œæ“控XML資料。Oracle Database 11gå¢žåŠ äº†å°äºŒå…ƒ(binary) XML資料的支æŒï¼Œç¾åœ¨å®¢æˆ¶å¯ä»¥é¸æ“...
Oracle Database 11g進一æ¥å¢žå¼·äº†Oracle Database的安全性。這個新版資料庫增強了Oracleé€æ˜Žè³‡æ–™åŠ 密功能(Oracle Transparent Data Encryption)，將這種功能擴展到了欄ä½åŠ 密之外。Oracle Database 11g具有表空間åŠ...
Oracle Database 11gå¢žåŠ äº†æŸ¥è©¢çµæžœå¿«å–(Query Result Caches)ç‰æ–°åŠŸèƒ½ã€‚é€éŽå¿«å–å’Œé‡å¾©ä½¿ç”¨ç¶“常調用的資料庫查詢以åŠè³‡æ–™åº«å’Œæ‡‰ç”¨å±¤çš„功能，查詢çµæžœå¿«å–功能改善了應用的效能和å¯æ“´å……性。資料...
Oracle Database 11gæ供多種開發工具供開發人員é¸æ“‡ï¼Œå®ƒæ供的簡化應用開發æµç¨‹å¯ä»¥å……分利用Oracle Database 11gçš„é—œéµåŠŸèƒ½ï¼Œé€™äº›é—œéµåŠŸèƒ½åŒ…括︰客戶端快å–(Client Side Caching)ã€æå‡æ‡‰ç”¨é€Ÿåº¦çš„二å…...
Acme-DateTime-Duration-Numeric
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = '0.72';
$VERSION = eval $VERSION; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on.
# 5.8.0's threads are so busted we no longer support them.
if( $] >= 5.008001 && $Config{useithreads} && $INC{'threads.pm'}) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die("Unknown type: ".$type);
}
$_[0] = &threads::shared::share($_[0]);
if( $type eq 'HASH' ) {
%{$_[0]} = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off
# and earlier Perls just don't have that module at all.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share({});
for my $idx ( 0..$self->{Expected_Tests}-1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
Acme-DependOnEverything
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use HTTP::Server::Simple::Mason;
use HTTP::Server::Simple::PSGI;
use HTTP::Server::Simple::Recorder;
use HTTP::Server::Simple::Static;
use HTTP::Server::Simple::WebDAO;
use HTTP::Server::Singlethreaded;
use HTTP::Session;
use HTTP::Sessioniser;
use HTTP::Session::State::MobileAgentID;
use HTTP::Session::State::MobileAttributeID::ta;
use HTTP::Session::Store::DBI;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use PDL::NetCDF;
use PDL::Ngrams;
use PDL::Opt::NonLinear;
use PDL::Opt::QP;
use PDL::Parallel::MPI;
use PDL::Parallel::threads;
use PDL::RungeKutta::tgz;
use PDL::Stats;
use PDL::SVDLIBC;
use PDL::SVDSLEPc;
use PDL::Transform::Color;
Acme-EyeDrops
view release on metacpan or search on metacpan
lib/Acme/EyeDrops.pm view on Meta::CPAN
F<http://codegolf.com/>. Ton Hospel's excellent generic
golf tester can be got from
F<http://www.xs4all.nl/~thospel/golf/gentest.pl>.
The C<--$|> idiom (exploited in the I<A Somersaulting Camel>
section) is "explained" in this thread:
F<http://archive.develooper.com/fwp@perl.org/msg01360.html>.
L<Acme::Bleach>
L<Acme::Smirch>
L<Acme::Buffy>
Acme-Flat
view release on metacpan or search on metacpan
lib/Acme/Flat/PADOP.pm view on Meta::CPAN
version 0.001001
=head1 DESCRIPTION
This OP is only available in Perls compiled with ithreads.
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
Acme-Goto-Line
view release on metacpan or search on metacpan
* fix for all possible problems. It won't catch where dTHR is needed, and
* doesn't attempt to account for global macro or function definitions,
* nested includes, typemaps, etc.
*
* In order to test for the need of dTHR, please try your module under a
* recent version of Perl that has threading compiled-in.
*
*/
/*
#ifndef START_MY_CXT
/*
* 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
#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \
defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
/* 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. */
Acme-Hyde
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = '0.33';
$VERSION = eval $VERSION; # make the alpha version come out as a number
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on
if( $] >= 5.008 && $Config{useithreads} && $INC{'threads.pm'}) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die "Unknown type: ".$type;
}
$_[0] = &threads::shared::share($_[0]);
if( $type eq 'HASH' ) {
%{$_[0]} = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off.
# We emulate it here.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share({});
for my $idx ( 0..$self->{Expected_Tests}-1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
Acme-Intraweb
view release on metacpan or search on metacpan
# --- MakeMaker ppd section:
# Creates a PPD (Perl Package Description) for a binary distribution.
ppd:
@$(PERL) -e "print qq{<SOFTPKG NAME=\"Acme-Intraweb\" VERSION=\"undef,0,0,0\">\n}. qq{\t<TITLE>Acme-Intraweb</TITLE>\n}. qq{\t<ABSTRACT></ABSTRACT>\n}. qq{\t<AUTHOR>Jos Boumans (kane\@cpan.org)</AUTHOR>\n}. qq{\t<IMPLEMENTATION>\n}. qq{\t\t<DEPENDEN...
# --- MakeMaker pm_to_blib section:
pm_to_blib: $(TO_INST_PM)
@$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
Acme-JWT
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
# sorted with the same algorithm.
#
# Ensure that references are not accidentally treated the same as a
# string containing the reference.
#
# Have to inline the sort routine due to a threading/sort bug.
# See [rt.cpan.org 6782]
#
# I don't know how references would be sorted so we just don't sort
# them. This means eq_set doesn't really work with refs.
return eq_array(
Acme-KeyboardMarathon
view release on metacpan or search on metacpan
dead; wherefore John Thornton and Pete and Hans, with Buck and half a
dozen other dogs, faced into the East on an unknown trail to achieve
where men and dogs as good as themselves had failed. They sledded
seventy miles up the Yukon, swung to the left into the Stewart River,
passed the Mayo and the McQuestion, and held on until the Stewart itself
became a streamlet, threading the upstanding peaks which marked the
backbone of the continent.
John Thornton asked little of man or nature. He was unafraid of the
wild. With a handful of salt and a rifle he could plunge into the
wilderness and fare wherever he pleased and as long as he pleased. Being
Acme-Lvalue
view release on metacpan or search on metacpan
Revision history for Acme-Lvalue
0.03 2012-10-21
Skip failing tests under threaded perls.
0.02 2012-10-20
First version, released on an unsuspecting world.
Acme-MITHALDU-BleedingOpenGL
view release on metacpan or search on metacpan
BleedingOpenGL.pm view on Meta::CPAN
goto &$AUTOLOAD;
}
bootstrap Acme::MITHALDU::BleedingOpenGL;
*OpenGL::Array::CLONE_SKIP = sub { 1 }; # OpenGL::Array is not thread safe
*OpenGL::Matrix::CLONE_SKIP = sub { 1 }; # OpenGL::Matrix is not thread safe
# The following material is directly copied from Stan Melax's original OpenGL-0.4
# (with modifications for OS/2).
%window_defaults=(
Acme-MetaSyntactic-dune
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/dune.pm view on Meta::CPAN
# names places planets
acline al_dhifar andioya arbelough arrakis bela_tegeuse buzzell caladan ceres chapterhouse chusuk corrin corrin_quasi_nebula crompton culat dan dendros draconis_iv duvalle earth ecaz eluzai enfeil extaris galicia gallatin gamma_vertis_vii gammu gamon...
# names technology devices
baliset filmbook glowglobe gom_jabbar house_shield poison_snooper royal_cart scrambler_web servok shield
# names technology general
12_uri amal atomics awareness_spectrum_narcotic axlotl_tanks baradye_pistol bioholo biometal breeding_program carryall catchbasin choam computer cone_of_silence crushers cymek distrans duncan_idaho_gholas ego_likeness filmbook fire_thread flowmetal g...
# names technology holtzman_technology
alloy_resonance_generator glowpanel holtzman holtzman_effect holtzman_waves laser_pen point_source_nodes scrambler_grenade scrambler_web shield space_travel suspensor_nullification_effect suspensors
# names technology starship
ballista blockade_runner dream_voyager frigate heighliner javelin kindjal monitor norma_cevna spacefolder troop_carrier
# names technology thinking_machines
artificial_intelligence butlerian_jihad centrans chirox combat_mek construction_robots corridor_of_mirrors cymek erasmus flowmetal gelcircuitry gelsphere great_purge guidance_cube ibrahim_vaughn_holtzman independent_robot neurelectronics omnius omniu...
# names technology vehicles
airvan boatcar driftbarge flyer groundcar levtrain limocar ornithopter orship railtaxi spice_harvesters spotter
# names technology weapons
bodkin cellgun chandler_pistol crysknife electronic_scrambler emperors_blade farzee_rifle flame_gel gom_jabbar hunter_seeker inkvine kindjal lasgun maula_pistol nanoblade ponta_neuroknife pulse_atomics pulse_projectiles pulse_sword reversant scramble...
Acme-MetaSyntactic-id_names
view release on metacpan or search on metacpan
devdata/article.html view on Meta::CPAN
<div id="commentlist">
<!-- Comments -->
<ol id="thecomments">
<li id="comment-227413" class="comment even thread-even depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://1.gravatar.com/avatar/d2a04d1a780a0a9a7aa6c07bf6c50496?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
nama cewek </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-218620" class="comment odd alt thread-odd thread-alt depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://0.gravatar.com/avatar/facc9f4a1bcb0e41f30c40d4317ee881?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
viora </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-211742" class="comment even thread-even depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://0.gravatar.com/avatar/03ad7534cf2f28dbee8727a02754bc3e?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
dodo </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-192553" class="comment odd alt thread-odd thread-alt depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://1.gravatar.com/avatar/4937e7dd94d873276cd71991ccc93e6c?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
herlina pratiwi </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-186692" class="comment even thread-even depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://1.gravatar.com/avatar/1184667c334f1401a3742df0167e9226?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
Eka </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-186693" class="comment odd alt thread-odd thread-alt depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://2.gravatar.com/avatar/b726d367e8a92618a3661a020f6c9868?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
Eva </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-178818" class="comment even thread-even depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://1.gravatar.com/avatar/7ac2b13baf38757f80db6038c72d31c1?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
vinky despurnama yanti </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-145494" class="comment odd alt thread-odd thread-alt depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://1.gravatar.com/avatar/76cbc13c46f61dbb027252c47282f9f1?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
sonia </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-87997" class="comment even thread-even depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://1.gravatar.com/avatar/dc2869689da038f24648cb9e67c7eef0?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
Nurcahyo Hanafi </div><!-- .name -->
devdata/article.html view on Meta::CPAN
</div><!-- .comment -->
<div class="fixed"></div>
</div><!-- .info -->
<div class="fixed"></div>
</li><!-- #comment-## -->
<li id="comment-84323" class="comment odd alt thread-odd thread-alt depth-1 highlander-comment">
<div class="author">
<div class="pic">
<img alt='' src='https://0.gravatar.com/avatar/6a5f2458955211d05951fefdbb143265?s=32&d=retro&r=G' class='avatar avatar-32' height='32' width='32' /> </div><!-- .pic -->
<div class="name">
Fitri Wahyuni </div><!-- .name -->
( run in 0.855 second using v1.01-cache-2.11-cpan-87723dcf8b7 )