[TxMt] qq in Perl bundle again

[Allan Odgaard]

On 07/10/2005, at 5.28, Gerd Knops wrote:

> Speaking of perl, any specific reason why 'sub' is not defined as  
> keyword or anything else?

Nope…

> I use the hack below, which I am sure is not quite appropriate.

It's pretty close to what we use (for naming), I changed the existing  
function match to:

         {   name = 'meta.function.perl';
             match = '^\s*(sub)\s*([-a-zA-Z0-9_]+)\s*(?:\((.*?)\))?';
             captures =
             {   1 = { name = 'storage.type.sub.perl'; };
                 2 = { name = 'entity.name.function.perl'; };
                 3 = { name = 'variable.parameter.perl'; };
             };
         },