package Widget;
use WingNut;

sub new {
    # Doesn't matter
}

sub Method {
    my $self= shift( @_ );
    $self->{SubObj}= new WingNut(@_); # oops!!
}