Программирование > Perl

ref()

<< < (2/2)

Phoinix:
ctax

Вариант 1:

my $obj = new Some::Module;
my $module_name = ref $obj;
my $sub_name = $module_name.\'::fun\';
my $sub_module = \\&$sub_name;

Вариант 2:

my $obj = new Some::Module;
my $sub_module = $obj->can(\'fun\');


P.S. Естественно не забыть сделать проверку на существование метода в объекте, тем же can:

if ($obj->can(\'fun\')) {
...

ctax:
Спасибо большое

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница