Mercurial > pub > Impl

comparison Lib/IMPL/Object/Autofill.pm @ 180:d1676be8afcc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Перекодировка в utf-8
author sourcer
date Fri, 30 Dec 2011 23:40:00 +0300
parents 4267a2ac3d46
children 2ffe6f661605
comparison
equal deleted inserted replaced
179:b3d91ff7aea9 180:d1676be8afcc
31 sub _autofill_method { 31 sub _autofill_method {
32 my ($class) = @_; 32 my ($class) = @_;
33 33
34 $class = ref $class if ref $class; 34 $class = ref $class if ref $class;
35 35
36 # 36 # для автозаполнения нужен свой метод верхнего уровня
37 my $method; 37 my $method;
38 { 38 {
39 no strict 'refs'; 39 no strict 'refs';
40 $method = ${$class.'::'}{_impl_object_autofill}; 40 $method = ${$class.'::'}{_impl_object_autofill};
41 } 41 }