trAvis - MANAGER

Edit File: demo_autostub.pl

#!/usr/bin/perl -ws # use strict; use Parse::RecDescent; print 1 if Parse::RecDescent->new(<<'EOGRAMMAR')->file(join "", <DATA>); <autostub> file: defn(s) defn: 'def' ident ':' block block: '{' item(s) '}' EOGRAMMAR __DATA__ def ident : { item item item }