NAME Function::Register - Create Function Registries and Register Functions SYNOPSIS package Company::Employee; use Function::Register; set_register 'Type'; sub employee_type { my $self = shift; for ( @Type ) { my $retval = $_->($self); return $retval if $retval; } return; } # meanwhile, in some other package package Company::Employee::Executive; use Function::Register 'Company::Employee'; register Type => \&is_cto; register Type => \&is_ceo; sub is_cto { ... } sub is_ceo { ... } # meanwhile, in your program use Company::Employee; use Company::Employee::Executive; DESCRIPTION This module allows you to declare registers in your namespace, and update registers in other modules. Exports There are two ways to use this modules. As the Registry use Function::Register; As the registry you simply use the module without any arguments. This will export the "set_register" function. It will also create a default register in your namespace called @REGISTER. As the Registrant use Function::Register qw[Some::NameSpace]; As the registrant you use the module with a single argument. This will export the "register" function. It will remember what namespace you want to add to each time you call "register". Functions set_registry set_registry 'Name'; This function creates a new register in your namespace. A register is a package array of the same name. The call above creates an array, @Name, in your namespace. register register sub { ... }; register Name => \&function_ref; This function registeres functions in the namespace you've declared as your registrant. If a single argument is given the function is added to the default registry. If two arguments are given, the first is the name of of the register and the second is a function. This function returns a false value if it was unable to add the function to the register. This may be because the register name does not exist, or the function argument isn't a code reference. If "register" is successful it returns true. die "Couldn't add to register" unless register \&some_func; SEE ALSO For a more OO and "do it all for me behind my back" approach, see Module::Pluggable. perl. AUTHOR Casey West, . COPYRIGHT Copyright (c) 2004 Casey West. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.