App-Office-CMS
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/App/Office/CMS/Database.pm view on Meta::CPAN
if ( ($$config{dsn} =~ /SQLite/i) && $$config{sqlite_unicode})
{
$$attr{sqlite_unicode} = 1;
}
$self -> dbh(DBI -> connect($$config{dsn}, $$config{username}, $$config{password}, $attr) );
=pod
use Modern::Perl;
use DBI;
use Exception::Class::DBI;
my $dbh = DBI->connect('DBI:mysql:test', 'user', pass, {
PrintError => 0,
RaiseError => 0,
HandleError => Exception::Class::DBI->handler,
});
view all matches for this distributionview release on metacpan - search on metacpan
( run in 2.843 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )