"Class::Next=HASH(0xdeadbeef)"->new()

##</code><code>##

    sub new {
        my $class= shift(@_);
        Carp::croak "Usage: ",__PACKAGE__,"->new( ... )"
            if  ref $class;
        # ...
    }

##</code><code>##

    sub Foo::new {
        my $class= shift(@_);
        return bless [@_], ref($class)||$class;
    }

##</code><code>##

    sub Bar::new {
        my $class= shift(@_);
        return bless [@_], $class;
    }

##</code><code>##

    my $obj= Bar->new(1,2,3);
    my $other= $obj->new(4,5,6);
    $other->twirl();

    Can't locate object method "twirl" via package "Bar=ARRAY(0xbadd0g5)"

##</code><code>##

    my $key= Win32::TieRegistry->new(
        "NameOfRegistryKeyToOpen",
        {
            Delimiter=>"/",
            ArrayValues=>1,
            # Lots of other options
        },
    );

##</code><code>##

    my $key= $Registry->new( "NameOfRegistryKeyToOpen" );