Inheritance (continued)

Now we modify by adding data or code:

    sub baz {
      my ($self) = @_;
      return $self->foo . " " . $self->bar;
    }

We could jump in front of our parent's foo and wrap it up:

    sub foo {
      my ($self) = @_;
      return "<foo>" . $self->SUPER::foo . "</foo>";
    }