Определить, существует ли процедура/метод

[novice2]

Помогите правильно определить в рантайме:
существует ли процедура с данным именем?
То же самое для пакета?
Например типа

sub createObj {
  my $class = \'Fruit\';
  my $class1 = \'Fruit::Apple\';

  if( ??exist??($class1) ){
    return $class1->new();
  }else{
    return $class1->new();
  }
}

Спасибо.

[novice2]

PS: что бы подставить вместо ??exist??($class1)

[Serchey]

Когда-то я делал так:

my $mod = My::Mod->new();
if($mod->can(\'some_function\'){
 print "Yoo! I CAN!!!!\\n";
} else {
 die "I didn\'t find such function!\\n";
}

[novice2]

спасибо.