2008-07-29T23:07:43+09:00

CPAN にある Data::ObjectDriver 0.05 の make test がこける。http://code.sixapart.com/svn/Data-ObjectDriver/trunk/ にある最新のものだと直っているので、そのうち CPAN にリリースされるんだろう。

http://code.sixapart.com/trac/Data-ObjectDriver/changeset/471

変更点は

• eval "..." → eval { ... }
• return undef → return (うちだとこけなかった)

と、あと ProhibitNoStrict を t/98-perl_critic.t で指定しているんだけど、個人的には

Index: lib/Data/ObjectDriver/Driver/Cache/Memcached.pm
===================================================================
--- lib/Data/ObjectDriver/Driver/Cache/Memcached.pm     (revision 511)
+++ lib/Data/ObjectDriver/Driver/Cache/Memcached.pm     (working copy)
@@ -39,7 +39,7 @@
         return $ret;
     };
 
-    no strict 'refs';
+    no strict 'refs'; ## no critic (ProhibitNoStrict)
     *{join q{::}, __PACKAGE__, $driver_method} = $sub;
 }
 
Index: lib/Data/ObjectDriver/Driver/DBD.pm
===================================================================
--- lib/Data/ObjectDriver/Driver/DBD.pm (revision 511)
+++ lib/Data/ObjectDriver/Driver/DBD.pm (working copy)
@@ -10,7 +10,7 @@
     my($name) = @_;
     die "No Driver" unless $name;
     my $subclass = join '::', $class, $name;
-    no strict 'refs';
+    no strict 'refs'; ## no critic (ProhibitNoStrict)
     unless (defined ${"${subclass}::"}) {
         eval "use $subclass"; ## no critic
         die $@ if $@;

のほうが厳しさが保たれるので好き。Six Apart くらいだと PBP がなんぼのもんじゃーい、なのかもしれない。

RT をみると http://rt.cpan.org/Public/Bug/Display.html?id=37197 に

perlcritic test is failed. please don't include t/98-perl_critic.t in distribution package.

って tokuhirom さんが書いてた。PBP がなんぼのもんじゃーい。