use Class;
use Class::SubClass;

my $obj = Class->new(...authentication vars...);

##</code><code>##

my $subobj = $obj->subclass->new();

##</code><code>##

my $subojb = Class::SubClass->new(...authentication vars...);

##</code><code>##

sub subclass {
    my $self = shift;
    return Class::SubClass->new(%{$self});
}