$mw->Button(command => $self->can('func1'))->pack;

##</code><code>##

$mw->Button(command => sub { $self->func1($a, @_) })->pack;