package Node;
  ...
  sub isLeaf { 0 }
  ...
  package Leaf;
  ...
  sub isLeaf { 1 }

##</code><code>##

  if ( $o->isLeaf() ) { ...

##</code><code>##

  if ( $o->[$Node::isLeaf] ) { ...