sub anon_ref {
        $N ||= 1;
        
        my $name = sprintf "var%04d", $N;
        my $ref = \${ 'NAMESPACE::' . $name };
        delete $NAMESPACE{ $name };
        $N++;
        
        return ($ref);
    }

##</code><code>##

    sub My_object::new {
        my ($type, @data) = @_;
        $N ||= 1;
        
        my $name = sprintf "var%04d", $N;
        my $object = \${ 'NAMESPACE::' . $name };
        delete $NAMESPACE{ $name };
        $N++;
        
        bless $object, $type;
        $object->configure_with (@data);
        
        return ($object);
    }

##</code><code>##

    sub My_object::new {
        my $O = bless anon_ref(), shift;
        $O->configure_with (@_);
        return ($O);
    }