Hook - emacs-like support for event hooks
What the end program does:
use User; use User::EmailMe; # ... $user->save();
A hypothetical user module:
package User; use Hook;
register_hook 'user-add-hook',
'This hook is called after a user is added';
sub save {
# ...
call_hook 'user-add-hook', $user;
}
A hypothetical add-on module:
package User::EmailMe;
add_hook 'user-add-hook', \&email_me,
'This subroutine emails a defined address when a user is added.';
Hooks allow the programmer to define an appropriate time for add-on modules to execute.
John Borwick <borwicjh@wfu.edu>