--- a/Lib/IMPL/Class/Meta.pm	Tue May 24 01:11:16 2011 +0400
+++ b/Lib/IMPL/Class/Meta.pm	Mon Jun 06 03:30:36 2011 +0400
@@ -1,7 +1,7 @@
 package IMPL::Class::Meta;
 use strict;
 
-use Storable qw(dclone);
+use Clone qw(clone);
 
 my %class_meta;
 my %class_data;
@@ -49,7 +49,7 @@
 			$class_data{$class}{$name};
 		} else {
 			if ( my $value = $class->_find_class_data($name) ) {
-				$class_data{$class}{$name} = dclone($value);
+				$class_data{$class}{$name} = clone($value);
 			} else {
 				undef;
 			}