[cgiapp] $self->param misunderstanding

[fyzicle feecher]

I'm clearly not understanding something here.  I'm trying to use $self-param() the
same way it's used in the docs.  The print statement in setup prints "mydbh" instead
of the DBI reference.  If I uncomment the $dog lines, it prints the DBI reference
fine.

I'm in WinXP with ActiveState Perl 5.6.1 and CGI::Application 2.4.  It behaves
identically if I run it through IIS or from the command line.

Thanks for any help and congrats on a very cool and well-designed module.  I'm going
to scour the mailing list when I get a chance.

Here's a stripped version of my app module:

#####################################
package MyApp;
use base 'CGI::Application';
use strict;

use CGI qw/:standard/;
use DBI;
use HTML::Template;

sub setup {
   my $self = shift;
   $self->start_mode('page1');
   $self->run_modes(
                'page1' => 'page1'
   );
   
   $self->param('mydbh' => DBI->connect('dbi:ODBC:TestDatabase'));
   print $self->param('mydbh') . "\n\n";

#  my $dog = DBI->connect('dbi:ODBC:TestDatabase');
#  print $dog;
}

sub page1 {
   my $self = shift;
   my $dbh = $self->param('mydbh');
   my $template = HTML::Template->new(filename => 'page1.tmpl');
   
   my $pos_ref = $dbh->selectcol_arrayref("select Position from Positions");
   # do other stuff

   return $template->output;
}
1;
#####################################

and here's my instance script:

#####################################
#!/usr/bin/perl -w
use strict;
use MyApp;
my $myapp = MyApp->new();
$myapp->run();
#####################################

__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com

---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/cgiapp@lists.vm.com/
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]