my $product = My::Product->new( name=> 'boo', text=>'foo');
$product->save();
####
DBD::SQLRelay::st execute warning: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ':1,
:2,
'boo',
'foo',
''
)' at line 11 at /usr/local/share/perl/5.8.8/Rose/DB/Object.pm line 1110.
####
if($meta->dbi_requires_bind_param($db))
{
my $i = 1;
foreach my $column ($meta->columns)
{
my $method = $column->accessor_method_name;
$sth->bind_param($i++, $self->$method(), $column->dbi_bind_param_attrs($db));
}
$sth->execute;
}
else
{
# IT'S THIS NEXT LINE PRODUCING THE ERROR
$sth->execute(map { $self->$_() } $meta->column_accessor_method_names);
}