More Code 

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

  $text =~ s/\s+\Z//;
  return $text;
}