Select Code to Download

sub eval_in_page_with_redefined_alert {
    my ($self,$str,$redefined_alert) = @_;
...
    my $uri = $self->uri;
    return @{ $eval_in_sandbox->("$uri",$window,$redefined_alert ) };
};

eval_in_page_with_redefined_alert($mech,$str, sub { print "Caught aler
+t(): @_" });