diff Lib/IMPL/Class/Meta.pm @ 153:3765adf1803f

minor fixes
author wizard
date Mon, 27 Sep 2010 19:15:34 +0400
parents 44977efed303
children 6ce1f052b90a
line wrap: on
line diff
--- a/Lib/IMPL/Class/Meta.pm	Thu Sep 23 03:58:43 2010 +0400
+++ b/Lib/IMPL/Class/Meta.pm	Mon Sep 27 19:15:34 2010 +0400
@@ -65,7 +65,7 @@
 	exists $class_data{$_}{$name} and return $class_data{$_}{$name}	foreach @{"${class}::ISA"};
 		
 	my $val;
-	$val = $_->_find_class_data($name) and return $val foreach @{"${class}::ISA"}; 
+	$val = $_->can('_find_class_data') ? $_->_find_class_data($name) : undef and return $val foreach @{"${class}::ISA"}; 
 }
 
 1;