view release on metacpan or search on metacpan
lib/File/Assets/Filter.pm view on Meta::CPAN
use Object::Tiny qw/cfg where signature/;
use File::Assets::Carp;
use Digest;
use Scalar::Util qw/weaken/;
for my $ii (qw/matched mtime assets bucket slice/) {
no strict 'refs';
*$ii = sub {
my $self = shift;
lib/File/Assets/Filter.pm view on Meta::CPAN
my $class = shift;
my $self = $class->SUPER::new;
local %_ = @_;
# $self->{assets} = $_{assets};
# weaken $self->{assets};
$self->{cfg} = {};
while (my ($setting, $value) = each %default) {
$self->cfg->{$setting} = exists $_{$setting} ? $_{$setting} : $value;
lib/File/Assets/Filter.pm view on Meta::CPAN
my $class = shift;
my $self = $class->SUPER::new;
local %_ = @_;
$self->{assets} = $_{assets};
weaken $self->{assets};
my $where = $_{where};
if ($_{type}) {
croak "You specified a type AND a where clause" if $where;
$where = {
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/File/Copy/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
lib/File/DataClass/Storage.pm view on Meta::CPAN
This hash reference is used to customise the decoder object used when
reading the file. It defaults to an empty reference
=item C<schema>
A weakened schema object reference
=item C<write_options>
This hash reference is used to customise the encoder object used when
writing the file. It defaults to an empty reference
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/File/FStore.pm view on Meta::CPAN
use Carp;
use DBI;
use File::Spec;
use Data::Identifier;
use Data::Identifier::Generate;
use Scalar::Util qw(weaken);
use File::FStore::File;
use parent 'Data::Identifier::Interface::Known';
lib/File/FStore.pm view on Meta::CPAN
foreach my $key (keys %_types) {
my $v = delete $opts{$key};
next unless defined $v;
croak 'Invalid type for key: '.$key unless eval {$v->isa($_types{$key})};
$self->{$key} = $v;
weaken($self->{$key}) if $weak;
}
if (defined(my $link_style = delete $opts{link_style})) {
$link_style = DEFAULT_LINK_STYLE if $link_style eq 'default';
croak 'Not a valid link style: '.$link_style unless defined $_valid_link_styles{$link_style};
lib/File/FStore.pm view on Meta::CPAN
my $v = delete $opts{$key};
next unless defined $v;
croak 'Invalid type for key: '.$key unless eval {$v->isa($_types{$key})};
$self->{$key} //= $v;
croak 'Missmatch for key: '.$key unless $self->{$key} == $v;
weaken($self->{$key}) if $weak;
}
croak 'Stray options passed' if scalar keys %opts;
}
lib/File/FStore.pm view on Meta::CPAN
This does not affect already existing files.
=item C<weak>
Marks the value for C<db>, C<extractor>, C<fii> as weak.
If only a specific one needs needs to be weaken use L</attach>.
=back
=head2 close
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/File/Gettext/Storage.pm view on Meta::CPAN
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
" 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/File/Information/Deep.pm view on Meta::CPAN
use warnings;
use parent 'File::Information::Base';
use Carp;
use Scalar::Util qw(weaken);
use Fcntl qw(SEEK_SET);
our $VERSION = v0.16;
my %_PNG_colour_types = ( # namespace: 4c11d438-f6f3-417f-85e3-e56e46851dae
lib/File/Information/Deep.pm view on Meta::CPAN
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')};
eval { $pv->{mediatype} = {raw => $parent->get('mediatype', lifecycle => 'current', as => 'mediatype')} };
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
lib/File/KDBX/Object.pm view on Meta::CPAN
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
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
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
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
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
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
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
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
$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
* 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
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
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
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
# 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
include/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
lib/File/Replace/SingleHandle.pm view on Meta::CPAN
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
$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
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
#
#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
# $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
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
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
" 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
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
" 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
lib/File/Write/Rotate.pm view on Meta::CPAN
# 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
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
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