Re: ASP setup using common set of C::DBI modules

[prev] [thread] [next] [Date index for 2004/07/28]

On Wed, Jul 28, 2004 at 04:33:38PM -0400, Michael Graham wrote:
> The code looks something like this:
>     package My::Class::DBI::Base;
>     use base 'Class::DBI';
>     use CLASS;
>     use My::Config;
>     use DBI;
> 
>     sub db_Main {
>         my ($dsn, $user, $pass) = My::Config->get_config('dbi_connection_info');
>         my %attr = CLASS->_default_attributes();
>         my $dbh = DBI->connect_cached($dsn, $user, $pass, \%attr);
> 
>         return $dbh;
>     }

One slight problem with this is your use of CLASS. This means that
subclasses can't provide their own default attributes.

You'd be better off here with:

     sub db_Main {
         my $class = shift;
         my ($dsn, $user, $pass) = My::Config->get_config('dbi_connection_info');
         my %attr = $class->_default_attributes();
         return DBI->connect_cached($dsn, $user, $pass, \%attr);
     }

Tony