view release on metacpan or  search on metacpan

lib/App/CatalystStarter/Bloated.pm  view on Meta::CPAN

212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
 
} ## finalize_argv.t
 
## dsn related
sub _prepare_dsn {
 
    my $dsn = shift;
 
    return $dsn if $ARGV{'--nodsnfix'};
 
    ## unlikely but guess it could happen
    l->debug("Prepended litteral 'dbi' to dsn") if $dsn =~ s/^:/dbi:/;
 
    ## if it doesn't start with dbi: by now, we'll nicely provide that
    if ( lc substr( $dsn, 0, 4 ) ne "dbi:" ) {
        l->debug("Prepended 'dbi:' to dsn");
        $dsn = "dbi:" . $dsn;
    }
 
    ## taking care of case, should there be issues
    l->info("Setting dsn scheme to lowercase 'dbi:'" )