Solved // RE: Inflating and deflating

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

On Sat, 5 Feb 2005 lists@xxxxxxxx.xxx wrote:

> > My problem is that I want to be able to call $object->email( $email )
> > with a plain text scalar and have it do the right thing.
>
> This can be accomplished with triggers, but it is somewhat complex and
> means forgoing the inflate/deflate mechanism. One approach:

I've found a solution using normalize_column_values() which seems quite
acceptable. I do this (somewhat longwindedly) in my code:

sub normalize_column_values {
    my ($self, $cols) = @_;
    return unless defined $cols->{ email };
    my $email = $cols->{ email };
    unless (ref( $email ) eq 'Mail::Address') {
        ($email) = Mail::Address->parse( $email );
        $cols->{ email } = $email;
    }
}

All test pass but can anyone see any reason why I might not want to do it
this way ?

Thanks to everyone for their help.

Simon.