I don't think this is correct. Try the following:

package Foo;
sub new {
    my $class = shift;
print "In Foo with '$class'\n";
    return bless {}, $class;
}

package Bar;

@ISA = qw(Foo);

sub new {
    my $class = shift;

    my $self = $class->SUPER::new;
print "In Bar with a self of '$self'\n";
    return $self;
}
[download]

Now, I'm assuming that all classes in this hierarchy are using the two-arg form of bless. If they are, then $class will be passed around and it will be the child class.