use strict "object"

##</code><code>##

my $obj= new Neural::Net( "adaptive" );

##</code><code>##

package Widget;
use WingNut;

sub new {
    # Doesn't matter
}

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