Jak ustalić, czy funkcja Perl istnieje w środowisku wykonawczym?

Question

Pracuję nad szkieletem testowym w Perlu. W ramach testów może być konieczne dodanie warunku wstępnego lub testów końcowych dla danego testu, ale niekoniecznie dla wszystkich z nich. Co mam tak daleko jest coś takiego:

eval "&verify_precondition_TEST$n"; 
print $@ if $@; 

Niestety, ten wyprowadza „Undefined podprogramów & verify_precondition_TEST1 zwane w ...”, jeśli funkcja nie istnieje.

Jak ustalić z góry, czy funkcja istnieje, przed próbą połączenia?

Answer 1

Z zdefiniowane:

if (eval "defined(&verify_precondition_TEST$n)") { 
    eval "&verify_precondition_TEST$n"; 
    print $@ if $@; 
} 
else { 
    print "verify_precondition_TEST$n does not exist\n"; 
} 

EDIT: hmm, ja tylko myślałem o eval, jak to było w pytaniu, ale z odniesieniami symbolicznymi wychowani Leon Timmermans, mogłem” możesz zrobić

if (defined(&{"verify_precondition_TEST$n"}) { 
    &{"verify_precondition_TEST$n"}; 
    print $@ if $@; 
} 
else { 
    print "verify_precondition_TEST$n does not exist\n"; 
} 

nawet przy ścisłym?

Answer 2

Package::Name->can('function') 

lub

*Package::Name::function{CODE} 

# or no strict; *{ "Package::Name::$function" }{CODE} 

lub po prostu żyć z wyjątkiem. Jeśli wywołasz funkcję w eval i ustawisz $ @, nie możesz wywołać tej funkcji.

Wreszcie, wydaje się, że możesz chcieć Test :: Class zamiast pisać to sam.

Edytuj: defined &function_name (lub wariant no strict; defined &{ $function_name }), jak wspomniano w innych odpowiedziach, wygląda najlepiej. UNIVERSAL :: can jest najlepszy dla czegoś, co nazwiesz metodą (stylistycznie) i dlaczego zawracasz sobie głowę tabelą symboli, gdy Perl daje ci składnię, by robić to, co chcesz.

Learning ++ :)

Answer 3

sub function_exists {  
    no strict 'refs'; 
    my $funcname = shift; 
    return \&{$funcname} if defined &{$funcname}; 
    return; 
} 

if (my $subref = function_exists("verify_precondition_TEST$n") { 
    ... 
} 

Answer 4

Użyłem podejścia Leona, ale gdy miałem wiele pakietów, nie udało się. Nie jestem pewien dokładnie dlaczego; Myślę, że dotyczy on propagacji zakresu między przestrzeniami nazw. To jest rozwiązanie, które wymyśliłem.

my %symbols =(); 
my $package =__PACKAGE__; #bring it in at run-time 
{ 
    no strict; 
    %symbols = %{$package . "::"}; #See Symbol Tables on perlmod 
} 
print "$funcname not defined\n" if (! defined($symbols{$funcname}); 

Referencje:
__PACKAGE__ odniesienia na stronie perlmod.

Packages/__PACKAGE__ odniesienie do szkolenia Perl Australia.