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
Product's homepage
Requirements:
· Perl