6 use SQL::Abstract::Test import => [qw/is_same_sql_bind/];
10 my $sql_maker = SQL::Abstract->new(
12 name_sep => $q ? '.' : '',
15 my ($sql, @bind) = $sql_maker->select ('artist', '*', { 'artist.name' => { -ident => 'artist.pseudonym' } } );
21 WHERE ${q}artist${q}.${q}name${q} = ${q}artist${q}.${q}pseudonym${q}
26 ($sql, @bind) = $sql_maker->update ('artist',
27 { 'artist.name' => { -ident => 'artist.pseudonym' } },
28 { 'artist.name' => { '!=' => { -ident => 'artist.pseudonym' } } },
33 "UPDATE ${q}artist${q}
34 SET ${q}artist${q}.${q}name${q} = ${q}artist${q}.${q}pseudonym${q}
35 WHERE ${q}artist${q}.${q}name${q} != ${q}artist${q}.${q}pseudonym${q}