view release on metacpan or  search on metacpan

lib/App/PhotoDB/funcs.pm  view on Meta::CPAN

		exit;
	}

	my $dbh = DBI->connect("DBI:mysql:database=$$connect{'database'}{'schema'};host=$$connect{'database'}{'host'}",
		$$connect{'database'}{'user'},
		$$connect{'database'}{'pass'},
		{
			# Required for updates to work properly
			mysql_client_found_rows => 0,
			# Required to print symbols
			mysql_enable_utf8mb4 => 1,
		}
	) or die "Couldn't connect to database: " . DBI->errstr;

	&runmigrations($dbh) unless $skipmigrations;

	return $dbh;
}

=head2 runmigrations

t/03-migrations.t  view on Meta::CPAN

my $database = $ENV{'DBNAME'};
my $username = $ENV{'DBUSER'};
my $password = $ENV{'DBPASS'};

my $dbh;
ok($dbh = DBI->connect("DBI:mysql:database=$database;host=$hostname", $username, $password,
	{
		# Required for updates to work properly
		mysql_client_found_rows => 0,
		# Required to print symbols
		mysql_enable_utf8mb4 => 1,
	}
), 'connect to DB');

	#) or die "Couldn't connect to database: " . DBI->errstr);

my $migrator;
ok($migrator = DB::SQL::Migrations->new(dbh=>$dbh, migrations_directory=>'migrations'), 'set up migration object');

# Creates migrations table if it doesn't exist
ok($migrator->create_migrations_table(), 'create migrations table');