src/grammar.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 my %grammar = (
   6     "quit"                  => "v_quit",
   7     "eat object"            => "v_eat",
   8     "eat the object"        => "v_eat",
   9     "shoot object"          => "v_shoot",
  10     "take object"           => "v_take",
  11     "give object to object" => "v_give",
  12 );
  13
  14 my %foo = (
  15     "v_take"  => { find => 'takebit', },
  16     "v_shoot" => { pre  => 'pre_shoot', },
  17 );