Help for this page
eval { my $foo = OurParentPackage->new; $SIG{__WARN__} = sub { die @_ }; ... my $self = shift; # code to add a 'WidgetTwo' would go here. }