package Tk::Widget;
use Tk::Entry;
# ...
sub MyEntry { # construcor
  # ...
  my $entry = $parent->Entry(.....);
}

##</code><code>##

package Tk::MyEntry;
require Tk::Widget;
use base qw(Tk::Entry);
Construct Tk::Widget 'MyEntry';
# ...

##</code><code>##

Can't locate object method "Construct" via package "Tk::Widget" at ...Tk/Frame.pm line 13...