Select Code to Download

repl.link = function(obj) {
    if (! repl.linkedVars) {
...
    } else {
        return undefined
    }

sub link {
    my ($repl,$obj) = @_;
...
        return undef
    };
};

package MozRepl::RemoteObject;
sub new {
...
    my ($class, $js) = @_;
    return $class->new( javascript_eval($js)); # assuming that it retu
+rns an object
};

sub DESTROY {
    my ($self) = @_;
...
        $self->expr("repl.breakLink($self->{id})");
    };
};

repl.breakLink = function(id) {
    delete repl.linkedVars[ id ];
}

sub breakLink {
    my ($repl,$id) = @_;
    delete $repl->{linkedVars}->{id};
    
};

my $doc_a = MozRepl::RemoteObject->expr('window.document'); # id 42
my $doc_b = MozRepl::RemoteObject->expr('window.document'); # id 43