Re: A trigger called when following a 'has_a'

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

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.

Peter Pimley