Mozilla::PromptService 0.03

Mozilla::PromptService is a Perl interface to the Mozilla nsIPromptService.

SYNOPSIS

use Mozilla::PromptService;

Mozilla::PromptService::Register({
Alert => sub {
my ($parent, $title, $dialog_text) = @_;
# do something smart on alert ...
},
# Prompt callback should return result
Prompt => sub { return "Prompt Result" },
DEFAULT => sub {
my ($name, $parent, $title, $dialog_text) = @_;
# some other confirmation is needed
}
}

Mozilla::PromptService uses Mozilla nsIPromptService to allow perl callbacks on prompt events.

For a much more detailed information on nsIPromptService see documentation on mozilla.org