__PACKAGE__->mk_group_accessors( 'simple' => qw/config_dir
_inherited_attributes debug schema_class dumped_objects config_attrs/);
-our $VERSION = '1.001_029';
+our $VERSION = '1.001_030';
$VERSION = eval $VERSION;
$fixup_visitor = new Data::Visitor::Callback(%callbacks);
}
+ my @sorted_source_names = $self->_get_sorted_sources( $schema );
$schema->storage->txn_do(sub {
$schema->storage->with_deferred_fk_checks(sub {
- my @sorted_source_names = $self->_get_sorted_sources( $schema );
foreach my $source (@sorted_source_names) {
$self->msg("- adding " . $source);
my $rs = $schema->resultset($source);
for my $dep (keys %{ $answers->{$question} }) {
return {} if $seen->{$dep};
my $subdeps = _resolve_deps( $dep, $answers, \%seen );
- ::Dwarn $subdeps if $dep eq 'downloads';
$ret->{$_} += $subdeps->{$_} for ( keys %$subdeps );
++$ret->{$dep};
}