package Foo;

use base 'CGI::Application';
use Bar;
@ISA = ("bar");


sub cgiapp_init {

my $foo = new_foo();
print "foo = $foo\n";
}

sub setup {


  my $self = shift;
  $self->start_mode('mode1');
  $self->run_modes(
    'mode1' => 'sub1',
    'mode2' => 'sub2',
    'mode3' => 'sub3'
  );
  $self->tmpl_path('/applicant');
}

sub new_foo {
  my $class=shift;
  $class=ref($class)|| $class;
  
  my $foo = {
       stuff => '',
       morestuff => '',
       super => Bar->new()
     };
  bless ($foo, $class);
}

sub sub1 {
  print "Show some stuff\n";
}

1;