blob: 9a8a50559268edfbcd3c1341ceb93fba687a7e44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
package FixMyStreet::DB::ResultSet::User;
use base 'DBIx::Class::ResultSet';
use strict;
use warnings;
use Moo;
# The database has a partial unique index on email (when email_verified is
# true), and phone (when phone_verified is true). In the code, we can only
# say these are fully unique indices, which they aren't, as there could be
# multiple identical unverified phone numbers.
#
# We assume that any and all calls to find (also called using find_or_new,
# find_or_create, or update_or_new/create) are to look up verified entries
# only (it would make no sense to find() a non-unique entry). Therefore we
# help the code along by specifying the most appropriate key to use, given
# the data provided, and setting the appropriate verified boolean.
around find => sub {
my ($orig, $self) = (shift, shift);
# If there's already a key, assume caller knows what they're doing
if (ref $_[0] eq 'HASH' && !$_[1]->{key}) {
if ($_[0]->{id}) {
$_[1]->{key} = 'primary';
} elsif (exists $_[0]->{email} && exists $_[0]->{phone}) {
# If there's both email and phone, caller must also have specified
# a verified boolean so that we know what we're looking for
if (!$_[0]->{email_verified} && !$_[0]->{phone_verified}) {
die "Cannot perform a User find() with both email and phone and no verified";
}
} elsif (exists $_[0]->{email}) {
$_[0]->{email_verified} = 1;
$_[1]->{key} = 'users_email_verified_key';
} elsif (exists $_[0]->{phone}) {
$_[0]->{phone_verified} = 1;
$_[1]->{key} = 'users_phone_verified_key';
}
}
$self->$orig(@_);
};
1;
|
