More Code 

sub format {
  my($self, $text) = @_;

  return $text;
}