package MyApp;
use base 'MyAuth';
use strict;
use warnings;

sub setup {
   my $self = shift;
   my $output = "<p><H3>sub MyApp::setup entered</H3></p>";
   $self->start_mode('show_survey');
   $self->run_modes([
      'show_survey',
      'save_survey'
   ]);
   return $output;
}

sub show_survey {
   my $self = shift;
   my $output = "<p><H3>sub MyApp::show_survey entered</H3></p>";
   return $output;
}

sub save_survey {
   my $self = shift;
   my $output = "<p><H3>sub MyApp::save_survey entered</H3></p>";
   return $output;
}

1;