package LeafNode;
...
sub accept {
    my($self, $visitor) = @_;
    $visitor->visit_leaf($self);
}