$self->{'modified'} = 0;
+ $self->_simplecache($self->{'Hash'}) if $self->can('_simplecache');
$self->_cache($self->{'Hash'}, shift) if $self->can('_cache') && @_;
$self;
}
sub fk_methods_init {
- warn "[fk_methods_init]\n";
+ warn "[fk_methods_init]\n" if $DEBUG;
foreach my $table ( dbdef->tables ) {
$fk_method_cache{$table} = fk_methods($table);
}