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/FileHandle/Unget.pm view on Meta::CPAN
use strict;
use Symbol;
use FileHandle;
use Exporter;
use Scalar::Util qw( weaken );
use 5.005;
use vars qw( @ISA $VERSION $AUTOLOAD @EXPORT @EXPORT_OK );
lib/FileHandle/Unget.pm view on Meta::CPAN
'fh' => $self,
'eof_called' => 0,
'filehandle_unget_buffer' => '',
};
weaken($values->{'fh'});
tie *$self, "${class}::Tie", $values;
bless $self, $class;
return $self;
lib/FileHandle/Unget.pm view on Meta::CPAN
'fh' => $self,
'eof_called' => 0,
'filehandle_unget_buffer' => '',
};
weaken($values->{'fh'});
tie *$self, "${class}::Tie", $values;
bless $self, $class;
return $self;
view release on metacpan or search on metacpan
lib/Filesys/DiskUsage/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
easyxs/ppport.h view on Meta::CPAN
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
lib/Filter/Syntactic.pm view on Meta::CPAN
POSSIBLE_OUTER:
for my $prev (@Filter::Syntactic::captures[reverse 0..$c-1]) {
last POSSIBLE_OUTER if $prev->{END} < $capture->{POS};
if ($capture->{END} > $prev->{END}) {
push @{$prev->{OUTERS}}, $capture;
use Scalar::Util 'weaken';
weaken($prev->{OUTERS}[-1]);
}
}
}
# Install replacement code and any adjust outer captures...
view release on metacpan or search on metacpan
t/MyTestHelpers.pm view on Meta::CPAN
} else {
MyTestHelpers::diag ("Devel::FindRef not available -- ", $@);
}
}
sub test_weaken_show_leaks {
my ($leaks) = @_;
$leaks || return;
my $unfreed = $leaks->unfreed_proberefs;
my $unfreed_count = scalar(@$unfreed);
view release on metacpan or search on metacpan
Call/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
lib/HAL/Resource.pm view on Meta::CPAN
Hypertext Application Language - L<https://en.wikipedia.org/wiki/Hypertext_Application_Language>
=cut
has ua => (
weaken => 1,
is => 'ro',
);
has _links => (
is => 'ro',
view release on metacpan or search on metacpan
lib/Finance/Bitcoin/Feed/Site/BitStamp/Socket.pm view on Meta::CPAN
package Finance::Bitcoin::Feed::Site::BitStamp::Socket;
use strict;
use warnings;
use parent qw(Finance::Bitcoin::Feed::Pusher);
use Scalar::Util qw(weaken);
sub new {
my $self = shift->SUPER::new(channels => [qw/live_trades/]);
$self->{owner} = shift;
#weaken it to prevent from crossing reference
weaken($self->{owner});
return $self;
}
sub trade {
my $self = shift;
view release on metacpan or search on metacpan
CompanyNames/TextSupport.pm view on Meta::CPAN
way ways
waybill waybills
waypoint waypoints
wayward waywardness
weak weaker weakly weakness weaknesses
weaken weakened weakening weakens
wealth wealthier wealthy
wean weaned weaning
weapon weaponization weaponized weapons
wear wearability wearable wearables wearer wearers wearing wears
wearier wearily weariness weary
CompanyNames/TextSupport.pm view on Meta::CPAN
ways
wayside
wayward
we
weak
weaken
weakened
weakening
weakens
weaker
weakest
weakly
weakness
weaknesses
view release on metacpan or search on metacpan
inc/Class/MOP.pm view on Meta::CPAN
use 5.008;
use MRO::Compat;
use Carp 'confess';
use Scalar::Util 'weaken', 'isweak', 'reftype', 'blessed';
use Data::OptList;
use Try::Tiny;
use Class::MOP::Mixin::AttributeCore;
use Class::MOP::Mixin::HasAttributes;
inc/Class/MOP.pm view on Meta::CPAN
sub get_all_metaclasses { %METAS }
sub get_all_metaclass_instances { values %METAS }
sub get_all_metaclass_names { keys %METAS }
sub get_metaclass_by_name { $METAS{$_[0]} }
sub store_metaclass_by_name { $METAS{$_[0]} = $_[1] }
sub weaken_metaclass { weaken($METAS{$_[0]}) }
sub metaclass_is_weak { isweak($METAS{$_[0]}) }
sub does_metaclass_exist { exists $METAS{$_[0]} && defined $METAS{$_[0]} }
sub remove_metaclass_by_name { delete $METAS{$_[0]}; return }
# This handles instances as well as class names
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/MyTestHelpers.pm view on Meta::CPAN
} else {
MyTestHelpers::diag ("Devel::FindRef not available -- ", $@);
}
}
sub test_weaken_show_leaks {
my ($leaks) = @_;
$leaks || return;
my $unfreed = $leaks->unfreed_proberefs;
my $unfreed_count = scalar(@$unfreed);
view release on metacpan or search on metacpan
xs/include/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/Fluent/LibFluentBit.pm view on Meta::CPAN
# constructor registers the instance
sub new {
my $class= shift;
my $self= Fluent::LibFluentBit::flb_create();
bless $self, $class if $class ne 'Fluent::LibFluentBit';
Scalar::Util::weaken( $instances{0+$self}= $self );
$self->configure((@_ == 1 && ref $_[0] eq 'HASH')? %{$_[0]} : @_);
}
# destructor flushes cached messages and unregisters the instance
sub DESTROY {
view release on metacpan or search on metacpan
lib/Form/Processor.pm view on Meta::CPAN
sub parent_field {
my $self = shift;
return Scalar::Util::weaken( $self->{parent_field} = shift ) if ( @_ );
return $self->{parent_field};
}
lib/Form/Processor.pm view on Meta::CPAN
If a form has a parent_field associated with it then any errors will be pushed
onto the parent_field instead of the current field. In the date example, an error
in the year field will cause the error to be assigned to the date field, not directly
on the year field.
This stores a weakened value.
=back
=head1 CREATING A MODEL CLASS
view release on metacpan or search on metacpan
lib/Form/Tiny/Plugin/Diva.pm view on Meta::CPAN
roles => [__PACKAGE__],
meta_roles => ['Form::Tiny::Plugin::Diva::MetaRole'],
};
}
use Scalar::Util qw(weaken);
use Moo::Role;
has 'diva' => (
is => 'ro',
builder => '_build_diva',
lib/Form/Tiny/Plugin/Diva.pm view on Meta::CPAN
hidden => \@hidden,
form_instance => $self,
);
weaken $obj->{form_instance};
return $obj;
}
1;
view release on metacpan or search on metacpan
lib/Form/Tiny/Manual.pod view on Meta::CPAN
handle. This can help debugging and prevent errors.
B<Important note>: Strict mode will cause the system to crawl your entire input
data to search for any odd elements. This will cause validation to only run at
about half the speed, and more importantly it will not be able to cope with
circular references (even weakened). If your input data may contain circular
references you should not make use of the strict mode.
=head3 Filters
Turned on by L<Form::Tiny::Plugin::Filtered> plugin or with the C<-filtered>
view release on metacpan or search on metacpan
inc/DBIx/Class/Schema.pm view on Meta::CPAN
use strict;
use warnings;
use DBIx::Class::Exception;
use Carp::Clan qw/^DBIx::Class/;
use Scalar::Util qw/weaken/;
use File::Spec;
use Sub::Name ();
use Module::Find();
use base qw/DBIx::Class/;
inc/DBIx/Class/Schema.pm view on Meta::CPAN
my $orig_source = $source;
$source = $source->new({ %$source, source_name => $moniker });
$source->schema($self);
weaken($source->{schema}) if ref($self);
my $rs_class = $source->result_class;
my %reg = %{$self->source_registrations};
$reg{$moniker} = $source;
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/Forward/Routes.pm view on Meta::CPAN
use 5.010001;
use Forward::Routes::Match;
use Forward::Routes::Pattern;
use Forward::Routes::Resources;
use Scalar::Util qw/weaken/;
use Carp 'croak';
our $VERSION = '0.56';
lib/Forward/Routes.pm view on Meta::CPAN
my $self = shift;
my ($value) = @_;
return $self->{parent} unless $value;
$self->{parent} = $value;
weaken $self->{parent};
return $self;
}
sub add_child {
view release on metacpan or search on metacpan
lang_en/conceptnet-commonsense-is-4.pro view on Meta::CPAN
designed <> situation <> a wingnut <> <> be hand <> nothing <> nothing <> tightened by tightened by tightened by <> xxtoxx <> <> 50
is <> situation a soldering iron <> a tool <> <> is <> nothing <> nothing <> heated electrically <> that <> ;; melt <> solder <> nothing <> <> xxtoxx <> ;; join <> metal <> parts <> <> xxtoxx <> ;; join <> metal <> eg together plumbing <> <> x...
is <> situation a soldering iron <> a tool <> <> means <> nothing <> nothing <> <> <> ;; melt <> solder <> nothing <> <> xxtoxx <> ;; join <> metal <> parts <> <> xxtoxx <> ;; join <> metal <> eg together plumbing <> <> xxtoxx <> ;; join <>...
is <> situation a soldering iron <> a tool <> <> used <> nothing <> nothing <> <> <> ;; melt <> solder <> nothing <> <> xxtoxx <> ;; join <> metal <> parts <> <> xxtoxx <> ;; join <> metal <> eg together plumbing <> <> xxtoxx <> ;; join <> ...
is used <> situation solder <> a metal alloy melting point <> with a low <> join <> metal <> parts <> together <> xxtoxx <> <> 50
is <> situation a joint <> a soldered <> dry <> is <> or <> nothing <> weakened defective <> that <> <> 50
is orbiting <> two bodies <> mars <> there <> <> <> nothing <> <> <> <> 50
is <> a acrylic <> plastic <> <> <> <> nothing <> <> <> <> 50
is used <> a output <> device <> printer <> based convert <> electronic data <> data <> to paper <> xxtoxx <> <> 50
is <> mine <> a weapon <> <> <> <> nothing <> <> <> <> 50
is <> situation a opinion <> a statement <> (supposedly_formed_by_observation);on a topic of topics <> <> <> nothing <> <> <> <> 50
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/Froody/API/XML.pm view on Meta::CPAN
use Froody::Response::String;
use Froody::Logger;
my $logger = get_logger("froody.api.xml");
use base qw(Froody::API);
use Scalar::Util qw(weaken);
=head1 NAME
Froody::API::XML - Define a Froody API with xml
lib/Froody/API/XML.pm view on Meta::CPAN
my $example = Froody::Response::String->new;
$example->set_string("<rsp status='ok'>".$response_element->toString(1)."</rsp>");
$example->structure($method);
$method->example_response($example);
weaken($example->{structure});
} else {
$method->structure({})
}
my $desc = $method_element->findvalue("./description");
lib/Froody/API/XML.pm view on Meta::CPAN
my $example = Froody::Response::String->new;
$et_element->setNodeName("err");
my $text = "<rsp status='fail'>".$et_element->toString(1)."</rsp>";
$example->set_bytes($text);
$example->structure($et);
weaken($example->{structure});
$et->example_response($example);
return $et;
}
view release on metacpan or search on metacpan
lib/Frost.pm view on Meta::CPAN
objects blessed in an anonymous class. This destroys the silence/evoke
mechanism, which depends on the real classname.
So reblessing as well as make_mutable is VERBOTEN.
=head2 Thou shalt not weaken thy reference
Due to Frost's proxy algorithm there is no need for weak references.
See L</MOTIVATION>.
=head2 Thou shalt not create or load objects without an id and thy asylum
view release on metacpan or search on metacpan
lib/Full/Pragmata.pm view on Meta::CPAN
=item * L<Future::AsyncAwait>
=item * L<Future::AsyncAwait::Hooks> - added in C< :v2 >
=item * provides L<Scalar::Util/blessed>, L<Scalar::Util/weaken>, L<Scalar::Util/refaddr>
=item * provides L<List::Util/min>, L<List::Util/max>, L<List::Util/sum0>
=item * provides L<List::Util/uniqstr> - added in C< :v2 >
lib/Full/Pragmata.pm view on Meta::CPAN
# to have minimal inheritance in the first place, but might as well have a standard
# decision to avoid surprises in future
mro::set_mro($pkg => 'c3');
# Helper functions which are used often enough to be valuable as a default
Scalar::Util->export($pkg => qw(refaddr blessed weaken));
List::Util->export($pkg => qw(min max sum0));
# Additional features in :v2 onwards
List::Util->export($pkg => qw(uniqstr));
# eval "package $pkg; use Object::Pad::FieldAttr::Checked; use Data::Checks qw(NumGE); 1" or die $@;
view release on metacpan or search on metacpan
include/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
t/lib/Test/Resub.pm view on Meta::CPAN
our $VERSION = 2.02;
use Carp qw(croak);
use Storable qw(dclone);
use Scalar::Util qw(weaken);
sub default_replacement_sub { sub {} }
sub set_prototype(&$) {
if (_implements('Scalar::Util','set_prototype')) {
goto \&Scalar::Util::set_prototype;
t/lib/Test/Resub.pm view on Meta::CPAN
autovivified => $autovivified,
stashed_variables => _save_variables($args{name}),
deep_copy => $args{deep_copy},
}, $class;
weaken(my $weak_self = $self);
my $wrapper_for_code = set_prototype(sub {
$weak_self->{called}++;
$weak_self->{was_called} = 1;
push @{$weak_self->{args}}, ($weak_self->{deep_copy}
? do {
view release on metacpan or search on metacpan
lib/FP/Abstract/Sequence.pm view on Meta::CPAN
#XXX other
# group group_by
# zip2
# XXX these don't weaken the caller arguments, thus will leak for
# streams. How to solve this (and not copy-paste-adapt the methods
# manually) without fixing perl?
sub flatten {
@_ == 1 or @_ == 2 or fp_croak_arity "1 or 2";
lib/FP/Abstract/Sequence.pm view on Meta::CPAN
sub split_at {
@_ == 2 or fp_croak_arity 2;
my ($s, $pos) = @_;
# XXX weaken as all of them.
($s->take($pos), $s->drop($pos))
}
sub chunks_of {
@_ == 2 or fp_croak_arity 2;
my ($s, $chunklen) = @_;
# XXX weaken as all of them.
$s->stream->chunks_of($chunklen)
}
sub strictly_chunks_of {
@_ == 2 or fp_croak_arity 2;
my ($s, $chunklen) = @_;
# XXX weaken as all of them.
$s->stream->strictly_chunks_of($chunklen)
}
# join in Haskell is doing "++" on the items, should probably choose a
# protocol for this as well; for now, hard-code to strings_join:
sub join {
my ($s) = @_;
# Tail-call, please, for 'weakening maintenance'.
# XX only AUTOLOAD is defined, not `can`! But $s was already
# forced by the AUTOLOAD thus nothing more is needed here. But
# this might change!
my $m = $s->can("strings_join")