如何在使用DBI的Perl模块中获得100％的测试覆盖率？

我遇到的一个问题是了解Devel :: Cover的报告.我查看了文档,但无法弄清楚我需要测试什么才能获得100％的覆盖率.

Edit – I should make it clear that I am not saying I need 100% coverage,
because as multiple people point out,
100% coverage is a loose term,does
not mean that my code is bug free,and
may not always be completely
necessary. Since I am new at
Devel::Cover,I am interested to know
why my code is not 100% coverage,in case I am missing some important
tests.

以下是封面报告的输出：

line  err   stmt   bran   cond    sub    pod   time   code
...
36                                                    sub connect_database {
37             3                    3      1   1126       my $self = shift;
38             3    100                          24       if ( !$self->{dsn} ) {
39             1                                  7           croak 'dsn not supplied - cannot connect';
40                                                        }
41    ***      2            33                   21       $self->{dbh} = DBI->connect( $self->{dsn},q{},q{} )
42                                                          || croak "$DBI::errstr";
43             1                                 11       return $self;
44                                                    }
...
line  err      %      l  !l&&r !l&&!r   expr
----- --- ------ ------ ------ ------   ----
41    ***     33      1      0      0   'DBI'->connect($$self{'dsn'},'','') || croak("$DBI::errstr")

以下是测试此特定行的代码示例：

my $database = MyModule::Database->new( { dsn => 'Invalid DSN' });
throws_ok( sub { $database->connect_database() },qr/Can't connect to data source/,'Test connection exception (invalid dsn)' );

此测试通过 – 连接确实抛出错误并完成我的“throws_ok”测试.

我确实有一些测试可以测试成功的连接,这就是为什么我认为我有33％的覆盖率,但如果我正确地阅读它,封面认为我没有测试语句的“|| croak”部分.我以为我是,通过“throws_ok”测试,但显然我错过了一些东西.

有没有人有关于如何成功测试我的DBI->连接线的建议？

谢谢！

编辑：

brian向我发送了HTML报告和真相表,解释了为什么41号线没有通过.唯一的问题是我无法弄清楚它告诉我的是什么.我想我问题的真正核心是为什么这条特定的线不能通过覆盖.

这是真值表：

LINE # %  # coverage    # condition
41   # 33 # A | B | dec # 'DBI'->connect($$self{'dsn'},'') || croak("$DBI::errstr")
     #    # 0 | 0 | 0   #
     #    # 0 | 1 | 1   #
     #    # 1 | X | 1   # (THIS LINE IS Green - the rest are red)

如果有人能帮助解释这个真相表,我会很感激.还提到要通过覆盖我需要有一个模拟数据库对象,但我不太清楚覆盖结果中的任何内容会让我知道这一点.

再次感谢！