sub foreign_obj {
    my $self = shift;
    my $foreign_obj = Foreign::Class->retrieve(
        key1 => $self->key1(),
        key2 => $self->key2(),
    );
    return $foreign_obj;
}