Perl TK несколько команд на одной кнопке

Question

Я хотел бы сделать, это иметь кнопку, чтобы закрыть свое окно (button_window), но и вызвать функцию (user_info):

my $btn = $main -> Button (-text => 'Start', 
-command => sub {$button_window -> destroy}, 
-command => \&user_info) 
-> pack(); 

его выполняющийся только последний команда заранее заблаговременно

Answer 1

Суб может принимать любое количество вызовов другим абонентам.

my $btn = $main->Button(
    -text => 'Start', 
    -command => sub { 
     user_info(); 
     # do something else... 
     $button_window->destroy; 
    }, 
)->pack(); 

Это выполняет только последнюю команду, так как параметр хэш может иметь только один «-command» ключ, так перезаписывается.