Help for this page

Select Code to Download


  1. or download this
    package Op;
sub new {
...
@ISA = qw[Op];
sub precedence { 100 }
sub display { $_[0][0] }
  2. or download this
    Op::Multiplication->new(
  Op::Term->new(5),
...
  )
)->display;
# 5 + 6 * 7