Select Code to Download

use base 'CGI::Application';
use CGI::Application::Plugin::DBH (qw/dbh_config dbh/);
...
                { RaiseError => 1 }
                ]);
}

sub get_setup {
    my $self = shift;
...
    
    return \%setup;
}

'__DBH_CONFIG' => {
                 'subscriber' => [
...
'__DBH' => {
          'subscriber' => bless( {}, 'DBI::db' )
        }

unless ($self->{__DBH_CONFIG}{$name}){
        __auto_config($self, $name);
        croak "must call dbh_config() before calling dbh()." unless $s
+elf->{__DBH_CONFIG}{$name};
    }