Help for this page

Select Code to Download


  1. or download this
    sub eval_in_page_with_redefined_alert {
        my ($self,$str,$redefined_alert) = @_;
    ...
        my $uri = $self->uri;
        return @{ $eval_in_sandbox->("$uri",$window,$redefined_alert ) };
    };
    
  2. or download this
    eval_in_page_with_redefined_alert($mech,$str, sub { print "Caught aler
    +t(): @_" });