package ReblessKids;

use strict;
use warnings;

use Scalar::Util 'blessed';

sub do_something
{
    my $self = shift;
    ...

    my $class = blessed $self;
    return $class->new( ... );
}