Clone::Closure - A clone that knows how to clone closures
use Clone::Closure qw/clone/; my $total; sub count { my $count; return sub { $count++, $total++ }; } my $foo = count; my $bar = clone $foo; # $bar has its own copy of $count, but shares $total # with $foo.
This module provides a clone method which makes recursive copies of nested hash, array, scalar and reference types, including tied variables, objects, and closures.
clone
clone takes a scalar argument. To duplicate arrays or hashes, pass them in by reference, e.g.
my $copy = clone \@array; # or my %copy = %{ clone \%hash };
Sub (except for "Closures"), glob, format and IO refs are simply duplicated, not cloned.
Closures are cloned, unlike with Clone. Closed-over lexicals will be cloned if they were originally declared in a scope that could be run more than once, and shared otherwise.
That is, in the example in the "SYNOPSIS", $count is cloned as it is scoped to &count, which can run many times with different $count variables; but $total is shared as it is file-scoped, so there will only ever be one copy.
Generally speaking, clone will produce what might have been another copy of the closure, generated by the same means. However, see "BUGS" below.
The following types of magic are preserved:
shared variables
Cloning a shared variable creates a new shared variable, but it is not shared with any other threads yet. That is, the clone is only visible in this thread and any threads you create later.
tied variables
The tied object will also be cloned.
qr// compiled regexes
qr//
tainted values
Cloning a tainted value produces a tainted copy.
globs
Globs are not cloned. Cloning a glob returns the original glob.
weakrefs
Beware cloning weakrefs: cloning a reference also clones the object it refers to, and if there are no strong refs to this new object it will self-destruct before clone returns. For example,
my $sv = 5; my $ref = \$sv; weaken $ref; my $clone = clone $ref;
will result in $clone being undef, as the new clone of $sv has no (strong) referents. As weakrefs are normally used to break loops in self-referential structures, this should not happen often.
undef
custom magic (U, u, and ~ magics)
U
u
~
These will be cloned, and if the magic has a mg_obj that will be cloned too. This is not necessarily the right thing to do, depending on what the custom magic is being used for.
mg_obj
Boyer-Moore fast string search
vstring magic
UTF8 cache magic
These types of magic are not visible from Perl-space, and are used by perl to optimize certain operations.
All other types of magic are dropped when cloning, so for example
my $env = clone \%ENV;
will produce a normal hashref containing a copy of the environment.
Loops are currently not correctly recognized as 'scopes that may run more than once'. That is, given
my @subs; for my $i (1..10) { push @subs, sub { $i }; }
a clone of $subs[0] will share $i, which is probably not what you wanted. One possible workaround is to generate the closure in a sub, with its own lexical; for example
my @subs; sub make_closure { # this is important, so we get a new lexical my $i = shift; return sub { $i }; } for my $i (1..10) { push @subs, make_closure $i; }
A clone of $subs[0] will now have its own copy of $i.
Note that this behaviour will change in a future release; unfortunately, I can't provide a warning (as I haven't worked out how to detect loops...).
eval STRING
Under 5.6, lexicals which are closed over by eval STRING will always be cloned, never shared. That is, given
my $x; my $sub = eval 'sub { $x }';
a clone of $sub will have its own copy of $x, which is incorrect.
Fix the loop bug.
Do something sensible with fieldhashes.
Provide a means to specify what is cloned and what copied.
This module is based on Clone v0.23 by Ray Finch, <rdf@cpan.org>.
Clone is copyright 2001 Ray Finch.
This module is copyright 2007 Ben Morrow, <ben@morrow.me.uk>.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Clone, Storable.
To install Clone::Closure, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Clone::Closure
CPAN shell
perl -MCPAN -e shell install Clone::Closure
For more information on module installation, please visit the detailed CPAN module installation guide.