package Father;
use warnings;
use strict;

sub new {
  my $class = shift;
  my $self  = {};
  bless ($self, $class);
  return $self;
}


# INTERFACE
sub aText {
  #implement
  die('Parent aText');
}

sub aList {
  # implement
  die('Parent aList');
}
1;