sub get_name {
   my $self = shift;
   return "Bob";
}