use strict;
use warnings;

# Can't locate object method "new" via package "Test1"
my $test1 = new Test1;

package Test;

sub new {
        my $proto = shift;
        my $class = ref($proto) || shift;
        my $self = {};
        return bless $self, $class;
}

package Test1;
@Test1::ISA = qw(Test);

##</code><code>##

package Test1;
use vars qw(@ISA);
@ISA = qw(Test);