sub maker
{
     no strict 'refs';

     foreach my $func (qw[ foo bar baz ])
     {
          *{"Foo::$func"} = sub { $func };
     }
}

maker();

print join(',', Foo::foo(), Foo::bar(), Foo::baz()),"\n";