Скачать или смотреть Object-Relational Mapping: DBIx::Class::Schema::Loader | #2 Perl DBIx Tutorial

In this Perl programming tutorial, we will explore how to set up MySQL database using Docker and how to generate DBIx classes using DBIx::Class::Schema::Loader.

Chapters:
00:00 Intro
01:00 Installing Docker
02:17 Starting MySQL container
04:54 Connecting to MySQL database
05:57 Starting PHPMyAdmin container
08:06 Applying SQL with test data
09:49 Installing DBIx::Class::Schema::Loader
11:53 Generating DBIx files with DBIx::Class::Schema::Loader

Docker commands:
docker run --name mysql -p 3306:3306 -v ./mysql_data:/var/lib/mysql -e MYSQL_ROOT_PASSWORD=password -d mysql:8.3.0
docker run --name myphpadmin -d --link mysql:db -p 8080:80 phpmyadmin

-- SQL TEST DATA
DROP DATABASE IF EXISTS `notes`;
CREATE DATABASE IF NOT EXISTS `notes`;
USE `notes`;

CREATE TABLE IF NOT EXISTS `user` (
`id` INT UNSIGNED NOT NULL AUTO_INCREMENT,
`username` VARCHAR(255) DEFAULT NULL,
CONSTRAINT `unq__user__username` UNIQUE(`username`),
PRIMARY KEY (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

CREATE TABLE IF NOT EXISTS `note` (
`id` INT UNSIGNED NOT NULL AUTO_INCREMENT,
`user_id` INT UNSIGNED NOT NULL,
`description` VARCHAR(255) DEFAULT NULL,
`importance` INT NOT NULL DEFAULT 1,
CONSTRAINT `fk__note__user_id` FOREIGN KEY (`user_id`) REFERENCES `user`(`id`) ON UPDATE CASCADE ON DELETE CASCADE,
PRIMARY KEY (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;

INSERT INTO `user`(`username`) VALUES ('user1');
SET @last_inserted_user_id := LAST_INSERT_ID();
INSERT INTO `note`(`user_id`, `description`, `importance`) VALUES
( @last_inserted_user_id, 'Note 1 from user1', 1 ),
( @last_inserted_user_id, 'Note 2 from user1', 2 ),
( @last_inserted_user_id, 'Note 3 from user1', 3 )
;

INSERT INTO `user`(`username`) VALUES ('user2');
SET @last_inserted_user_id := LAST_INSERT_ID();
INSERT INTO `note`(`user_id`, `description`, `importance`) VALUES
( @last_inserted_user_id, 'Note 1 from user2', 1 ),
( @last_inserted_user_id, 'Note 2 from user2', 2 ),
( @last_inserted_user_id, 'Note 3 from user2', 3 )
;
-- END SQL TEST DATA

Docs:
https://metacpan.org/pod/DBIx::Class
https://metacpan.org/pod/DBIx::Class:...
https://metacpan.org/pod/DBIx::Class:...
https://metacpan.org/pod/DBIx::Class:...

Tags:
#Perl #PerlProgramming #CodingInPerl #PerlDevelopment