package meta; use strict; use warnings; sub replaceMeta { return ( [qr/PhilsImpl/ => \&generateMcMeta], ); } sub generateMcMeta { my ($context, $next) = @_; return "goto mcMeta($context, $next);"; } 1;