Hi,
We have a script that generates our classes for us, using the Loader
and a bit of custom code to tweak the generated class to our needs.
It goes something like this:
my $loader = Rose::DB::Object::Loader->new(...);
for my $class ($loader->make_classes) {
my $meta = $class->meta;
foreach my $col ($meta->columns) {
$col->default('now') if $col->type eq 'datetime' and !$col-
>default and $col->not_null;
}
if ($meta->table eq 'articles') {
$meta->alias_column(thread => 'thread_id');
}
print FH "{}", $meta->perl_class_definition, "}";
[....]
}
$col->default('now') gets written out correctly in the class
definition, but changes to $meta->alias_column and
cached_objects_expire_in (and probably others) do not.
Bug, missing feature or am I doing something wrong? :-)
- ask
--
http://askask.com/ - http://develooper.com/
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Rose-db-object mailing list
Rose-db-object@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rose-db-object
