7 use SQL::Abstract::Test import => [qw/is_same_sql_bind/];
11 my $sql_maker = SQL::Abstract->new(
13 name_sep => $q ? '.' : '',
17 $sql_maker->where({ foo => { -ident => undef } })
18 } qr/-ident requires a single plain scalar argument/;
20 my ($sql, @bind) = $sql_maker->select('artist', '*', { 'artist.name' => { -ident => 'artist.pseudonym' } } );
26 WHERE ${q}artist${q}.${q}name${q} = ${q}artist${q}.${q}pseudonym${q}
31 ($sql, @bind) = $sql_maker->update('artist',
32 { 'artist.name' => { -ident => 'artist.pseudonym' } },
33 { 'artist.name' => { '!=' => { -ident => 'artist.pseudonym' } } },
38 "UPDATE ${q}artist${q}
39 SET ${q}artist${q}.${q}name${q} = ${q}artist${q}.${q}pseudonym${q}
40 WHERE ${q}artist${q}.${q}name${q} != ${q}artist${q}.${q}pseudonym${q}
45 ($sql) = $sql_maker->select(
46 \(my $from = 'foo JOIN bar ON foo.bar_id = bar.id'),
47 [ { -ident => [ 'foo', 'name' ] }, { -ident => [ 'bar', '*' ] } ]
53 "SELECT ${q}foo${q}.${q}name${q}, ${q}bar${q}.*