use strict;
use warnings;
+# no point sanity checking, unless we are running asserts
+__PACKAGE__->schema_sanity_checker(
+ DBIx::Class::_ENV_::ASSERT_NO_FAILING_SANITY_CHECKS
+ ? 'DBIx::Class::Schema::SanityChecker'
+ : ''
+);
+
__PACKAGE__->register_class('Table', 'DBIx::Class::Version::Table');
package # Hide from PAUSE
use strict;
use warnings;
+# no point sanity checking, unless we are running asserts
+__PACKAGE__->schema_sanity_checker(
+ DBIx::Class::_ENV_::ASSERT_NO_FAILING_SANITY_CHECKS
+ ? 'DBIx::Class::Schema::SanityChecker'
+ : ''
+);
+
__PACKAGE__->register_class('TableCompat', 'DBIx::Class::Version::TableCompat');
use base 'DBIx::Class::Schema';
use DBIx::Class::Carp;
-use DBIx::Class::_Util 'dbic_internal_try';
+use DBIx::Class::_Util qw( dbic_internal_try UNRESOLVABLE_CONDITION );
use Scalar::Util 'weaken';
use namespace::clean;
my $vtable = $self->{vschema}->resultset('Table');
my $version = dbic_internal_try {
- $vtable->search({}, { order_by => { -desc => 'installed' }, rows => 1 } )
+ $vtable->search_rs({}, { order_by => { -desc => 'installed' }, rows => 1 } )
->get_column ('version')
->next;
};
my ($self, $rs) = @_;
( dbic_internal_try {
- $rs->search(\'1=0')->cursor->next;
+ $rs->search_rs( UNRESOLVABLE_CONDITION )->cursor->next;
1;
} )
? 1