法則91 1つのデータベースに複数のMovable Typeをインストールする

DBI.pm のプログラムソース

#15 行目付近
sub init {
    my $driver = shift;
    my (%param) = @_;
    $param{prefix} ||= 'mt_';
    $driver->SUPER::init(%param);
    my $opts = $driver->connect_options || {};
    $opts->{RaiseError} = 0;
    $driver->connect_options($opts);
    $driver;
}

Legacy.pm のプログラムソース

#50 行目付近
sub db_column_name {
    my $dbd = shift;
    my ($table, $col) = @_;
    $table =~ s{ \A mt_ }{}xms;
    return join('_', $table, $col);
}

Pg.pm のプログラムソース

#137 行目付近
return join '_', 'mt',

• 第6章 パフォーマンスとセキュリティを 高める法則