my @methods_q = map "sub { \$_[0]->GreenPartyDB::Database::$method( \@_[ 1 .. \$#_ ] ) }", @methods; my $method_c = join ", ", @method_c; eval qq[ package GreenPartyDB::Database::${table}; use Class::Delegation send => '$hook', to => [ $method_c ];