| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Clone::Any; |
|
2
|
|
|
|
|
|
|
|
|
3
|
7
|
|
|
7
|
|
5822
|
use strict; |
|
|
7
|
|
|
|
|
12
|
|
|
|
7
|
|
|
|
|
287
|
|
|
4
|
|
|
|
|
|
|
|
|
5
|
7
|
|
|
7
|
|
17143
|
use Devel::UseAnyFunc '-isasubclass'; |
|
|
7
|
|
|
|
|
8059
|
|
|
|
7
|
|
|
|
|
184
|
|
|
6
|
|
|
|
|
|
|
|
|
7
|
7
|
|
|
7
|
|
492
|
use vars qw($VERSION $EXPORT @SOURCES); |
|
|
7
|
|
|
|
|
16
|
|
|
|
7
|
|
|
|
|
622
|
|
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
BEGIN { |
|
10
|
7
|
|
|
7
|
|
17
|
$VERSION = 1.01; |
|
11
|
|
|
|
|
|
|
|
|
12
|
7
|
|
|
|
|
14
|
$EXPORT = 'clone'; |
|
13
|
7
|
|
|
|
|
494
|
@SOURCES = ( |
|
14
|
|
|
|
|
|
|
'Clone' => 'clone', |
|
15
|
|
|
|
|
|
|
'Util' => 'clone', |
|
16
|
|
|
|
|
|
|
'Storable' => 'dclone', |
|
17
|
|
|
|
|
|
|
'Clone::PP' => 'clone', |
|
18
|
|
|
|
|
|
|
'Class::MakeMethods::Utility::Ref' => 'ref_clone', |
|
19
|
|
|
|
|
|
|
); |
|
20
|
|
|
|
|
|
|
} |
|
21
|
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
sub import { |
|
23
|
7
|
|
|
7
|
|
52
|
my ( $self, $name, @sources ) = @_; |
|
24
|
7
|
50
|
66
|
|
|
90
|
$self->SUPER::import( $name || $EXPORT, @sources ? @sources : @SOURCES ); |
|
25
|
|
|
|
|
|
|
} |
|
26
|
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
1; |
|
28
|
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
__END__ |