Inheritance: A Derived Class

package Pope;

use base 'Person';

sub new {
  my $class = shift;

  my $self = $class->SUPER::new(@_);

  $self->_init_pope_name;

  return $self;
}

sub _init_pope_name {
  shift->{pope_name} = 'Ugly Bob VII';
}

sub pope_name {
  return shift->{pope_name};
}

1;