sub reply {
  my $self = shift;
  if ($self->context eq 'teacher') {
    return "Yes, Teacher";
  else {
    return "Yes, Mommy.";
  }
}