← Index
NYTProf Performance Profile   « block view • line view • sub view »
For ddd2.pl
  Run on Tue May 25 16:52:24 2010
Reported on Tue May 25 16:56:51 2010

File /project/perl/lib/Clone.pm
Statements Executed 18
Statement Execution Time 492µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
512833µs833µsClone::::cloneClone::clone (xsub)
11229µs29µsClone::::bootstrapClone::bootstrap (xsub)
0000s0sClone::::BEGINClone::BEGIN
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# $Id: Clone.pm,v 0.31 2009/01/20 04:54:37 ray Exp $
2package Clone;
3
4389µs125µsuse strict;
# spent 25µs making 1 call to strict::import
53102µs1242µsuse Carp;
# spent 242µs making 1 call to Exporter::import
63196µs1421µsuse vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
# spent 421µs making 1 call to vars::import
7
817µsrequire Exporter;
915µsrequire DynaLoader;
1015µsrequire AutoLoader;
11
12111µs@ISA = qw(Exporter DynaLoader);
13# Items to export into callers namespace by default. Note: do not export
14# names by default without a very good reason. Use EXPORT_OK instead.
15# Do not simply export all your public functions/methods/constants.
1615µs@EXPORT = qw();
1717µs@EXPORT_OK = qw( clone );
18
1915µs$VERSION = '0.31';
20
21135µs110.6msbootstrap Clone $VERSION;
# spent 10.6ms making 1 call to DynaLoader::bootstrap
22
23# Preloaded methods go here.
24
25# Autoload methods go after =cut, and are processed by the autosplit program.
26
27125µs1;
28__END__
29
30=head1 NAME
31
32Clone - recursively copy Perl datatypes
33
34=head1 SYNOPSIS
35
36 use Clone;
37
38 push @Foo::ISA, 'Clone';
39
40 $a = new Foo;
41 $b = $a->clone();
42
43 # or
44
45 use Clone qw(clone);
46
47 $a = { 'foo' => 'bar', 'move' => 'zig' };
48 $b = [ 'alpha', 'beta', 'gamma', 'vlissides' ];
49 $c = new Foo();
50
51 $d = clone($a);
52 $e = clone($b);
53 $f = clone($c);
54
55=head1 DESCRIPTION
56
57This module provides a clone() method which makes recursive
58copies of nested hash, array, scalar and reference types,
59including tied variables and objects.
60
61
62clone() takes a scalar argument and an optional parameter that
63can be used to limit the depth of the copy. To duplicate lists,
64arrays or hashes, pass them in by reference. e.g.
65
66 my $copy = clone (\@array);
67
68 # or
69
70 my %copy = %{ clone (\%hash) };
71
72
73For a slower, but more flexible solution see Storable's dclone().
74
75=head1 AUTHOR
76
77Ray Finch, rdf@cpan.org
78
79Copyright 2001 Ray Finch.
80
81This module is free software; you can redistribute it and/or
82modify it under the same terms as Perl itself.
83
84=head1 SEE ALSO
85
86Storable(3).
87
88=cut
# spent 29µs within Clone::bootstrap which was called # once (29µs+0s) by DynaLoader::bootstrap at line 253 of DynaLoader.pm
sub Clone::bootstrap; # xsub
# spent 833µs within Clone::clone which was called 5 times, avg 167µs/call: # 5 times (833µs+0s) by Class::DBI::_extend_meta at line 1040 of Class/DBI.pm, avg 167µs/call
sub Clone::clone; # xsub