反馈、有关我的模块的问题以及我是否应该更改任何内容？

Question

package My::Module;

# $Id$

use strict;
use Carp;
use Data::Dumper;
use DBI;

$My::Module::VERSION  = '0.1';

sub new {
    my ($class, %opt) = @_;
    my $opt_count = keys %opt;

    $class->set_error('');
    #return $class->set_error("Too many arguments to initialize.") if ($opt_count > 5);
    #return $class->set_error("Missing arguments to initialize.") if ($opt_count < 2);

    my $self = bless {
                      _DRIVER_OPTIONS  => $opt{'mysql'},
                     },$class;

    if (not defined $self) {
        return $class->set_error( "new() failed: " . $class->errstr );
    }

    if ($self->{_DRIVER_OPTIONS}->{Host} ne '') {
        $self->{_DRIVER_OPTIONS}->{DataSource} = 'DBI:mysql:database=' . $self->{_DRIVER_OPTIONS}->{Database} . ';host=' . $self->{_DRIVER_OPTIONS}->{Host};
    } else {
        $self->{_DRIVER_OPTIONS}->{DataSource} = 'DBI:mysql:database=' . $self->{_DRIVER_OPTIONS}->{Database} . ';';
    }
    $self->{Handle} = DBI->connect($self->{_DRIVER_OPTIONS}->{DataSource},
                                   $self->{_DRIVER_OPTIONS}->{Username},
                                   $self->{_DRIVER_OPTIONS}->{Password},
                                   { RaiseError=>1, PrintError=>1, AutoCommit=>1 }
                                  );
    return $self->set_error("new(): couldn't connect to database: " . DBI->errstr) unless ($self->{Handle});
    $self->{_disconnect} = 1;

    print Dumper \$self;

    return $self;
}

sub database {
    my $self = shift;
    if (@_) { $self->{Handle} = shift }
    return $self->{Handle};
}

sub set_error {
    my $class   = shift;
    my $message = shift;
    $class = ref($class) || $class;
    no strict 'refs';
    ${ "$class\::errstr" } = sprintf($message || "", @_);
    return;
}

*error = \&errstr;
sub errstr {
    my $class = shift;
    $class = ref( $class ) || $class;

    no strict 'refs';
    return ${ "$class\::errstr" } || '';
}

sub DESTROY {
    my $self = shift;

    unless (defined $self->{Handle} && $self->{Handle}->ping) {
        $self->set_error(__PACKAGE__ . '::DESTROY(). Database handle has gone away');
        return;
    }

    unless ($self->{Handle}->{AutoCommit}) {
        $self->{Handle}->commit;
    }

    if ($self->{_disconnect}) {
        $self->{Handle}->disconnect;
    }
}

1;

1. 这是正确的方式吗？ 在我的代码中重新使用数据库 而不必打开一个新的 连接或也将打开 每次使用时都会有一个新连接 ？

2. 我应该改变什么吗？ 模块 ？或者我做错了什么？

目前我正在学习并考虑做我自己的引擎模块，所以我从这个开始。

简单的测试代码（以下代码不予审查，只是一个如何使用该模块的示例）：

#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;
use lib 'path to module';
use My::Module;

my $session = My::Module->new(mysql     => {
                                            Database =>'module',
                                            Host     =>'10.0.0.2',
                                            Username =>'module',
                                            Password =>'module'
                                           }) or die My::Module->errstr;

my $dbh = $session->database();
my $sth = $dbh->prepare(q{
             SELECT session_id
             FROM sessions
          });
   $sth->execute() || die print($dbh->errstr);
my $ref = $sth->fetchall_arrayref({});
$sth->finish;

print Dumper \$ref;

Answer 1

我建议使用现有的数据库接口，而不是自己开发，因为有许多秘密问题是其他人花了数年时间才为您找出并解决的。 DBIx::Connector 非常出色，并且具有其修复 模式，将允许您重用数据库连接，甚至跨进程分支。

此外，如果您使用 Moose，您将永远不必再次编写自己的对象构造函数或对象字段。 :)

DBIx::Class 与 Moose 结合会更好，但不是必需的直到您发现自己需要更多 ORM 风格的功能。

Answer 2

除了使用 CPAN 模块来完成此任务之外，以下是我的实用建议：

1. 不要从构造函数返回错误值。相反，抛出异常。
2. 使用访问器而不是使用直接哈希访问来访问类的内部。

3. 如果您班级的用户未启用 AutoCommit，她选择不启用 AutoCommit 是有原因的。因此不要这样做：

   unless ($self->{Handle}->{AutoCommit}) {
       $self->{句柄}->提交；
   }
   

   在DESTROY中。

4. 请注意，只要给予可修改的引用， bless 就不会失败（比较例如，open 的行为可能无法打开文件，即使 open 的参数是有效的文件名，并且会通过返回错误值来指示这种情况）。因此，检查bless的返回值没有任何用处。如果您想处理 bless 失败的可能性，则必须捕获致命的运行时异常。

Answer 3

你暴露错误的方式非常非常过时。如果发生异常情况，为什么不提出适当的异常呢？您似乎已经在 DBI 模块之后对错误处理进行了建模。请注意，DBI 还有一个 RaiseError 选项。使用它几乎总是比使用老式的 errorstr 版本更合理。不幸的是，DBI 现在无法再更改它的默认值，但对于新代码，我完全不认为有理由复制这个有缺陷的想法。

您还可以根据用户从外部提供的参数在代码中构建 DBI 连接。你有充分的理由这样做吗？允许用户传入自己构造的DBI::dh会更加灵活。是的，这需要更多的外部代码来设置对象并将它们连接在一起，但它也会带来更简洁的设计。如果手动连接对象对您来说太麻烦，您可能需要看看 Bread::Board 为您进行接线，而不是影响模块的设计。

另外，我赞同 Ether 使用 DBIx::Connector 的建议。管理数据库句柄确实很麻烦，而且很容易出错。