=head1 VERSION
-Version 1.001012
+Version 1.001013
=cut
-our $VERSION = '1.001012';
+our $VERSION = '1.001013';
=head1 NAME
# write dir and gen filename
- my $source_dir = $params->{set_dir}->subdir(lc $src->from);
+ my $source_dir = $params->{set_dir}->subdir($src->from);
$source_dir->mkpath(0, 0777);
# strip dir separators from file name
DBIx::Class::Exception->throw("'directory_template is required parameter");
for my $set (@$available_config_sets) {
- warn "doing $set";
my $localparams = $params;
$localparams->{directory} = $directory_template->($self, $localparams, $set);
$localparams->{config} = $set;
$self->dump($localparams);
+ $self->dumped_objects({}); ## Clear dumped for next go, if there is one!
}
}
=head2 dump_all_config_sets
+ my %local_params = %$params;
+ my $local_self = bless { %$self }, ref($self);
+ $local_params{directory} = $directory_template->($self, \%local_params, $set);
+ $local_params{config} = $set;
+ $self->dump(\%local_params);
+
+
Works just like L</dump> but instead of specifying a single json config set
located in L</config_dir> we dump each set in turn to the specified directory.
foreach my $source (sort $schema->sources) {
$self->msg("- adding " . $source);
my $rs = $schema->resultset($source);
- my $source_dir = $tmp_fixture_dir->subdir( lc $rs->result_source->from );
+ my $source_dir = $tmp_fixture_dir->subdir( $rs->result_source->from );
next unless (-e $source_dir);
my @rows;
while (my $file = $source_dir->next) {