The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
%whites    =  /([ \t]*(?:#.*)?)/
%token ID  =  /([A-Za-z][A-Za-z0-9_]*)/


%namingscheme { \&give_rhs_name }

%tree


%%
def:    param_spec return_spec ','
        ;
param_spec:
             type
        |    name_list ':' type
        ;
return_spec:
             type
         |   name ':' type
         |   ID BOGUS
         ;
type:        ID
        ;
name:        ID
        ;
name_list:
             name
        |    name ',' name_list
        ;
%%