Pegex AST expansion example

gistfile1.txt

#############################################################################
#
#      QUERY:
#            DEALLOCATE [PREPARE] <plan_name>
#
#############################################################################
DeallocateStmt  : DEALLOCATE PREPARE? (
     name { @->[0] }
   | ALL  { NULL   }
) {
   SQL::Transform::Statement::DQL::Deallocate->new( name => @->[0] )
}