Are you going to need the procedure anymore or is it just for this use statement? If it's just to the use you can do it like this:

use Alzabo::MethodMaker(
    schema => 'greenpartydb',
    class_root => 'GreenPartyDB::Database',
    all => 1,
    name_maker => sub {
      ....
    }
);
[download]

Jenda
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
   -- Rick Osborne

Edit by castaway: Closed small tag in signature