Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor fixes
author wizard
date Mon, 27 Sep 2010 19:15:34 +0400
parents 44977efed303
children 6ce1f052b90a
comparison
equal deleted inserted replaced
152:1e7f03414b65 153:3765adf1803f
63 no strict 'refs'; 63 no strict 'refs';
64 64
65 exists $class_data{$_}{$name} and return $class_data{$_}{$name} foreach @{"${class}::ISA"}; 65 exists $class_data{$_}{$name} and return $class_data{$_}{$name} foreach @{"${class}::ISA"};
66 66
67 my $val; 67 my $val;
68 $val = $_->_find_class_data($name) and return $val foreach @{"${class}::ISA"}; 68 $val = $_->can('_find_class_data') ? $_->_find_class_data($name) : undef and return $val foreach @{"${class}::ISA"};
69 } 69 }
70 70
71 1; 71 1;
72 72
73 __END__ 73 __END__