1 package DBIx::Class::DepolymentHandler::Component;
10 $self->next::method(@_);
12 my $args = $_[3] || {};
14 return if $args->{ignore_version} || $ENV{DBIC_NO_VERSION_CHECK};
16 my $versions = $self->resultset('VersionResult');
18 unless($versions->is_installed) {
19 carp "Your DB is currently unversioned. Please call upgrade on your schema to sync the DB.\n";
23 my $pversion = $versions->db_version;
25 return 1 if $pversion eq $self->schema_version;
27 carp "Versions out of sync. This is " . $self->schema_version .
28 ", your database contains version $pversion, please call upgrade on your Schema.\n";