package GUI::Komponenten;

=head1 METHODEN

=head2 my_button

Völlig sinnfrei....

=cut

sub my_button {
    my $self = shift;
    my $top = shift;
    my $opts = shift;

    # Fehlerbehandlung von Parametern hier...

    return $top->Button(-text => 'Spezialbutton bei dem man den Text nicht angeben kann', -command => sub{ $opts->{-command}; });

} # /my_button

1;

# Instanz:

use strict;
use warnings;
use Tk;

my $mw = tkinit();

my $b = GUI::Komponenten->my_button($mw, {-command => sub{ meine_methode(@_) },});

$b->pack();

$mw->MainLoop();

# Dokumentation....

sub meine_methode {
    # denk dir was
}