);
$schema->resultset('Artist')->find({ name => 'cycle-root' })
- ->update({ parentid => \'artistid' });
+ ->update({ parentid => { -ident => 'artistid' } });
# select the whole tree
{
my $rs = $schema->resultset('Artist')->search({}, {
start_with => { name => 'root' },
- connect_by => { parentid => { -prior => \ 'artistid' } },
+ connect_by => { parentid => { -prior => { -ident => 'artistid' } } },
});
is_same_sql_bind (
my $rs = $schema->resultset('Artist')->search({}, {
start_with => { name => 'root' },
- connect_by => { parentid => { -prior => \ 'artistid' } },
+ connect_by => { parentid => { -prior => { -ident => 'artistid' } } },
order_siblings_by => { -desc => 'name' },
});
{
my $rs = $schema->resultset('Artist')->search({ parentid => undef }, {
start_with => { name => 'root' },
- connect_by => { parentid => { -prior => \ 'artistid' } },
+ connect_by => { parentid => { -prior => { -ident => 'artistid' } } },
});
is_same_sql_bind (
{
join => 'cds',
start_with => { 'me.name' => 'root' },
- connect_by => { parentid => { -prior => \ 'artistid' } },
+ connect_by => { parentid => { -prior => { -ident => 'artistid' } } },
}
);
{
my $rs = $schema->resultset('Artist')->search({}, {
start_with => { name => 'root' },
- connect_by => { parentid => { -prior => \ 'artistid' } },
+ connect_by => { parentid => { -prior => { -ident => 'artistid' } } },
order_by => { -asc => [ 'LEVEL', 'name' ] },
});
my $rs = $schema->resultset('Artist')->search({}, {
start_with => { name => 'root' },
- connect_by => { parentid => { -prior => \ 'artistid' } },
+ connect_by => { parentid => { -prior => { -ident => 'artistid' } } },
order_by => { -asc => 'name' },
rows => 2,
});
my $rs = $schema->resultset('Artist')->search({}, {
select => ['count(rank)'],
start_with => { name => 'root' },
- connect_by => { parentid => { -prior => \ 'artistid' } },
+ connect_by => { parentid => { -prior => { -ident => 'artistid' } } },
group_by => ['rank'],
having => { 'count(rank)' => { '<', 2 } },
});
{
my $rs = $schema->resultset('Artist')->search({}, {
start_with => { name => 'cycle-root' },
- connect_by => { parentid => { -prior => \ 'artistid' } },
+ connect_by => { parentid => { -prior => { -ident => 'artistid' } } },
});
eval { $rs->get_column ('name')->all };
if ( $@ =~ /ORA-01436/ ){ # ORA-01436: CONNECT BY loop in user data
my $rs = $schema->resultset('Artist')->search({}, {
start_with => { name => 'cycle-root' },
'+select' => [ \ 'CONNECT_BY_ISCYCLE' ],
- connect_by_nocycle => { parentid => { -prior => \ 'artistid' } },
+ connect_by_nocycle => { parentid => { -prior => { -ident => 'artistid' } } },
});
is_same_sql_bind (