Select Code to Download

sub allow_morph { 1 }

# OR 

my $app = MyApp->new({allow_morph => 1});

sub test_step_module_package { 'MyTestStepModule' }

#!/usr/bin/perl -w

...
use base qw(Foo);

sub file_print { return \ "Great!  You got here!\n" }

Content-Type: text/html

Great!  You got here!

use CGI::Ex::Dump qw(debug);
sub post_navigate {
    debug shift->dump_history;
}

debug: cgi-bin/foo.pl line 15
  shift->dump_history = [
...
            "    main - post_print - post_print - 0.00001 - 0",
            "main - unmorph - unmorph (changed from Foo::Main to Foo) 
+- 0.00000 - 1"
          ];