view release on metacpan or search on metacpan
lib/DateTime/Format/Builder/Parser.pm view on Meta::CPAN
use Carp qw( croak );
use Params::Validate qw(
validate SCALAR CODEREF UNDEF ARRAYREF
);
use Scalar::Util qw( weaken );
sub on_fail {
my ( $self, $input ) = @_;
my $maker = $self->maker;
if ( $maker and $maker->can('on_fail') ) {
lib/DateTime/Format/Builder/Parser.pm view on Meta::CPAN
sub set_maker {
my $self = shift;
my $maker = shift;
$self->{maker} = $maker;
weaken $self->{maker}
if ref $self->{maker};
return $self;
}
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
SvROK_off|5.003007|5.003007|
SvROK_on|5.003007|5.003007|
SvRV|5.003007|5.003007|
SvRV_const|5.010001||Viu
SvRV_set|5.009003|5.003007|p
sv_rvunweaken|5.027004|5.027004|
sv_rvweaken|5.006000|5.006000|
SvRVx|5.003007||Viu
SvRX|5.009005|5.003007|p
SvRXOK|5.009005|5.003007|p
SV_SAVED_COPY|5.009005||Viu
SvSCREAM|5.003007||Viu
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
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/Defaults/Modern.pm view on Meta::CPAN
Carp->import::into($pkg,
qw/carp croak confess/,
);
Scalar::Util->import::into($pkg,
qw/blessed reftype weaken/,
);
# Pragmas
strictures->import::into($pkg, version => 2);
bareword::filehandles->unimport;
lib/Defaults/Modern.pm view on Meta::CPAN
B<carp>, B<croak>, and B<confess> error reporting tools from L<Carp>
=item *
B<blessed>, B<reftype>, and B<weaken> utilities from L<Scalar::Util>
=item *
All of the L<List::Objects::WithUtils> object constructors (B<array>,
B<array_of>, B<immarray>, B<immarray_of>, B<hash>, B<hash_of>, B<immhash>,
view release on metacpan or search on metacpan
sub update_widgets {
my ($self) = @_;
# necessary to avoid cyclic references
DC::weaken $self;
my $button_cb = sub {
my (undef, $ev, $x, $y) = @_;
my $targ = $::CONN->{player}{tag};
view release on metacpan or search on metacpan
Deliantra/Data.pm view on Meta::CPAN
}
]
]
]
],
use => 'Monsters play a central role in most maps. Choosing the right combination of monsters for your map is vital: <UL> <LI> Place only monsters of slightly varying (increasing) strength. It\'s no fun to play for two hours just to find out the ...
},
'Monster (Grimreaper)' => {
desc => 'A grimreaper is a monster that vanishes after it did some number of draining attacks.',
ignore => [
'material',
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_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_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
t/examples/traces/1.txt view on Meta::CPAN
Memcached::libmemcached::MEMCACHED_BEHAVIOR_RETRY_TIMEOUT
Memcached::libmemcached::memcached_behavior_set
Memcached::libmemcached::MEMCACHED_BEHAVIOR_CONNECT_TIMEOUT
Memcached::libmemcached::memcached_behavior_set
MyLibmemcachedWrapper::_mk_callbacks (/media/sf_FictionHub/XPortal/Memcached.pm:300-346)
Scalar::Util::weaken
Memcached::libmemcached::set_callback_coderefs
Data::MessagePack::new (/opt/perl5.26.1/lib/site_perl/5.26.1/x86_64-linux-5.26.0-thread-multi-ld/Data/MessagePack.pm:34-37)
CODE(0x4a817b8)
Cache::Memcached::libmemcached::add ((eval 27)[/opt/perl5.26.1/lib/site_perl/5.26.1/Cache/Memcached/libmemcached.pm:62]:1-12)
Memcached::libmemcached::memcached_add
t/examples/traces/1.txt view on Meta::CPAN
Memcached::libmemcached::MEMCACHED_BEHAVIOR_NO_BLOCK
Memcached::libmemcached::memcached_behavior_set
Memcached::libmemcached::MEMCACHED_BEHAVIOR_NOREPLY
Memcached::libmemcached::memcached_behavior_set
MyLibmemcachedWrapper::_mk_callbacks (/media/sf_FictionHub/XPortal/Memcached.pm:300-346)
Scalar::Util::weaken
Memcached::libmemcached::set_callback_coderefs
Data::MessagePack::new (/opt/perl5.26.1/lib/site_perl/5.26.1/x86_64-linux-5.26.0-thread-multi-ld/Data/MessagePack.pm:34-37)
CODE(0x4a817b8)
Cache::Memcached::libmemcached::get ((eval 25)[/opt/perl5.26.1/lib/site_perl/5.26.1/Cache/Memcached/libmemcached.pm:62]:1-12)
Memcached::libmemcached::memcached_get
t/examples/traces/1.txt view on Meta::CPAN
CGI::multi_param (/opt/perl5.26.1/lib/site_perl/5.26.1/CGI.pm:394-399)
CGI::param (/opt/perl5.26.1/lib/site_perl/5.26.1/CGI.pm:401-451)
CGI::self_or_default (/opt/perl5.26.1/lib/site_perl/5.26.1/CGI.pm:464-473)
UNIVERSAL::isa
CGI::all_parameters (/opt/perl5.26.1/lib/site_perl/5.26.1/CGI.pm:826-831)
Scalar::Util::weaken
XPortal::Tracker::TrackInit (/media/sf_FictionHub/XPortal/Tracker.pm:103-121)
Time::HiRes::time
XPortal::getFullUrl (/media/sf_FictionHub/XPortal.pm:1966-1966)
XPortal::General::FullURL (/media/sf_FictionHub/XPortal/General.pm:549-560)
XPortal::AUTOLOAD (/media/sf_FictionHub/XPortal.pm:172-193)
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
t/examples/traces/1.txt view on Meta::CPAN
DBI::common::FETCH
DBI::common::STORE
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
Scalar::Util::weaken
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
DBI::common::FETCH
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/Devel/Chitin/Location.pm view on Meta::CPAN
use warnings;
our $VERSION = '0.22';
use Carp;
use Scalar::Util qw(weaken reftype);
sub new {
my $class = shift;
my %props = @_;
view release on metacpan or search on metacpan
lib/Devel/Confess.pm view on Meta::CPAN
use Carp ();
use Symbol ();
use Devel::Confess::_Util qw(
blessed
refaddr
weaken
longmess
_str_val
_in_END
_can_stringify
_can
lib/Devel/Confess.pm view on Meta::CPAN
%EXCEPTIONS = map {; $id_map{$_} => $EXCEPTIONS{$_}} keys %id_map;
%PACKAGES = map {; $id_map{$_} => $PACKAGES{$_}} keys %id_map;
%MESSAGES = map {; $id_map{$_} => $MESSAGES{$_}} keys %id_map;
%CLONED = map {; $_ => 1 } values %id_map
if _BROKEN_CLONED_DESTROY_REBLESS || _BROKEN_CLONED_GLOB_UNDEF;
weaken($_)
for values %EXCEPTIONS;
}
sub _update_ex_refs {
for my $id ( keys %EXCEPTIONS ) {
lib/Devel/Confess.pm view on Meta::CPAN
return @_;
}
$message ||= _stack_trace();
weaken($EXCEPTIONS{$id} = $ex);
$PACKAGES{$id} = $class;
$MESSAGES{$id} = $message;
my $newclass = __PACKAGE__ . '::__ANON_' . $PACK_SUFFIX++ . '__';
lib/Devel/Confess.pm view on Meta::CPAN
elsif (ref($ex = $_[0])) {
my $id = refaddr($ex);
my $message = _stack_trace;
weaken($EXCEPTIONS{$id} = $ex);
$PACKAGES{$id} = undef;
$MESSAGES{$id} ||= $message;
return $ex;
}
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
sub connect ($command) {
say STDERR "connect" if $Debug;
my $url = $command->app->config->{uploads_socket};
Scalar::Util::weaken $command;
$command->ua->websocket($url => sub ($, $tx) {
unless ($tx->is_websocket) {
$command->app->log->warn("Not a websocket");
Mojo::IOLoop->timer(1 => sub { $command->connect });
return;
view release on metacpan or search on metacpan
lib/Devel/Cycle.pm view on Meta::CPAN
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(find_cycle find_weakened_cycle);
our @EXPORT_OK = qw($FORMATTING);
our $VERSION = '1.12';
our $FORMATTING = 'roasted';
our $QUIET = 0;
lib/Devel/Cycle.pm view on Meta::CPAN
$FORMATTING = 'raw' if exists $args{-raw};
$FORMATTING = 'cooked' if exists $args{-cooked};
$self->export_to_level(1,$self,grep {!exists $import_args{$_}} @_);
}
sub find_weakened_cycle {
my $ref = shift;
my $callback = shift;
unless ($callback) {
my $counter = 0;
$callback = sub {
lib/Devel/Cycle.pm view on Meta::CPAN
Cycle (4):
$A->{'fred'} => \@A
$A->[3] => \%B
$B->{'mary'} => \@A
# you can also check weakened references
weaken($test->{george}->{phyllis});
find_weakened_cycle($test);
exit 0;
# output:
Cycle (1):
lib/Devel/Cycle.pm view on Meta::CPAN
reference-count based memory management, circular references will
cause memory leaks.
=head2 EXPORT
The find_cycle() and find_weakened_cycle() subroutine are exported by default.
=over 4
=item find_cycle($object_reference,[$callback])
lib/Devel/Cycle.pm view on Meta::CPAN
The first element of the array reference is the $object_reference that
you pased to find_cycle() and may not be directly involved in the
cycle.
If a reference is a weak ref produced using Scalar::Util's weaken()
function then it won't contribute to cycles.
=item find_weakened_cycle($object_reference,[$callback])
The find_weakened_cycle() function will traverse the object reference and print
a report to STDOUT identifying any memory cycles it finds, I<including> any weakened
cycles produced using Scalar::Util's weaken().
If an optional callback code reference is provided, then this callback
will be invoked on each cycle that is found. The callback will be
passed an array reference pointing to a list of lists with the
following format:
$arg = [ ['REFTYPE',$index,$reference,$reference_value,$is_weakened],
['REFTYPE',$index,$reference,$reference_value,$is_weakened],
['REFTYPE',$index,$reference,$reference_value,$is_weakened],
...
]
Each element in the array reference describes one edge in the memory
cycle. 'REFTYPE' describes the type of the reference and is one of
'SCALAR','ARRAY' or 'HASH'. $index is the index affected by the
reference, and is undef for a scalar, an integer for an array
reference, or a hash key for a hash. $reference is the memory
reference, and $reference_value is its dereferenced value. $is_weakened
is a boolean specifying if the reference is weakened or not. For
example, if the edge is an ARRAY, then the following relationship
holds:
$reference->[$index] eq $reference_value
lib/Devel/Cycle.pm view on Meta::CPAN
The "roasted" format is similar to the "cooked" format, except that
object references are formatted slightly differently:
$Foo::Bar::B->{'phyllis'} => \%A
If a reference is a weakened ref, then it will have a 'w->' prepended to
it, like this:
w-> $Foo::Bar::B->{'phyllis'} => \%A
For your convenience, $Devel::Cycle::FORMATTING can be imported:
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
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_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/Devel/DebugHooks.pm view on Meta::CPAN
In *second* example we see that addressing works in same manner, but value 7 is preserved as expected.
Why the value of $DB::single is not preserved?
# my $y = \$DB::single;
# # Can not use weaken. See error at 'reports/readline' file
# use Scalar::Util 'weaken';
# weaken $y;
# Because of $DB::single magic we can not access to old value by reference
# The localization is broken if we save a reference to $DB::single
# {
# my $x = $DB::single;
# print "Before: ". \$DB::single ." <<$DB::single $x >$y $$y\n"; # $$x == 0
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/Devel/Events/Generator/Objects.pm view on Meta::CPAN
with qw/Devel::Events::Generator/;
use Carp qw/croak/;
use Variable::Magic qw/cast getdata/;
use Scalar::Util qw/reftype blessed weaken/;
use B qw/svref_2object CVf_CLONED/;
{
no warnings 'redefine';
lib/Devel/Events/Generator/Objects.pm view on Meta::CPAN
}
sub enable {
my $self = shift;
$SINGLETON = $self;
weaken($SINGLETON);
}
sub disable {
$SINGLETON = undef;
}
lib/Devel/Events/Generator/Objects.pm view on Meta::CPAN
die "patches welcome";
}
unless ( grep { $_ eq $self } @$objects ) {
push @$objects, $self;
weaken($objects->[-1]);
}
return 1;
}
view release on metacpan or search on metacpan
lib/Devel/Events/Generator/LineTrace.pm view on Meta::CPAN
our $VERSION = '0.10';
use Moose;
with qw/Devel::Events::Generator/;
use Scalar::Util qw/weaken/;
my $SINGLETON;
sub DB::DB {
if ( $SINGLETON ) {
lib/Devel/Events/Generator/LineTrace.pm view on Meta::CPAN
}
sub enable {
my $self = shift;
$SINGLETON = $self;
weaken($SINGLETON);
}
sub disable {
$SINGLETON = undef;
}