if($self->dump_directory) {
my $class_path = $table_class;
$class_path =~ s{::}{/}g;
+ $class_path .= '.pm';
my $filename = $INC{$class_path};
croak 'Failed to locate actual external module file for '
. "'$table_class'"
my ($self) = @_;
my $target_dir = $self->dump_directory;
+ my $schema_class = $self->schema_class;
die "Must specify target directory for dumping!" if ! $target_dir;
- warn "Dumping manual schema to $target_dir ...\n";
+ warn "Dumping manual schema for $schema_class to directory $target_dir ...\n";
if(! -d $target_dir) {
mkdir($target_dir) or die "mkdir('$target_dir') failed: $!";
my $datestr = POSIX::strftime('%Y-%m-%d %H:%M:%S', localtime);
my $tagline = qq|# Created by DBIx::Class::Schema::Loader v$verstr @ $datestr|;
- my $schema_class = $self->schema_class;
$self->_ensure_dump_subdirs($schema_class);
my $schema_fn = $self->_get_dump_filename($schema_class);