On 5/18/06, John Siracusa <[EMAIL PROTECTED]> wrote:
sub save
{
my $self = shift; # shift okay here; load() is the only special case
$self->db(My::DB->new('writer')) unless($self->db->type eq 'writer');
shift->SUPER::save(@_); # Call superclass
}
Whoops, that'll teach me to copy and paste code. The last line should be:
$self->SUPER::save(@_); # Call superclass
-John
-------------------------------------------------------
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&kid0709&bid&3057&dat1642
_______________________________________________
Rose-db-object mailing list
Rose-db-object@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rose-db-object
