http://cpansearch.perl.org/src/RIBASUSHI/DBIx-Class-0.08250/lib/DBIx/Class/Carp.pm

##</code><code>##

*DBIx::Class::_ENV_::BROKEN_NAMESPACE_CLEAN = ($] < 5.008005)

##</code><code>##

should test "($] < 5.008005)" in the DBIx::Class:Carp be extended to including all of Perl 5.8