Select Code to Download

    sub anon_ref {
        $N ||= 1;
...
        
        return ($ref);
    }

    sub My_object::new {
        my ($type, @data) = @_;
...
        
        return ($object);
    }

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