Im Pod solltest du =over =item =back statt "x)" verwenden.

Eine schnelle Demo-Moeglichkeit waere nett. Am besten ist es, wenn man das Makefile um ein "make demo" erweitert. Weiterhin koennte man die Demonstration auch "widget"-tauglich machen und in das demos-Verzeichnis installieren lassen. Das Makefile.PL zu Tk::Date koennte dir ein paar Anregungen geben.

Mein erster Versuch einer Pattern-Spezifikation sah so aus:
-pattern => qr/^\d{1,3}(\.(\d{1,3}(\.(\d{1,3}(\.(\d{1,3})?)?)?)?)?)?$/
Zuerst habe ich mich gewundert, warum das nicht geht, und dann die Manpage gelesen :-)

Noch eine weitere Idee, aber ich habe keine Ahnung, wie man das implementieren koennte: es gibt ein OO-Pattern namens "mixin". Damit koennen "Features" in eine Klasse eingebunden werden, ohne dass man inhertiance verwenden muss. So etwas wuerde sich auch hier anbieten, wenn man z.B. gleichzeitig ein Entry braucht, das eine History-Funktion wie in HistEntry und eine Check-Funktion wie in EntryCheck hat. Zurzeit muss man dafuer Code duplizieren, aber schoener waere es, wenn man einfach sagen koennte:

package Tk::HistEntryCheck;
use base "Tk::Entry";
use mixin "Tk::HistEntry::mixin";
use mixin "Tk::EntryCheck::mixin";
...

Keine Ahnung, wie man so etwas fuer Tk-Widgets implementieren kann. Fuer "normale" OO-Module funktioniert das CPAN-Modul mixin jedenfalls sehr gut.