Help for this page
package Lookup; sub new { # gets some config file }; ... User->init({ source => 'Lookup::Remote', }); my $user = User->new({ id => 1234, });
package User; ... our $USER_LOOKUP_SOURCE = LookupFactory->new('Remote'); my $user = User->new({ id => 1234, });