Re: Class::DBI::Loader and accessors

[prev] [thread] [next] [Date index for 2005/03/15]

From: Kingsley Kerce
Subject: Re: Class::DBI::Loader and accessors
Date: 22:28 on 15 Mar 2005

Perrin Harkins writes:
 > On Tue, 2005-03-15 at 16:29 -0500, Kingsley Kerce wrote:
 > > Sean Davis <sdavis2@xxxx.xxx.xxx> wrote:
 > > > I'm sorry I'm using so much list bandwidth today. I use '_id' for
 > > > my primary key columns and would like to drop the '_id' from the
 > > > accessors. I see how to do that in Class::DBI when defining my
 > > > own classes, but how would I go about doing that for all my
 > > > classes when using Class::DBI::Loader?
 > > 
 > > I personally use the following, an admitted hack:
 > > 
 > >   foreach my $class ($cdbi_loader->classes) {
 > >     eval "package $class;
 > >           # do class-specific stuff such as manipulating accessors
 > >     ";
 > >     confess $@ if $@;
 > >   }
 > > 
 > > I'd love to witness a better approach.
 > 
 > Isn't this what the "additional_base_classes" parameter in Loader is
 > for?

Well, yeah, if you're running CDBIL >= 0.06, unlike me. :)
I'll upgrade.  Thanks for the reality check, Perrin.

So in the case of the OP, I guess the solution is as simple as
creating a package containing an accessor_name() method, and passing
that package's name into CDBIL via the "additional_base_classes"
param.

Kings