view release on metacpan or search on metacpan
lib/B/ppport.h view on Meta::CPAN
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/B/Utils.pm view on Meta::CPAN
qw( opgrep op_or ),
);
sub croak (@);
sub carp (@);
use Scalar::Util qw( weaken blessed );
=head1 NAME
B::Utils - Helper functions for op tree manipulation
view release on metacpan or search on metacpan
lib/B/Utils1.pm view on Meta::CPAN
qw( opgrep op_or ),
);
sub croak (@);
sub carp (@);
use Scalar::Util qw( weaken blessed );
=head1 NAME
B::Utils1 - Helper functions for op tree manipulation
view release on metacpan or search on metacpan
lib/BACnet/Socket.pm view on Meta::CPAN
use IO::Async::Loop;
use Socket qw(unpack_sockaddr_in inet_ntoa pack_sockaddr_in inet_aton);
use BACnet::Device;
use Scalar::Util 'weaken';
my $BACNET_PORT = 0xBAC0; # 47808
sub new {
my ( $class, $device, %args ) = @_;
weaken { $device };
my $self = {
retries => $args{retries} // 3,
timeout => $args{timeout} // 3,
loop => $args{io_loop} // IO::Async::Loop->new,
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/BPM/Engine.pm view on Meta::CPAN
);
sub runner {
my ($self, $pi) = @_;
#Scalar::Util::weaken($self);
my $args = {
process_instance => $pi,
#engine => $self, # DEPRECATED
logger => $self->logger,
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
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_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_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/Backblaze/B2.pm view on Meta::CPAN
1;
package Backblaze::B2::v1::Bucket;
use strict;
use Scalar::Util 'weaken';
sub new {
my( $class, %options ) = @_;
weaken $options{ parent };
# Whoa! We assume that the async version has the same class name
# as the synchronous version and just strip it off.
$options{ file_class } =~ s!::Synchronized$!!;
lib/Backblaze/B2.pm view on Meta::CPAN
sub api { $_[0]->{api} }
package Backblaze::B2::v1::File;
use strict;
#use Scalar::Util 'weaken'; # do we really want to weaken our link?!
# The bucket doesn't hold a ref to us, so we don't want to weaken it
sub new {
my( $class, %options ) = @_;
#weaken $options{ bucket };
#warn "$class: " . join ",", sort keys %options;
bless \%options => $class,
}
lib/Backblaze/B2.pm view on Meta::CPAN
sub downloadUrl { join "/", $_[0]->bucket->downloadUrl, $_[0]->name }
package Backblaze::B2::v1::File::Synchronized;
use strict;
use Carp qw(croak);
#use Scalar::Util 'weaken'; # do we really want to weaken our link?!
# The bucket doesn't hold a ref to us, so we don't want to weaken it
sub new {
my( $class, %options ) = @_;
#weaken $options{ bucket };
#warn "$class: " . join ",", sort keys %options;
croak "Need impl" unless $options{ impl };
bless \%options => $class,
}
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/Badger/Utils.pm view on Meta::CPAN
our $WARN = sub { warn @_ }; # for testing - see t/core/utils.t
our $MESSAGES = { };
our $HELPERS = { # keep this compact in case we don't need to use it
'Digest::MD5' => 'md5 md5_hex md5_base64',
'Scalar::Util' => 'blessed dualvar isweak readonly refaddr reftype
tainted weaken isvstring looks_like_number
set_prototype',
'List::Util' => 'first max maxstr min minstr reduce shuffle sum',
'List::MoreUtils' => 'any all none notall true false firstidx
first_index lastidx last_index insert_after
insert_after_string apply after after_incl before
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
lib/Basset/NotificationCenter.pm view on Meta::CPAN
=cut
$VERSION = '1.02';
use Scalar::Util qw(weaken isweak);
use Basset::Object;
our @ISA = Basset::Object->pkg_for_type('object');
use strict;
lib/Basset/NotificationCenter.pm view on Meta::CPAN
#this is off for now, 'til I think of how to deal with the case of objects that exist
#only in the notification center, such as loggers
#
#we don't want the notification center to keep observer objects around by mistake.
#weaken($init{'observer'}) if ref $init{'observer'};
return 1;
};
=pod
view release on metacpan or search on metacpan
lib/Beam/Emitter.pm view on Meta::CPAN
use strict;
use warnings;
use Types::Standard qw(:all);
use Scalar::Util qw( weaken refaddr );
use Carp qw( croak );
use Beam::Event;
use Module::Runtime qw( use_module );
use Moo::Role; # Put this last to ensure proper, automatic cleanup
lib/Beam/Emitter.pm view on Meta::CPAN
unless use_module($class)->isa( 'Beam::Listener' );
my $listener = $class->new( %args, callback => $sub );
push @{ $self->_listeners->{$name} }, $listener;
weaken $self;
weaken $sub;
return sub {
$self->unsubscribe($name => $sub)
if defined $self;
};
}
view release on metacpan or search on metacpan
lib/Beam/Minion/Util.pm view on Meta::CPAN
use Mojo::Base -strict, -signatures;
use Exporter qw( import );
use Minion;
use Beam::Runner::Util qw( find_containers );
use Scalar::Util qw( weaken );
use Mojolicious;
use Mojo::Log;
use Beam::Wire;
use YAML::PP qw( LoadFile );
use Log::Any qw($LOG);
view release on metacpan or search on metacpan
examples/dashboard/lib/Beekeeper/Service/Dashboard/Worker.pm view on Meta::CPAN
use Beekeeper::Service::LogTail;
use Beekeeper::Config;
use AnyEvent;
use JSON::XS;
use Scalar::Util 'weaken';
use Digest::SHA 'sha256_hex';
use Fcntl qw(:DEFAULT :flock);
use Time::HiRes;
use constant AVERAGE => 0;
examples/dashboard/lib/Beekeeper/Service/Dashboard/Worker.pm view on Meta::CPAN
}
sub _init_collector {
my ($self) = @_;
weaken($self);
$self->_load_state;
$self->{services_1s} ||= [];
$self->{services_5s} ||= [];
view release on metacpan or search on metacpan
data/t/recipes/basics_binarytree_attributefeatures.t view on Meta::CPAN
ok($root->has_left, '... we have a left node now');
ok($left->has_parent, '... lefts has a parent');
is($left->parent, $root, '... lefts parent is the root');
ok(isweak($left->{parent}), '... parent is a weakened ref');
ok(!$left->has_left, '... $left no left node yet');
ok(!$left->has_right, '... $left no right node yet');
is($left->node, undef, '... left has got no node value');
data/t/recipes/basics_binarytree_attributefeatures.t view on Meta::CPAN
ok($root->has_right, '... we have a right node now');
ok($right->has_parent, '... rights has a parent');
is($right->parent, $root, '... rights parent is the root');
ok(isweak($right->{parent}), '... parent is a weakened ref');
# make a left node of the left node
my $left_left = $left->left;
isa_ok($left_left, 'BinaryTree');
data/t/recipes/basics_binarytree_attributefeatures.t view on Meta::CPAN
is($left_left->parent, $left, '... got a parent node (and it is $left)');
ok($left->has_left, '... we have a left node now');
is($left->left, $left_left, '... got a left node (and it is $left_left)');
ok(isweak($left_left->{parent}), '... parent is a weakened ref');
# make a right node of the left node
my $left_right = BinaryTree->new;
isa_ok($left_right, 'BinaryTree');
data/t/recipes/basics_binarytree_attributefeatures.t view on Meta::CPAN
is($left_right->parent, $left, '... got a parent node (and it is $left)');
ok($left->has_right, '... we have a left node now');
is($left->right, $left_right, '... got a left node (and it is $left_left)');
ok(isweak($left_right->{parent}), '... parent is a weakened ref');
# and check the error
isnt(
exception {
view release on metacpan or search on metacpan
html/setops.report.html view on Meta::CPAN
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td>136: weaken</td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
view release on metacpan or search on metacpan
share/PerlCritic/Critic/Document.pm view on Meta::CPAN
use PPI::Document;
use PPI::Document::File;
use List::Util qw< reduce >;
use Scalar::Util qw< blessed weaken >;
use version;
use Perl::Critic::Annotation;
use Perl::Critic::Exception::Parse qw< throw_parse >;
use Perl::Critic::Utils qw< :booleans :characters shebang_line >;
share/PerlCritic/Critic/Document.pm view on Meta::CPAN
my %cache = ( 'PPI::Document' => [ $self ] );
# The cache refers to $self, and $self refers to the cache. This
# creates a circular reference that leaks memory (i.e. $self is not
# destroyed until execution is complete). By weakening the reference,
# we allow perl to collect the garbage properly.
weaken( $cache{'PPI::Document'}->[0] );
my $finder_coderef = _caching_finder( \%cache );
$self->{_doc}->find( $finder_coderef );
$self->{_elements_of} = \%cache;
}
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
t/data/entrezgene.dat view on Meta::CPAN
update-date
str "Jun 23 2004 5:16PM" } ,
{
type generif ,
text "cellular generation of peroxynitrite may contribute to
carcinogenesis and tumor progression by weakening key cellular defense
enzymes such as arylamine N-acetyltransferase 1 (NAT1)" ,
version 0 ,
refs {
pmid 14672957 } ,
create-date
view release on metacpan or search on metacpan
lib/Bio/CIPRES/Job.pm view on Meta::CPAN
'""' => sub {return $_[0]->{handle}};
use Carp;
use Time::Piece;
use XML::LibXML;
use Scalar::Util qw/blessed weaken/;
use List::Util qw/first/;
use Bio::CIPRES::Error;
use Bio::CIPRES::Message;
use Bio::CIPRES::Output;
lib/Bio/CIPRES/Job.pm view on Meta::CPAN
croak "Must define user agent" if (! defined $args{agent});
croak "Agent must be an LWP::UserAgent object"
if ( blessed($args{agent}) ne 'LWP::UserAgent' );
$self->{agent} = $args{agent};
weaken( $self->{agent} );
croak "Must define initial status" if (! defined $args{dom});
$self->_parse_status( $args{dom} );
return $self;
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_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
lib/Bio/EnsEMBL/ArchiveStableId.pm view on Meta::CPAN
use strict;
use warnings;
no warnings qw(uninitialized);
use Bio::EnsEMBL::Utils::Argument qw(rearrange);
use Scalar::Util qw(weaken isweak);
=head2 new
Arg [STABLE_ID] : String $stable_id
Arg [VERSION] : Int $version
lib/Bio/EnsEMBL/ArchiveStableId.pm view on Meta::CPAN
'type' => $_[5],
'adaptor' => $_[6],
'current_version' => $_[7],
}, $class;
weaken($self->{adaptor}) if ( ! isweak($self->{adaptor}) );
return $self;
}
lib/Bio/EnsEMBL/ArchiveStableId.pm view on Meta::CPAN
return $self->{'type'};
}
sub adaptor {
my $self = shift;
weaken($self->{'adaptor'} = shift) if (@_);
return $self->{'adaptor'};
}
sub successors {
my $self = shift;