comment on

I had a similar experience with Storable. Is there a big problem with simply cloning bar: %$ref = %$bar? Alternatively, what about making $ref into a proxy for $bar:

{
    package Proxy;
    our $AUTOLOAD;
    sub AUTOLOAD
    {
       my $self = shift;
       my $name = $AUTOLOAD;
       $name =~ s/.*://;
       return if $name eq 'DESTROY';
       $self->{bar}->$name(@_);
    }

    sub isa { (shift)->{bar}->isa(@_) }
    sub can { (shift)->{bar}->can(@_) }
}

sub some_sub {
    my $ref = shift;
    %$ref = (bar => $bar);
    bless $ref, "Proxy";
}
[download]

This code is untested, but I've had success with similar techniques. It assumes that $ref is a hash reference-type object, and that you never access the contents of the hash directly.

In reply to Re: How to change referent of lexical reference? by sandfly
in thread How to change referent of lexical reference? by autarch

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Don't ask to ask, just ask
	PerlMonks