view release on metacpan or search on metacpan
isweak
readonly
refaddr
reftype
tainted
weaken
isvstring
looks_like_number
set_prototype
)],
'Class::Load' => [qw(
view release on metacpan or search on metacpan
sv_ref||5.015004|
sv_replace|||
sv_report_used|||
sv_resetpvn|||
sv_reset|||
sv_rvweaken||5.006000|
sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
view release on metacpan or search on metacpan
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_resetpvn|||
sv_reset|||
sv_rvweaken||5.006000|
sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
view release on metacpan or search on metacpan
sv_reftype|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.004050||p
view release on metacpan or search on metacpan
lib/GTop.pm view on Meta::CPAN
return $self unless THREADED;
# make a weak copy, to allow CLONE to affect objects in the user space
# key = object's stringified IV (pointer to the C struct)
$objects{"$$self"} = $self;
Scalar::Util::weaken($objects{"$$self"});
return $self;
}
if (THREADED) {
view release on metacpan or search on metacpan
lib/Game/Collisions/AABB.pm view on Meta::CPAN
sub _set_node
{
my ($self, $node, $index) = @_;
Scalar::Util::unweaken( $self->[$index] )
if defined $self->[$index];
$self->[$index] = $node;
Scalar::Util::weaken( $self->[$index] );
my $former_parent = defined $node
? $node->set_parent( $self )
: undef;
return $former_parent;
}
view release on metacpan or search on metacpan
share/hex-describe-schroeder-table.txt view on Meta::CPAN
1,HDÂ 6+1 ACÂ 4 1d6/1d6/1d10 F6 MVÂ 12 MLÂ 10 XPÂ 600
;slime special ability
1,dissolves metal: chain and plate armor is destroyed when hit
1,rots wood: clubs, axes, spears, polearms, shields on a hit
1,weakens stone: 1 in 6 chance for ceiling or floor collapse causing 2d6 damage
1,eats spells: add 1d6Â hp per spell level absorbed
1,destroys fabrics: cloaks, gloves, girdle, shirt, pants are lost on a hit
1,shatters glass: potions, oil flasks and lanterns within 20ft are destroyed
1,makes eyes water: anybody within 10ft suffers -4 to hit
share/hex-describe-schroeder-table.txt view on Meta::CPAN
;the presence of refugees is a problem
# no captain!
1,As the wounded start dying, the stench is spreading. Flies are everywhere. Soon, cholera and typhus will be showing up. The locals want the refugees gone, but who is going to argue with armed men? Better to stab them during the night, some might sa...
1,The locals are no longer willing to support the refugees, calling them maggots and worms and worse. Nobody is willing to kill, however, and so the situation just lingers, the refugees too weak to kill the locals and simply take what they need and t...
1,The young **[human class]** *[human with portrait]* is a devout servant of *[good power]*. They are trying to find a solution to the problem. Surely some land could be cleared for these poor souls? Let them settle.
1,The young **[human class]** *[human with portrait]* is a devout servant of *[evil power]*. They have shrewdly insinuated that the locals are simply waiting for them to weaken even further until one night they’ll all just stab them. So why not tak...
;the presence of corpses is a problem
# no captain!
1,The many corpses have attracted the **necromancer** [human with portrait][here store [same human name] as alchemist patron] (level [1d3+4 as level]). This does not sit well with the locals. Somebody should get rid of them! [spellbook for necromance...
1,The many corpses are poisoning the air. The stink is horrendous. Flies are everywhere. The water is foul. *Ghoul fever* is spreading: *[human name]* and their family have turned into [1d4+2] **ghouls** roaming the graveyard at night, looking for so...
share/hex-describe-schroeder-table.txt view on Meta::CPAN
;spellbooks
1,<h1 id="appendix-a">Appendix A: Spellbooks</h1><p>These spells are from the <a href="https://alexschroeder.ch/pdfs/spellcasters/">Spellcasters</a> project.<div style="font-size: smaller; column-count: 2">[halberds & helmets: spellbooks]</div>
# Use make hex-describe in the spellcasters working directory to generate the following
;halberds & helmets: spellbooks
1,Each paragraph begins with the **spell name** followed by the spell circle in parenthesis (1–5), also known as the *spell level*.<p id="air-blast">**Air blast** (1) turns the exhalation of the caster into a blast of air that extinguishes candles ...
view release on metacpan or search on metacpan
SvROK|5.003007|5.003007|
SvROK_off|5.003007|5.003007|
SvROK_on|5.003007|5.003007|
SvRV|5.003007|5.003007|
SvRV_set|5.009003|5.003007|p
sv_rvunweaken|5.027004|5.027004|
sv_rvweaken|5.006000|5.006000|
SvRX|5.009005|5.003007|p
SvRXOK|5.009005|5.003007|p
sv_sethek|5.015004||cViu
sv_setiv|5.003007|5.003007|
sv_setiv_mg|5.004005|5.003007|p
view release on metacpan or search on metacpan
lib/Game/TextMapper/Mapper.pm view on Meta::CPAN
use Mojo::Base -base;
use File::Slurper qw(read_text);
use Encode qw(encode_utf8 decode_utf8);
use Mojo::Util qw(url_escape);
use File::ShareDir 'dist_dir';
use Scalar::Util 'weaken';
=head1 ATTRIBUTES
=head2 dist_dir
lib/Game/TextMapper/Mapper.pm view on Meta::CPAN
my $self = shift;
my $line_id = 0;
foreach (@_) {
if (/^(-?\d\d)(-?\d\d)(\d\d)?\s+(.*)/ or /^(-?\d\d+)\.(-?\d\d+)(?:\.(\d\d+))?\s+(.*)/) {
my $region = $self->make_region(x => $1, y => $2, z => $3||'00', map => $self);
weaken($region->{map});
my $rest = $4;
while (my ($tag, $label, $size) = $rest =~ /\b([a-z]+)=["“]([^"â€]+)["â€]\s*(\d+)?/) {
if ($tag eq 'name') {
$region->label($label);
$region->size($size) if $size;
lib/Game/TextMapper/Mapper.pm view on Meta::CPAN
push(@{$self->regions}, $region);
push(@{$self->things}, $region);
} elsif (/^(-?\d\d-?\d\d(?:\d\d)?(?:--?\d\d-?\d\d(?:\d\d)?)+)\s+(\S+)\s*(?:["“](.+)["â€])?\s*(left|right)?\s*(\d+%)?/
or /^(-?\d\d+\.-?\d\d+(?:\.\d\d+)?(?:--?\d\d+\.-?\d\d+(?:\.\d\d+)?)+)\s+(\S+)\s*(?:["“](.+)["â€])?\s*(left|right)?\s*(\d+%)?/) {
my $line = $self->make_line(map => $self);
weaken($line->{map});
my $str = $1;
$line->type($2);
$line->label($3);
$line->side($4);
$line->start($5);
view release on metacpan or search on metacpan
inc/Test/MockObject.pm view on Meta::CPAN
}
use strict;
use warnings;
use Scalar::Util qw( blessed refaddr reftype weaken );
sub import
{
my $self = shift;
return unless grep /^-debug/, @_;
inc/Test/MockObject.pm view on Meta::CPAN
sub log_call
{
my ($self, $sub, @call_args) = @_;
return unless _logs( $self, $sub );
# prevent circular references with weaken
for my $arg ( @call_args )
{
next unless ref $arg;
weaken( $arg ) if refaddr( $arg ) eq refaddr( $self );
}
push @{ _calls( $self ) }, [ $sub, \@call_args ];
}
view release on metacpan or search on metacpan
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
rewaxed
rewaxes
rewaxing
rewaybill
rewayle
reweaken
rewear
rewearing
reweave
reweaved
reweaves
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
unwaving
unwax
unwaxed
unwayed
unwayward
unweaken
unweakened
unweakening
unweal
unwealsomeness
unwealthy
unweaned
unweapon
lib/Game/WordBrain/WordList.pm view on Meta::CPAN
we'll
we're
we've
weak
weakbrained
weaken
weakened
weakener
weakeners
weakening
weakens
weaker
weakest
weakfish
weakfishes
weakhanded
view release on metacpan or search on metacpan
1.04 2022-07-26 15:20 UTC
* use a Real Boolean(TM) to fix bleadperl test failure [RT#143857]
1.03 2021-07-06 09:38 UTC
* better documentation, more tests
* remove weaken, pretty sure don't need it
* simplify reify as only needs operate on MINERAL
* some XS cleanups
1.02 2020-03-19 16:15 UTC
* only check for passive effects on MINERAL not also VEGGIE.
view release on metacpan or search on metacpan
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_resetpvn|||
sv_reset|||
sv_rvweaken||5.006000|
sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
view release on metacpan or search on metacpan
lib/Games/Construder/Server/Objects.pm view on Meta::CPAN
use Games::Construder::Server::PCB;
use Games::Construder::Server::World;
use Games::Construder::Vector;
use Games::Construder::Logging;
use Games::Construder;
use Scalar::Util qw/weaken/;
=head1 NAME
Games::Construder::Server::Objects - Implementation of Object Type specific behaviour
view release on metacpan or search on metacpan
t/patterns.txt view on Meta::CPAN
1|2|3|4|2|4|7|8|4|10|11|12:unmanageably|
1|2|3|4|2|4|7|8|4|10|11|6:unmanageable|
1|2|3|4|2|4|7|8|9:dequeuing|stratagem|
1|2|3|4|2|4|7|8|9|1:stratagems|
1|2|3|4|2|4|7|8|9|10:Antonovics|unfinished|
1|2|3|4|2|6:Antony|Arturo|Balkan|Balzac|Becker|Bender|Bergen|Bernet|Betsey|Birgit|Bobrow|Bolton|Boston|Caesar|Decker|Denver|Dodson|Fabian|Farkas|Felder|Folsom|Galway|Geiger|Gordon|Gorton|Harlan|Healey|Hebrew|Heiser|Henley|Hermes|Hersey|Hester|Heusen|...
1|2|3|4|2|6|1:descend|enhance|gilding|sandals|secrets|senders|sequels|sixties|subdues|tempest|topmost|
1|2|3|4|2|6|1|1:snugness|
1|2|3|4|2|6|1|2:stoutest|
1|2|3|4|2|6|1|2|1:descended|
1|2|3|4|2|6|1|2|5|10:descendent|
t/patterns.txt view on Meta::CPAN
1|2|3|4|2|6|2|3|9|10|11:persevering|
1|2|3|4|2|6|2|3|9|10|11|2:perseverance|
1|2|3|4|2|6|2|4|4:ceaseless|
1|2|3|4|2|6|2|4|4|10|2|4|4:ceaselessness|
1|2|3|4|2|6|2|4|4|5|11:ceaselessly|
1|2|3|4|2|6|2|8:Barnabas|Berkeley|Hathaway|Mercedes|Virginia|believed|believer|believes|besieged|besieger|centered|depletes|leavened|maniacal|reflexes|refueled|relieved|relieves|reopened|reviewed|secreted|tempered|weakened|
1|2|3|4|2|6|2|8|1:dignified|signifies|
1|2|3|4|2|6|2|8|2|10|11:victimizing|
1|2|3|4|2|6|2|8|2|10|7:repleteness|
1|2|3|4|2|6|2|8|3:besiegers|
1|2|3|4|2|6|2|8|4:misgiving|poisonous|
t/patterns.txt view on Meta::CPAN
1|2|3|4|2|6|5|8|9:backarrow|boycotted|canvassed|canvasser|distiller|forgotten|
1|2|3|4|2|6|5|8|9|10:depressing|depression|distillery|
1|2|3|4|2|6|5|8|9|10|5:depressions|
1|2|3|4|2|6|5|8|9|3:distillers|
1|2|3|4|2|6|5|8|9|5:canvassers|
1|2|3|4|2|6|7:Atwater|Balkans|Bowdoin|Boxford|Calgary|Calvary|Candace|Cepheus|Chekhov|Dogtown|Flagler|Formosa|Hayward|Hebrews|Holcomb|Holyoke|January|Kipling|Laplace|Malraux|Mayfair|Maynard|Monfort|Moscone|Norfolk|Oakland|Packard|Perseid|Peugeot|Raph...
1|2|3|4|2|6|7|1:disliked|doctored|entangle|radiator|salvages|scorches|segments|serpents|siblings|startles|startups|
1|2|3|4|2|6|7|1|1:fisticuff|stoutness|
1|2|3|4|2|6|7|1|2:temperate|
1|2|3|4|2|6|7|1|2|10|11:temperately|
1|2|3|4|2|6|7|1|2|10|2|12|8:temperateness|
t/patterns.txt view on Meta::CPAN
1|2|3|4|2|6|7|5|1|1:scarceness|
1|2|3|4|2|6|7|5|1|10|2:indentation|
1|2|3|4|2|6|7|5|1|10|2|12:indentations|
1|2|3|4|2|6|7|5|6|10:captaining|
1|2|3|4|2|6|7|5|6|4:bargaining|
1|2|3|4|2|6|7|5|9:arthropod|component|ingenuous|leavening|reopening|weakening|whichever|
1|2|3|4|2|6|7|5|9|1:stratifies|
1|2|3|4|2|6|7|5|9|10:arthropods|components|perceiving|stratified|
1|2|3|4|2|6|7|5|9|10|11:componentry|
1|2|3|4|2|6|7|5|9|10|11|12|6:componentwise|
1|2|3|4|2|6|7|5|9|4|2|5|13|14:stratification|
view release on metacpan or search on metacpan
sv_reftype|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.004050||p
view release on metacpan or search on metacpan
sv_reftype|||
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.004050||p
view release on metacpan or search on metacpan
lib/Games/Euchre/Player.pm view on Meta::CPAN
sub setTeam {
my $self = shift;
my $team = shift;
$self->{team} = $team;
weaken($self->{team}); # break anti-GC loop
return $self;
}
=item getTeam
view release on metacpan or search on metacpan
lib/Games/Go/AGA/DataObjects/Game.pm view on Meta::CPAN
package Games::Go::AGA::DataObjects::Game;
use Moo;
use namespace::clean;
use Carp;
use Scalar::Util qw(refaddr weaken);
use Try::Tiny;
use Games::Go::AGA::Parse::Util qw( Rank_to_Rating );
use Games::Go::AGA::DataObjects::Types qw( isa_Int isa_CodeRef isa_Handicap isa_Komi );
our $VERSION = '0.152'; # VERSION
sub isa_Player { die("$_[0] is not a Games::Go::AGA::DataObjects::Player\n") if (ref $_[0] ne 'Games::Go::AGA::DataObjects::Player') }
has black => (
is => 'rw',
isa => \&isa_Player,
weak_ref => 1, # Players have Games, Games have Players, so weaken
trigger => sub
{
my $self = shift;
$self->_set_player('black', @_);
},
view release on metacpan or search on metacpan
lib/Games/Lacuna/Client/RPC.pm view on Meta::CPAN
}
use 5.0080000;
use strict;
use warnings;
use Carp 'croak';
use Scalar::Util 'weaken';
use Time::HiRes qw( sleep );
use Games::Lacuna::Client;
use IO::Interactive qw( is_interactive );
view release on metacpan or search on metacpan
lib/Games/NES/Emulator/CPU.pm view on Meta::CPAN
=cut
sub init {
my $self = shift;
my $emu = shift;
Scalar::Util::weaken( $emu );
$self->SUPER::init( @_ );
$self->context( $emu );
$self->interrupt_line( 0 );
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
" return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
" unless \$#_ > 0 or defined \$_[0]->{%s};\n",
weak_init =>
" return do {\n" .
" \$_[0]->{%s} = do { my \$self = \$_[0]; %s };\n" .
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n" .
" \$_[0]->{%s};\n" .
" } unless \$#_ > 0 or defined \$_[0]->{%s};\n",
return_if_get =>
" return \$_[0]->{%s} unless \$#_ > 0;\n",
set =>
" \$_[0]->{%s} = \$_[1];\n",
weaken =>
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n",
sub_end =>
" return \$_[0]->{%s};\n}\n",
);
sub field {
inc/Spiffy.pm view on Meta::CPAN
local *paired_arguments = sub { (qw(-package -init)) };
Spiffy->parse_arguments(@_);
};
my ($field, $default) = @values;
$package = $args->{-package} if defined $args->{-package};
die "Cannot have a default for a weakened field ($field)"
if defined $default && $args->{-weak};
return if defined &{"${package}::$field"};
require Scalar::Util if $args->{-weak};
my $default_string =
( ref($default) eq 'ARRAY' and not @$default )
inc/Spiffy.pm view on Meta::CPAN
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
$code .= sprintf $code{weaken}, $field, $field
if $args->{-weak};
$code .= sprintf $code{sub_end}, $field;
my $sub = eval $code;
die $@ if $@;
view release on metacpan or search on metacpan
lib/Games/Roshambo/Thrownames.pm view on Meta::CPAN
'96' => 'makes wind',
'6' => 'tarnishes',
'85' => 'cools',
'3' => 'escapes',
'94' => 'conducts',
'97' => 'weakens',
'9' => 'tarnishes',
'12' => 'buffets',
'15' => 'spreads',
'8' => 'echoes',
'81' => 'chills',
view release on metacpan or search on metacpan
lib/Games/Word/Wordlist/Enable.pm view on Meta::CPAN
waxer waxers waxes waxier waxiest waxily waxiness waxinesses waxing waxings
waxlike waxplant waxplants waxweed waxweeds waxwing waxwings waxwork waxworks
waxworm waxworms waxy way waybill waybills wayfarer wayfarers wayfaring
waygoing waygoings waylaid waylay waylayer waylayers waylaying waylays wayless
ways wayside waysides wayward waywardly waywardness waywardnesses wayworn
wazoo wazoos we weak weaken weakened weakener weakeners weakening weakens
weaker weakest weakfish weakfishes weakhearted weakish weaklier weakliest
weakliness weaklinesses weakling weaklings weakly weakness weaknesses weakside
weaksides weal weald wealds weals wealth wealthier wealthiest wealthily
wealthiness wealthinesses wealths wealthy wean weaned weaner weaners weaning
weanling weanlings weans weapon weaponed weaponing weaponless weaponries
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
" return \$_[0]->{%s} = do { my \$self = \$_[0]; %s }\n" .
" unless \$#_ > 0 or defined \$_[0]->{%s};\n",
weak_init =>
" return do {\n" .
" \$_[0]->{%s} = do { my \$self = \$_[0]; %s };\n" .
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n" .
" \$_[0]->{%s};\n" .
" } unless \$#_ > 0 or defined \$_[0]->{%s};\n",
return_if_get =>
" return \$_[0]->{%s} unless \$#_ > 0;\n",
set =>
" \$_[0]->{%s} = \$_[1];\n",
weaken =>
" Scalar::Util::weaken(\$_[0]->{%s}) if ref \$_[0]->{%s};\n",
sub_end =>
" return \$_[0]->{%s};\n}\n",
);
sub field {
inc/Spiffy.pm view on Meta::CPAN
local *paired_arguments = sub { (qw(-package -init)) };
Spiffy->parse_arguments(@_);
};
my ($field, $default) = @values;
$package = $args->{-package} if defined $args->{-package};
die "Cannot have a default for a weakened field ($field)"
if defined $default && $args->{-weak};
return if defined &{"${package}::$field"};
require Scalar::Util if $args->{-weak};
my $default_string =
( ref($default) eq 'ARRAY' and not @$default )
inc/Spiffy.pm view on Meta::CPAN
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
$code .= sprintf $code{weaken}, $field, $field
if $args->{-weak};
$code .= sprintf $code{sub_end}, $field;
my $sub = eval $code;
die $@ if $@;
view release on metacpan or search on metacpan
lib/Plack/Handler/ppport.h view on Meta::CPAN
sv_release_COW|||
sv_replace|||
sv_report_used|||
sv_resetpvn|||
sv_reset|||
sv_rvweaken||5.006000|
sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
view release on metacpan or search on metacpan
lib/Gearman/Client/Async/Connection.pm view on Meta::CPAN
use constant S_READY => \ "ready";
use Carp qw(croak);
use Gearman::Task;
use Gearman::Util;
use Scalar::Util qw(weaken);
use IO::Handle;
use Socket qw(PF_INET IPPROTO_TCP TCP_NODELAY SOL_SOCKET SOCK_STREAM);
sub DEBUGGING () { 0 }
lib/Gearman/Client/Async/Connection.pm view on Meta::CPAN
warn "writing task $task to $self->{hostspec}\n" if DEBUGGING;
$self->write( $task->pack_submit_packet );
push @{$self->{need_handle}}, $task;
Scalar::Util::weaken($self->{need_handle}->[-1]);
}
sub stuff_outstanding {
my Gearman::Client::Async::Connection $self = shift;
return
lib/Gearman/Client/Async/Connection.pm view on Meta::CPAN
package Gearman::ResponseParser::Async;
use strict;
use warnings;
use Scalar::Util qw(weaken);
use Gearman::ResponseParser;
use base 'Gearman::ResponseParser';
sub new {
my $class = shift;
my $self = $class->SUPER::new;
$self->{_conn} = shift;
weaken($self->{_conn});
return $self;
}
sub on_packet {
view release on metacpan or search on metacpan
lib/Gearman/Server/Job.pm view on Meta::CPAN
sub add_listener {
my Gearman::Server::Job $self = shift;
my Gearman::Server::Client $li = shift;
push @{$self->{listeners}}, $li;
Scalar::Util::weaken($self->{listeners}->[-1]);
}
sub relay_to_listeners {
my Gearman::Server::Job $self = shift;
foreach my Gearman::Server::Client $c (@{$self->{listeners}}) {
view release on metacpan or search on metacpan
lib/Gearman/Slot.pm view on Meta::CPAN
Log::Log4perl->easy_init($ERROR);
use Any::Moose;
use AnyEvent;
use Gearman::SlotWorker;
use Scalar::Util qw(weaken);
use Data::Dumper;
has libs=>(is=>'rw',isa=>'ArrayRef',default=>sub{[]});
has job_servers=>(is=>'rw',isa=>'ArrayRef',required=>1);
has workleft=>(is=>'rw');
lib/Gearman/Slot.pm view on Meta::CPAN
$self->worker_pid(undef);
$self->worker_watcher(undef);
}
});
$self->is_stopped(0);
weaken($self);
}
else{
my $class = $self->worker_package;
my $worker_channel = $self->worker_channel;
my $libs = join(' ',map{"-I$_"}@{$self->libs});;
view release on metacpan or search on metacpan
lib/Gearman/Taskset.pm view on Meta::CPAN
use Carp ();
use Gearman::Util ();
use Gearman::ResponseParser::Taskset;
use IO::Select;
# i thought about weakening taskset's client, but might be too weak.
use Scalar::Util ();
use Socket ();
use Storable ();
use Time::HiRes ();