{"type":"rich","blog_url":"https://zigorou.hatenablog.com/","categories":["Perl","Test","MySQL"],"height":"190","image_url":null,"width":"100%","provider_name":"Hatena Blog","url":"https://zigorou.hatenablog.com/entry/20100330/1269971484","author_name":"ZIGOROu","author_url":"https://blog.hatena.ne.jp/ZIGOROu/","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzigorou.hatenablog.com%2Fentry%2F20100330%2F1269971484\" title=\" MySQL Replication with Test::mysqld  - \u65e5\u5411\u590f\u7279\u6b8a\u5fdc\u63f4\u90e8\u968a\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","version":"1.0","title":" MySQL Replication with Test::mysqld ","published":"2010-03-30 02:51:24","description":"\u3084\u3063\u3066\u307f\u305f\u304b\u3063\u305f\u304b\u3089\u3064\u3044\u3084\u3063\u3066\u307f\u305f\u3002 #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use DBI; use Test::More; use Test::Exception; use Test::mysqld; use Test::TCP; sub setup_master { # http://dev.mysql.com/doc/refman/5.1/en/replication-howto-masterbaseconfig.html my $mysqld = Test::mysqld->new( aut\u2026","blog_title":"\u65e5\u5411\u590f\u7279\u6b8a\u5fdc\u63f4\u90e8\u968a"}