command timed-out at ...
[download]

most likely means that there was some error in the communication between Firefox and MozRepl::Client. You can switch the logging to debug to see what the offending command is. So far, I have not tested WWW::Mechanize::Firefox against Firefox 7, so I don't know what might go wrong.

Does the MozRepl::RemoteObject testsuite pass? Do the WWW::Mechanize::Firefox tests pass?

I've changed mozrepl plugin manually for install.rdf to support firefox 7.0. And now the perl script stops at the above point, any solutions?

Downgrade to firefox 6 :)

At least for me, both, MozRepl::RemoteObject and WWW::Mechanize::Firefox pass their test suite(s) on Firefox 7 beta 5. If you have contrary findings please report them here, but it seems to be something more special to your environment than a general incompatibility.

Really passed? At least during my try, following error comes always, seems firefox 7 does not support NONE-Name functions.

MozRepl::RemoteObject: SyntaxError: function statement requires a name at C:/Per l/site/lib/Firefox/Application.pm line 375

The problem never happens in before firefox releases in my platform.

I dive out the problem might be that firefox 7 does not support anonymous functions.

sub browser {
    my ($self,$repl) = @_;
    $repl ||= $self->repl;   
    print "repl: $repl\n";
    return $repl->declare(<<'JS')->();
    function () {      
        
        var wm = Components.classes["@mozilla.org/appshell/window-medi
+ator;1"]
                           .getService(Components.interfaces.nsIWindow
+Mediator);
        var win = wm.getMostRecentWindow('navigator:browser');
        if (! win) {
          // No browser windows are open, so open a new one.
          win = window.open('about:blank');
        };
        return win.gBrowser
        //return win.getBrowser()
}    

    
JS
};



sub declare {
    my ($self,$js,$context) = @_;
    print "1:$self; 2:$js;3:$context\n ";
  
    if (! $self->{functions}->{$js}) {
        $self->{functions}->{$js} = $self->expr($js);
        # Weaken the backlink of the function
        my $res = $self->{functions}->{$js};
        my $ref = ref $res;
        bless $res, "$ref\::HashAccess";
        weaken $res->{bridge};
        $res->{return_context} = $context;
        bless $res => $ref;
    };

    $self->{functions}->{$js}

};
[download]

If I manually change the function () to function abc(), then repl can not get any references:

Can't bless non-reference value at C:/Perl/site/lib/MozRepl/RemoteObject.pm

How to solve this issue?