view release on metacpan or  search on metacpan

lib/PEF/Front/Connector.pm  view on Meta::CPAN

	my $dbname = cfg_db_name;
	my $dbuser = cfg_db_user;
	my $dbpass = cfg_db_password;
	$dbname = "dbi:Pg:dbname=$dbname" if $dbname !~ /^dbi:/i;
	my %extra_flag = ();
	my ($driver) = $dbname =~ /^dbi:(\w*?)(?:\((.*?)\))?:/i;
	if ($driver) {
		if ($driver eq 'Pg') {
			%extra_flag = (pg_enable_utf8 => 1);
		} elsif ($driver eq 'mysql') {
			%extra_flag = (mysql_enable_utf8 => 1);
		}
	}
	$conn = PEF::Front::_connector->new(
		$dbname, $dbuser, $dbpass,
		{   AutoCommit          => 1,
			PrintError          => 0,
			AutoInactiveDestroy => 1,
			RaiseError          => 1,
			%extra_flag
		}

nls/export-js.pl  view on Meta::CPAN

sub db_connect {
	$dbname = "dbi:Pg:dbname=$dbname" if $dbname !~ /^dbi:/;
	my ($driver) = $dbname =~ /^dbi:([^:]+):/;
	my $attrs = {
		AutoCommit          => 1,
		PrintError          => 0,
		AutoInactiveDestroy => 1,
		RaiseError          => 1,
	};
	$attrs->{pg_enable_utf8}    = 1 if $driver eq 'Pg';
	$attrs->{mysql_enable_utf8} = 1 if $driver eq 'mysql';
	$conn = DBIx::Connector->new($dbname, $dbuser, $dbpass, $attrs)
		or die "SQL_connect: " . DBI->errstr();
	$conn->mode('fixup');
	$conn;
}

sub _quote_var {
	my $s = $_[0];
	my $d = Data::Dumper->new([$s]);
	$d->Terse(1);

nls/import-po.pl  view on Meta::CPAN

sub db_connect {
	$dbname = "dbi:Pg:dbname=$dbname" if $dbname !~ /^dbi:/;
	my ($driver) = $dbname =~ /^dbi:([^:]+):/;
	my $attrs = {
		AutoCommit          => 1,
		PrintError          => 0,
		AutoInactiveDestroy => 1,
		RaiseError          => 1,
	};
	$attrs->{pg_enable_utf8}    = 1 if $driver eq 'Pg';
	$attrs->{mysql_enable_utf8} = 1 if $driver eq 'mysql';
	$conn = DBIx::Connector->new($dbname, $dbuser, $dbpass, $attrs)
	  or die "SQL_connect: " . DBI->errstr();
	$conn->mode('fixup');
	$conn;
}

my $aref = Locale::PO->load_file_asarray($fname);

if (Locale::PO->dequote($aref->[0]->msgid) ne '') {
	die "unknown PO-file format $fname";