# constructor
sub new {
    my $class = shift;
    my $self  = {
        CELLULAR => undef,
        EMAIL    => undef,
    };
    my $closure = sub {
        my $field = shift;
        if (@_) { $self->{$field} = shift; }
        return $self->{$field};
    };
    bless( $closure, $class );
    return $closure;
}