view release on metacpan or  search on metacpan

lib/File/Gettext/Storage.pm  view on Meta::CPAN

259
260
261
262
263
264
265
266
267
268
 
Two character language code
 
=item C<schema>
 
A weakened reference to the schema object
 
=item C<storage>
 
Instance of L<File::DataClass::Storage>

 view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
      "  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

207
208
209
210
211
212
213
214
215
216
217
    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

227
228
229
230
231
232
233
234
235
236
237
}
$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/File/Information/Deep.pm  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
22
use warnings;
 
use parent 'https://metacpan.org/pod/File::Information::Base">File::Information::Base';
 
use Carp;
use Scalar::Util qw(weaken);
 
our $VERSION = v0.10;
 
my %_properties = (
    pdf_version     => {loader => \&_load_pdf},

lib/File/Information/Deep.pm  view on Meta::CPAN

90
91
92
93
94
95
96
97
98
99
my ($pkg, %opts) = @_;
my $self = $pkg->SUPER::_new(%opts, properties => \%_properties);
my $pv = ($self->{properties_values} //= {})->{current} //= {};
my $parent = $self->{parent};
 
weaken($self->{parent});
 
# copy a few critical values:
$pv->{contentise} = {raw => $parent->get('contentise', lifecycle => 'current', as => 'uuid')};
$pv->{mediatype}  = {raw => $parent->get('mediatype',  lifecycle => 'current', as => 'mediatype')};

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

9464
9465
9466
9467
9468
9469
9470
9471
9472
9473
9474
9475
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

lib/File/KDBX/Object.pm  view on Meta::CPAN

9
10
11
12
13
14
15
16
17
18
19
use File::KDBX::Error;
use File::KDBX::Util qw(:uuid);
use Hash::Util::FieldHash qw(fieldhashes);
use List::Util qw(any first);
use Ref::Util qw(is_arrayref is_plain_arrayref is_plain_hashref is_ref);
use Scalar::Util qw(blessed weaken);
use namespace::clean;
 
our $VERSION = '0.906'; # VERSION
 
fieldhashes \my (%KDBX, %PARENT, %TXNS, %REFS, %SIGNALS);

lib/File/KDBX/Object.pm  view on Meta::CPAN

153
154
155
156
157
158
159
160
161
162
163
my $self = shift;
$self = $self->new if !ref $self;
if (@_) {
    if (my $kdbx = shift) {
        $KDBX{$self} = $kdbx;
        weaken $KDBX{$self};
    }
    else {
        delete $KDBX{$self};
    }
}

lib/File/KDBX/Object.pm  view on Meta::CPAN

193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
        delete $PARENT{$self};
    }
    # always get lineage from root to leaf because the other way requires parent, so it would be recursive
    my $lineage = $self->kdbx->_trace_lineage($self) or return;
    my $group = pop @$lineage or return;
    $PARENT{$self} = $group; weaken $PARENT{$self};
    return $group;
}
 
sub _set_group {
    my $self = shift;
    if (my $parent = shift) {
        $PARENT{$self} = $parent;
        weaken $PARENT{$self};
    }
    else {
        delete $PARENT{$self};
    }
    return $self;

 view release on metacpan or  search on metacpan

lib/File/KeePass/KDBX.pm  view on Meta::CPAN

11
12
13
14
15
16
17
18
19
20
use File::KDBX::Constants qw(:header :magic :version);
use File::KDBX::Loader::KDB;
use File::KDBX::Util qw(clone_nomagic generate_uuid load_optional);
use Hash::Util::FieldHash qw(fieldhashes);
use Module::Load;
use Scalar::Util qw(blessed looks_like_number weaken);
use boolean;
use namespace::clean;
 
our $VERSION = '0.902'; # VERSION

lib/File/KeePass/KDBX.pm  view on Meta::CPAN

492
493
494
495
496
497
498
499
500
501
502
    return $hit if defined $hit;
 
    load $class;
    tie((ref $ref eq 'ARRAY' ? @$ref : %$ref), $class, $obj, @_, $self);
    $hit = $cache->{$key} = $ref;
    weaken $cache->{$key};
    return $hit;
}
 
### convert datetime from KDBX to KeePass format
sub _decode_datetime {

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
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

xs/ppport.h  view on Meta::CPAN

2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
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

devel/Shared.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
  my $key = "$dev,$ino";
  return ($cache{$key} ||= do {
    my $mmap;
    File::Map::map_handle ($mmap, $fh, @args);
    my $ref = $cache{$key} = \$mmap;
    Scalar::Util::weaken ($cache{$key});
    $ref;
  });
}
 
package File::Locate::Iterator::TieHashDeleteUndef;

devel/Shared.pm  view on Meta::CPAN

74
75
76
77
78
79
80
81
82
83
$h{1} = 2;
$h{1} = undef;
 
require Scalar::Util;
$h{1} = [];
Scalar::Util::weaken ($h{1});
print "now $h{1}\n";
 
1;
__END__

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

2
3
4
5
6
7
8
9
10
11
12
 
        * MMagic.pm: Version 1.30.
 
2013-01-21  NOKUBI Takatsugu  <knok@daionet.gr.jp>
 
        * MMagic.pm (checktype_byfilename): Remove Scalar::Util::weaken.
          To prevent too much decrement REFCNT.
 
2012-07-12  NOKUBI Takatsugu  <knok@daionet.gr.jp>
 
        * MMagic.pm (checktype_contents): Fix infinity loop bug.

 view release on metacpan or  search on metacpan

lib/File/ppport.h  view on Meta::CPAN

9464
9465
9466
9467
9468
9469
9470
9471
9472
9473
9474
9475
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

lib/File/Marker.pm  view on Meta::CPAN

8
9
10
11
12
13
14
15
16
17
 
our @ISA = qw( IO::File );
 
use Carp;
use IO::File;
use Scalar::Util 1.09 qw( refaddr weaken );
 
#--------------------------------------------------------------------------#
# Inside-out data storage
#--------------------------------------------------------------------------#

lib/File/Marker.pm  view on Meta::CPAN

28
29
30
31
32
33
34
35
36
37
38
 
sub new {
    my $class = shift;
    my $self  = IO::File->new();
    bless $self, $class;
    weaken( $REGISTRY{ refaddr $self } = $self );
    $self->open(@_) if @_;
    return $self;
}
 
#--------------------------------------------------------------------------#

lib/File/Marker.pm  view on Meta::CPAN

167
168
169
170
171
172
173
174
175
176
177
        # relocate data
        $MARKS{$new_id} = $MARKS{$old_id};
        delete $MARKS{$old_id};
 
        # update the weak reference to the new, cloned object
        weaken( $REGISTRY{$new_id} = $object );
        delete $REGISTRY{$old_id};
    }
 
    return;
}

 view release on metacpan or  search on metacpan

lib/File/Replace/SingleHandle.pm  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
        File::Replace::SingleHandle;
use warnings;
use strict;
use Carp;
use warnings::register;
use Scalar::Util qw/blessed weaken/;
 
# For AUTHOR, COPYRIGHT, AND LICENSE see the bottom of this file
 
our $VERSION = '0.18';

lib/File/Replace/SingleHandle.pm  view on Meta::CPAN

34
35
36
37
38
39
40
41
42
43
44
                $innerhandle = $repl->out_fh; }
        else { croak "bad mode" }
        my $self = $class->SUPER::TIEHANDLE($innerhandle);
        $self->{repl}  = $repl;
        $self->{other} = $other;
        weaken( $self->{other} );
        return $self;
}
 
sub replace { return shift->{repl} }
sub in_fh   { return shift->{repl}->in_fh }

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
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

script/rsybak  view on Meta::CPAN

33283
33284
33285
33286
33287
33288
33289
33290
33291
33292
33293
#
#use 5.010;
#use strict;
#use warnings;
#
#use Scalar::Util qw(weaken);
#use Sub::Delete;
#
#my %stacks;
#
#sub __find_previous {

script/rsybak  view on Meta::CPAN

33329
33330
33331
33332
33333
33334
33335
33336
33337
33338
33339
#        $code = sub {};
#        $args{code} = $code;
#        push @$stack, [$type, $code];
#        delete_sub $name;
#    } elsif ($type eq 'wrap') {
#        weaken($self);
#        my $wrapper = sub {
#            my $ctx = {
#                package => $self->{package},
#                subname => $self->{subname},
#                extra   => $self->{extra},

 view release on metacpan or  search on metacpan

Digest/Digest.pm  view on Meta::CPAN

224
225
226
227
228
229
230
231
232
233
234
it overflows for file sizes bigger than 512MB.
 
=back
 
The effects of these bugs are benign: the MD4 digest should not be
cryptographically weakened and both sides are consistent. 
 
This module implements both versions of the MD4 digest: the 
buggy version for protocol versions <= 26 and the correct
version for protocol versions >= 27.  The default mode is
the buggy version (protocol versions <= 26).

Digest/Digest.pm  view on Meta::CPAN

304
305
306
307
308
309
310
311
312
313
314
315
third argument is the length of the (partial) last block.
 
Alternatively, I hope to add a --checksum-seed=n option to rsync that allows
the checksum seed to be set to 0.  This causes the checksum seed to be
omitted from the MD4 calculation and it makes caching the checksums much
easier.  A zero checksum seed does not weaken the block digest.
I'm not sure whether or not it weakens the file digest (the checksum
seed is applied at the start of the file digest and end of the block
digest).  In this case, the full 16 byte checksums should be computed
using:
 
    $digests16 = $rsDigest->blockDigest($data, $blockSize, 16, 0);

 view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
      "  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

207
208
209
210
211
212
213
214
215
216
217
    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

227
228
229
230
231
232
233
234
235
236
237
}
$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

Changes  view on Meta::CPAN

51
52
53
54
55
56
57
58
59
60
61
 
Changes:
 
* Accessors "mtime", "atime" and "ctime" return DateTime object.
* File is an argument for "stat" and "lstat" static methods only.
* Attribute "file" is not weaken anymore.
* Constraints are moved to MooseX::Types::* packages.
* Requires Sub::Exporter, DateTime and newer Exception::* classes.
* Build requires Test::Assert.
 
------------------------------------------------------------------------

 view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
      "  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

207
208
209
210
211
212
213
214
215
216
217
    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

227
228
229
230
231
232
233
234
235
236
237
}
$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/File/Write/Rotate.pm  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
# we must not use Log::Any, looping if we are used as log output
#use Log::Any '$log';
 
use File::Spec;
use IO::Compress::Gzip qw(gzip $GzipError);
use Scalar::Util qw(weaken);
#use Taint::Runtime qw(untaint is_tainted);
use Time::HiRes 'time';
 
our $Debug;

lib/File/Write/Rotate.pm  view on Meta::CPAN

152
153
154
155
156
157
158
159
160
161
162
    return $self->{_weak_lock} if defined($self->{_weak_lock});
 
    require File::Flock::Retry;
    my $lock = File::Flock::Retry->lock($self->lock_file_path);
    $self->{_weak_lock} = $lock;
    weaken $self->{_weak_lock};
    return $lock;
}
 
# will return \@files. each entry is [filename without compress suffix,
# rotate_suffix (for sorting), period (for sorting), compress suffix (for

 view release on metacpan or  search on metacpan

lib/File/ppport.h  view on Meta::CPAN

2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
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

ppport.h  view on Meta::CPAN

2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
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

2
3
4
5
6
7
8
9
10
11
 
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

101
102
103
104
105
106
107
108
109
110
111
    '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

134
135
136
137
138
139
140
141
142
143
144
    '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

2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
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

9436
9437
9438
9439
9440
9441
9442
9443
9444
9445
9446
9447
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

ppport.h  view on Meta::CPAN

2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
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

228
229
230
231
232
233
234
235
236
237
238
239
    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

114
115
116
117
118
119
120
121
122
123
124
  } 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

2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
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

41
42
43
44
45
46
47
48
49
50
51
Hypertext Application Language - L<https://en.wikipedia.org/wiki/Hypertext_Application_Language>
 
=cut
 
has ua => (
    weaken => 1,
    is => 'ro',
);
 
has _links => (
    is => 'ro',