);
method ddl_filename($type, $versions, $dir) {
- my $filename = ref($self->schema);
+ my $filename = ref $self->schema;
$filename =~ s/::/-/g;
$filename = File::Spec->catfile(
}
}
-method create_install_ddl {
+method prepare_install {
my $schema = $self->schema;
my $databases = $self->databases;
my $dir = $self->upgrade_directory;
}
}
-method create_update_ddl($version, $preversion) {
+method prepare_update($version, $preversion) {
my $schema = $self->schema;
my $databases = $self->databases;
my $dir = $self->upgrade_directory;
}
}
-method create_ddl_dir($version, $preversion) {
- $self->create_install_ddl;
- $self->create_update_ddl($version, $preversion) if $preversion;
-}
-
method _read_sql_file($file) {
return unless $file;