Re: A trigger called when following a 'has_a'

[prev] [thread] [next] [Date index for 2004/07/20]

--On Tuesday, July 20, 2004 4:37 PM +0100 Peter Pimley 
<ppimley@xxxxxxxxx.xxx> wrote:

> Charles Bailey wrote:
>
>> $class->has_a(Origin => 'Origin',
>>                inflate => sub { shift; Origin->inflate(@_); },
>>                deflate => sub { my($ori,$list) = @_;
>>                                 $list->_attribute_store($otype,
>>                                 [snip]
>
> (also noting your second email)
>
>
> That looks like a cleverer version of the temporary (read: 'permanent')
> workaround I've made:
>
> File->has_a (location => LocationFetcher)
> ... where LocationFetcher is not a Class::DBI class.  Then, in
> LocationFetcher::new...
>
> sub new {
>     my $id = shift;
>     my $location = Location->retrieve ($id); # get the correct Location
> object
>     bless $location, $location->subclass; # bless it to the correct
> subclass (subclass name stored in table)
>     return $location;
> }
>
> Like yours, it's a bit of a bodge, but it'll do the job.

Should work fine, with the restriction that $location->subclass must be a 
subclass of LocationFetcher, or CDBI will choke.

--
Regards,
Charles Bailey  < bailey _at_ newman _dot_ upenn _dot_ edu >
Newman Center at the University of Pennsylvania