my $comp = $self->journal_component || "Journal";
-
+
my $prefix = $self->journal_prefix || '';
foreach my $audit (qw(ChangeSet ChangeLog)) {
my $class = blessed($proto) . "::$audit";
return $schema;
}
-sub deploy {
- my $self = shift;
-
- $self->next::method(@_);
-
- $self->journal_schema_deploy(@_);
-}
-
sub journal_schema_deploy {
my $self = shift;