<font size=3>On Thu, Jul 30, 2015 at 9:14 AM, Richard Reina <</font><a href=mailto:gatorreina@gmail.com target=_blank><font size=3 color=blue><u>gatorreina@gmail.com</u></font></a><font size=3>>
wrote:</font>
<br><font size=3>When I try:<br>
<br>
#!/usr/bin/perl<br>
<br>
# In your Dancer app,<br>
use Dancer::Plugin::SimpleCRUD;</font>
<br>
<br>
<br><font size=2 face="sans-serif">That second comment is the key - not
from the command line, but in a Dancer app. line 199 is</font>
<br><font size=2 face="sans-serif"># Given the settings to use, try to
get a database connection</font>
<br><font size=2 face="sans-serif">sub _get_connection {</font>
<br><font size=2 face="sans-serif">    my ($settings, $logger,
$hook_exec) = @_;</font>
<br>
<br><font size=2 face="sans-serif">    # Assemble the DSN:</font>
<br><font size=2 face="sans-serif">    my $dsn = '';</font>
<br><font size=2 face="sans-serif">    my $driver = '';</font>
<br><font size=2 face="sans-serif">    if ($settings->{dsn})
{</font>
<br><font size=2 face="sans-serif">        $dsn = $settings->{dsn};</font>
<br><font size=2 face="sans-serif">        ($driver)
= $dsn =~ m{^dbi:([^:]+)}i;</font>
<br><font size=2 face="sans-serif">    } else {</font>
<br><font size=2 face="sans-serif">        $dsn = "dbi:"
. $settings->{driver};     <-- line 199</font>
<br>
<br><font size=2 face="sans-serif">attempting to connect to your backend
via DBI using a config settings setup.<br>
<br>
----------------------<br>
Andy Bach<br>
Systems Mangler<br>
Internet: andy_bach@wiwb.uscourts.gov<br>
Voice: (608) 261-5738, Cell: (608) 658-1890<br>
<br>
"Only the insane take themselves quite seriously." Max Beerbohm<br>
"Life is far too important to be taken seriously." Oscar Wilde<br>
</font>