[CDBI] re-casting cdbi classes?

Ben Lavender blavender at gmail.com
Sat Mar 18 22:35:18 GMT 2006

Hi all,

I've come across a situation where a client needs a change in
requirements which would, ideally, require a slight slight breaking
out of one class into a base class and two sub classes.  Put shortly,
I have an event which is based on due dates right now, but some
classes of events are turning up which need to be done based on
mileage instead.  Thus, I previously had:

Package Event;
__PACKAGE__->columns(Essential => qw/ ... dueDate .../)

I've got a lot of logic which touches lots of different fields based
on these events, so my solution to the problem, if possible, would be
as follows.  The database schema is already fixed up to accomidate
this; I basically added usesDates, usesMiles, and dueMileage fields to
the table to store the difference in the two classes.  This solution
seems to be the best for my situation; a fair rundown I used to help
me on this situation is at

Package Event;
__PACKAGE__->columns(Essential => qw/ ..dueDate ... usesDates
usesMiles dueMileage/);

*various generic methods here*
Package DateEvent
use base Event;
__PACKAGE__->columns(Essential => qw/... dueDate ... usesDates usesMiles/);

*various subs related to dates*
Package MilesEvent
use base Event;
__PACKAGE__->columns(Essential => qw/ ... ... usesDates usesMiles dueMileage/);

*various subs related to mileage*

I've already been playing with this a bit, and part of it works well
and part of it doesn't.  The problem is this point:
$event = Event->retrieve($id);
if ($event->usesMiles) {
    &some_specific_miles_stuff($event);  #Crap!

The problem is that I dont see a way to tell this class that it should
be a mileage event now instead of a generic one at the last method
call without just reloading it from the database; alternately, I could
hit the database once to determine the event type and then load it as
a specific kind of event, in either case I require 2 trips to the DB
instead of 1, which isn't going to do for the app I'm working with. 
In normal Perl I can play about with bless and Acme::Damn and whatnot,
in the worst case, but I don't see a way to play with this object

Though I see that I can essentially get the benefits of all of these
classes by just asking the object if it usesMiles or usesDates all
over the place while shoving all the methods into one package, that's
not the most maintanable way to code, usually.  If I have to do that,
I suppose I will, but I thought I'd run it by the list and see if
someone has run into this before.  Any ideas?


More information about the ClassDBI mailing list