Re: linking on differently-named foreign keys

[prev] [thread] [next] [Date index for 2005/02/14]

> I see. Of course, I want to say Message->sender() as opposed to
> sender_id(), since it is returning an Account object, not a
> unique identifier... but I guess I do that by explicitly coding the
> sender() subroutine in the Message class, right?

You can. Or you can override the accessor_name() method.

sub accessor_name {
    # Override default accessor naming to avoid superfluous "_id" prefix.
    my($class,$column) = @_;
    $column =~ s/^(sender|receiver)_id/$1/;
    return $column;
}