ACIL FM

Nama	Ukuran	Aksi
auto	-	Open
common	-	Open
Compress	-	Open
Data	-	Open
DBD	-	Open
DBI	-	Open
Devel	-	Open
Digest	-	Open
Encode	-	Open
File	-	Open
Filter	-	Open
HTML	-	Open
IO	-	Open
IPC	-	Open
JSON	-	Open
List	-	Open
Math	-	Open
MIME	-	Open
Net	-	Open
Params	-	Open
POD2	-	Open
Scalar	-	Open
Sub	-	Open
Sys	-	Open
Term	-	Open
Text	-	Open
threads	-	Open
Time	-	Open
Unicode	-	Open
version	-	Open
YAML	-	Open
Clone.pm	2.29 MB	View DL Edit
Cwd.pm	21.43 MB	View DL Edit
DBI.pm	310.74 MB	View DL Edit
dbixs_rev.pl	1.51 MB	View DL Edit
DB_File.pm	65.43 MB	View DL Edit
Encode.pm	31.33 MB	View DL Edit
encoding.pm	22.41 MB	View DL Edit
Socket.pm	36.16 MB	View DL Edit
Storable.pm	48.75 MB	View DL Edit
threads.pm	37.06 MB	View DL Edit
version.pm	3.47 MB	View DL Edit
version.pod	9.6 MB	View DL Edit

Edit file: /lib64/perl5/vendor_perl/Clone.pm

package Clone;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);

require Exporter;
require DynaLoader;
require AutoLoader;

@ISA       = qw(Exporter DynaLoader);
@EXPORT    = qw();
@EXPORT_OK = qw( clone );

$VERSION = '0.45';

bootstrap Clone $VERSION;

1;
__END__

=head1 NAME

Clone - recursively copy Perl datatypes

=for html
<a href="https://travis-ci.org/garu/Clone"><img src="https://travis-ci.org/garu/Clone.png?branch=master" alt="Build Status"></a>
<a href="https://coveralls.io/r/garu/Clone?branch=master"><img src="https://coveralls.io/repos/garu/Clone/badge.png?branch=master" alt="Coverage Status"></a>
<a href="https://metacpan.org/pod/Clone"><img src="https://badge.fury.io/pl/Clone.svg" alt="CPAN version"></a>

=head1 SYNOPSIS

use Clone 'clone';

my $data = {
       set => [ 1 .. 50 ],
       foo => {
           answer => 42,
           object => SomeObject->new,
       },
    };

my $cloned_data = clone($data);

$cloned_data->{foo}{answer} = 1;
    print $cloned_data->{foo}{answer};  # '1'
    print $data->{foo}{answer};         # '42'

You can also add it to your class:

package Foo;
    use parent 'Clone';
    sub new { bless {}, shift }

package main;

my $obj = Foo->new;
    my $copy = $obj->clone;

=head1 DESCRIPTION

This module provides a C<clone()> method which makes recursive
copies of nested hash, array, scalar and reference types,
including tied variables and objects.

C<clone()> takes a scalar argument and duplicates it. To duplicate lists,
arrays or hashes, pass them in by reference, e.g.

my $copy = clone (\@array);

# or

my %copy = %{ clone (\%hash) };

=head1 SEE ALSO

L<Storable>'s C<dclone()> is a flexible solution for cloning variables,
albeit slower for average-sized data structures. Simple
and naive benchmarks show that Clone is faster for data structures
with 3 or fewer levels, while C<dclone()> can be faster for structures
4 or more levels deep.

=head1 COPYRIGHT

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

Ray Finch C<< <rdf@cpan.org> >>

Breno G. de Oliveira C<< <garu@cpan.org> >> and
Florian Ragwitz C<< <rafl@debian.org> >> perform routine maintenance
releases since 2012.

=cut

Batal