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
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/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 ();
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
src/ppport.h view on Meta::CPAN
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
src/ppport.h view on Meta::CPAN
sv_release_COW|||
sv_release_IVX|||
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_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_release_COW|||
sv_release_IVX|||
sv_replace|||
sv_report_used|||
sv_reset|||
sv_rvweaken||5.006000|
sv_setiv_mg|5.006000||p
sv_setiv|||
sv_setnv_mg|5.006000||p
sv_setnv|||
sv_setpv_mg|5.006000||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
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_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
lib/Geo/Region.pm view on Meta::CPAN
package Geo::Region;
use v5.8.1;
use utf8;
use Carp qw( carp );
use Scalar::Util qw( looks_like_number weaken );
use List::Util qw( all any );
use Moo;
our $VERSION = '0.07';
lib/Geo/Region.pm view on Meta::CPAN
my %children = map { $_ => 1 }
grep { !exists $excludes{$_} }
$build_children->(@{$self->_includes});
weaken $build_children;
return \%children;
},
);
has _parents => (
lib/Geo/Region.pm view on Meta::CPAN
my %parents = map { $_ => 1 }
grep { ++$count{$_} == @regions }
$build_parents->(@regions);
weaken $build_parents;
return \%parents;
},
);
has _countries => (
view release on metacpan or search on metacpan
lib/Geo/ShapeFile.pm view on Meta::CPAN
use Carp;
use IO::File;
use Geo::ShapeFile::Shape;
use Config;
use List::Util qw /min max/;
use Scalar::Util qw/weaken/;
use Tree::R;
use constant ON_WINDOWS => ($^O eq 'MSWin32');
use if ON_WINDOWS, 'Win32::LongPath';
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/Gerrit/Client.pm view on Meta::CPAN
use File::Spec::Functions;
use File::Temp;
use File::chdir;
use JSON;
use Params::Validate qw(:all);
use Scalar::Util qw(weaken);
use URI;
use URI::Escape;
use base 'Exporter';
our @EXPORT_OK = qw(
lib/Gerrit/Client.pm view on Meta::CPAN
if ( defined wantarray ) {
$out->{guard} = guard {
$cleanup->($stash);
};
$out_weak = $out;
weaken($out_weak);
}
else {
$out_weak = $out;
}
return $out;
lib/Gerrit/Client.pm view on Meta::CPAN
require "Gerrit/Client/ForEach.pm";
my $self = bless {}, 'Gerrit::Client::ForEach';
$self->{args} = \%args;
my $weakself = $self;
weaken($weakself);
# stream_events takes care of incoming changes, perform a query to find
# existing changes
my $do_query = sub {
return unless $args{query};
view release on metacpan or search on metacpan
lib/Getopt/LL/DLList/Node.pm view on Meta::CPAN
# $Date: 2007/07/13 00:00:15 $
package Getopt::LL::DLList::Node;
use strict;
use warnings;
use Carp;
use Scalar::Util qw( weaken );
use version; our $VERSION = qv('1.0.0');
use 5.006_001;
{
use vars qw($ALLOCATED_TOTAL);
lib/Getopt/LL/DLList/Node.pm view on Meta::CPAN
sub free {
my ($self) = @_;
my $next = $self->next;
my $prev = $self->prev;
weaken $next;
weaken $prev;
undef $self->{next};
undef $self->{prev};
undef $self->{data};
# Class::Dot 1.0 weirdness.
view release on metacpan or search on metacpan
lib/Getopt/Long/Descriptive/Opts.pm view on Meta::CPAN
use strict;
use warnings;
package Getopt::Long::Descriptive::Opts 0.117;
# ABSTRACT: object representing command line switches
use Scalar::Util qw(blessed weaken);
#pod =head1 DESCRIPTION
#pod
#pod This class is the base class of all C<$opt> objects returned by
#pod L<Getopt::Long::Descriptive>. In general, you do not want to think about this
lib/Getopt/Long/Descriptive/Opts.pm view on Meta::CPAN
@opts{ @keys } = @$self{ @keys };
$meta->{specified_opts} = \%opts;
bless $meta->{specified_opts} => $class;
weaken $meta->{specified_opts};
$meta->{specified_opts};
}
#pod =head2 _complete_opts
lib/Getopt/Long/Descriptive/Opts.pm view on Meta::CPAN
delete $copy->{$_} for grep { ! defined $copy->{$_} } keys %$copy;
my $self = bless $copy => $new_class;
$_CREATED_OPTS{ $new_class }{meta}{complete_opts} = $self;
# weaken $_CREATED_OPTS{ $new_class }{meta}{complete_opts};
return $self;
}
1;
view release on metacpan or search on metacpan
lib/Gimp/gppport.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
0.46_01 Sat 16 Jan 13:42:00 GMT 2010
- Add support for ssh:// and file:// protocols (Alex Vandiver)
0.46 Tue 12 Jan 01:09:00 GMT 2010
- Add config file handling via Config::GitLike
- Fix a couple of memory leaks due to unweakened circular references.
- Handle commit object character encoding correctly
0.45 Mon 21st Dec 12:36:29 GMT 2009
- Be Win32 compatible (RT#52677), patch contributed by kmx.
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
xs/ppport.h view on Meta::CPAN
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