view release on metacpan or search on metacpan
t/lib/Test/More.pm view on Meta::CPAN
use Test::More tests => $Num_Tests;
There are rare cases when you will not know beforehand how many tests
your script is going to run. In this case, you can declare that you
have no plan. (Try to avoid using this as it weakens your test.)
use Test::More qw(no_plan);
In some cases, you'll want to completely skip an entire testing script.
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_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
Perl/Perl.pm view on Meta::CPAN
use Audio::LADSPA;
use Audio::LADSPA::Library;
our @ISA = qw(Audio::LADSPA::Plugin);
our $VERSION = "0.021";
use Carp;
use Scalar::Util qw(weaken);
__PACKAGE__->description(
name => 'Audio::LADSPA::Plugin::Perl',
label => 'perl',
maker => 'Joost Diepenmaat',
Perl/Perl.pm view on Meta::CPAN
}
sub set_monitor {
my ($self,$monitor) = @_;
$self->{monitor} = $monitor;
weaken($self->{monitor}) if defined $self->{monitor};
}
sub monitor {
my ($self) = @_;
return $self->{monitor};
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/Audio/M4P/Atom.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
our $VERSION = '0.54';
use Scalar::Util 'weaken';
use Tree::Simple 'use_weak_refs';
use Tree::Simple::Visitor;
use Tree::Simple::View::HTML;
lib/Audio/M4P/Atom.pm view on Meta::CPAN
my $self = \%args;
bless( $self, $class );
$self->{node} = Tree::Simple->new($self);
if( ref $self->{parent} ) {
$self->{parent}->addChild( $self->{node} );
weaken $self->{node};
weaken $self->{parent};
}
else {
$self->{parent} = 0;
}
if( ref $self->{rbuf} ) {
weaken $self->{rbuf};
$self->read_buffer( $self->{read_buffer_position} )
if exists $self->{read_buffer_position};
}
return $self;
}
view release on metacpan or search on metacpan
lib/Audio/MPD/Collection.pm view on Meta::CPAN
#
# my $collection = Audio::MPD::Collection->new( _mpd => $mpd );
#
# This will create the object, holding a back-reference to the Audio::MPD
# object itself (for communication purposes). But in order to play safe and
# to free the memory in time, this reference is weakened.
#
# Note that you're not supposed to call this constructor yourself, an
# Audio::MPD::Collection is automatically created for you during the creation
# of an Audio::MPD object.
#
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
include/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.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_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/Authen/CAS/External/UserAgent.pm view on Meta::CPAN
# Create the owner reference
my $owner = \$self;
# This is a reference to a weak reference to prevent circular references
Scalar::Util::weaken(${$owner});
# Add handlers
$user_agent->add_handler(
request_prepare => \&_process_ticket_granting_cookie,
m_host => $cas_host,
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/AutoReloader.pm view on Meta::CPAN
my $outer = load ($package, $file, $h) or die $@;
my $outeraddr = Scalar::Util::refaddr ($outer);
$h -> {'outer'} = $outer;
Scalar::Util::weaken ($h -> {'outer'});
$AL{Sub} -> {$outeraddr} = $h;
$AL{Inc} -> {$subname} = $outeraddr;
return bless $outer, __PACKAGE__;
}
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/Autocache/Strategy/Refresh.pm view on Meta::CPAN
extends 'Autocache::Strategy';
use Autocache;
use Carp;
use Autocache::Logger qw(get_logger);
use Scalar::Util qw( weaken );
#
# Refresh Strategy - freshen content regularly in the background
#
lib/Autocache/Strategy/Refresh.pm view on Meta::CPAN
{
my ($self,$req,$rec) = @_;
get_logger()->debug( "_refresh_task " . $rec->name );
weaken $self;
return sub
{
get_logger()->debug( "refreshing record: " . $rec->to_string );
my $fresh_rec = $self->create( $req );
view release on metacpan or search on metacpan
lib/Avro/Schema.pm view on Meta::CPAN
my $name = $schema->fullname;
if ( exists $names->{ $name } ) {
throw Avro::Schema::Error::Parse( "Name $name is already defined" );
}
$names->{$name} = $schema;
Scalar::Util::weaken( $names->{$name} );
return;
}
sub fullname {
my $schema = shift;
lib/Avro/Schema.pm view on Meta::CPAN
throw Avro::Schema::Error::Parse("Record.Field.name is required")
unless defined $type && length $type;
$type = Avro::Schema->parse_struct($type, $names, $namespace);
my $field = { name => $name, type => $type };
#TODO: find where to weaken precisely
#Scalar::Util::weaken($struct->{type});
if (exists $struct->{default}) {
my $is_valid = $type->is_data_valid($struct->{default});
my $t = $type->type;
throw Avro::Schema::Error::Parse(
view release on metacpan or search on metacpan
lib/AxKit2/XSP/SimpleTaglib.pm view on Meta::CPAN
|| die("childStruct specification invalid. '&' reference not found.");
die("childStruct specification invalid. '&' cannot be used on '*' nodes.")
if ($$result{$token}{'type'} eq '*');
die("childStruct specification invalid. '&' may only take a reference.")
if $$result{'param'};
eval { WeakRef::weaken($$result{$token}) };
return $result if (!$next || $next eq '}');
next;
}
$$result{$token}{'type'} = $type || '$';
die("childStruct specification invalid. '${type}' cannot be used with '{'.")
view release on metacpan or search on metacpan
ByteLoader/ppport.h view on Meta::CPAN
sv_ref|||
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
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
tlib/t/D.pm view on Meta::CPAN
package t::D;
use B::Hooks::AtRuntime qw/at_runtime after_runtime/;
#use Scalar::Util "weaken";
#use Devel::FindRef;
#use Devel::Peek;
#use Devel::Cycle;
#my @All;
tlib/t/D.pm view on Meta::CPAN
sub new { bless [$_[1]], $_[0] }
sub DESTROY { push @::D, @{$_[0] } }
sub import {
my $d = t::D->new($_[1]);
# push @All, \$d;
# weaken $All[-1];
$_[2] ? after_runtime { $d } : at_runtime { $d };
}
#sub dump_all {
# for (@All) {
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_rvunweaken|||
sv_rvweaken||5.006000|
sv_set_undef|||
sv_sethek|||
sv_setiv_mg|5.004050||p
sv_setiv|||
sv_setnv_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
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|||