...
sub master () {
    $Master ||= MySchema::Master->connect;
    return $Master;
}
...