examples/tge/branch/lib/Branch.pir

   1 =head1 NAME
   2
   3 Branch - a sample branch node for Language::AttributeGrammar
   4
   5 =head1 DESCRIPTION
   6
   7 =cut
   8
   9 .namespace [ "Branch" ]
  10
  11 .sub "__onload" :load
  12     .local pmc base
  13     newclass base, "Branch"
  14     addattribute base, "left"            # left child
  15     addattribute base, "right"           # right child
  16     .return ()
  17 .end
  18
  19 # Local Variables:
  20 #   mode: pir
  21 #   fill-column: 100
  22 # End:
  23 # vim: expandtab shiftwidth=4: