use DBIx::Class::Storage::DBI;
use DBIx::Class::ClassResolver::PassThrough;
use DBI;
-use Scalar::Util;
+use Scalar::Util 'blessed';
+use namespace::clean;
unless ($INC{"DBIx/Class/CDBICompat.pm"}) {
warn "IMPORTANT: DBIx::Class::DB is DEPRECATED AND *WILL* BE REMOVED. DO NOT USE.\n";
}
my($source, $result_class) = @{$class->_result_source_instance};
- return unless Scalar::Util::blessed($source);
+ return unless blessed $source;
if ($result_class ne $class) { # new class
# Give this new class its own source and register it.
****DEPRECATED****
-See L<class_resolver>
+See L</class_resolver>
=head2 dbi_commit
****DEPRECATED****
-Alias for L<txn_commit>
+Alias for L</txn_commit>
=head2 dbi_rollback
****DEPRECATED****
-Alias for L<txn_rollback>
+Alias for L</txn_rollback>
=end HIDE_BECAUSE_THIS_CLASS_IS_DEPRECATED