#----------------------------------------------------------------------
package DBIx::DataModel::Schema::ResultAs::Sql;
#----------------------------------------------------------------------
use warnings;
use strict;
use DBIx::DataModel::Statement;

use parent 'DBIx::DataModel::Schema::ResultAs';

sub get_result {
  my ($self, $statement) = @_;

  $statement->_forbid_callbacks(__PACKAGE__);
  $statement->sqlize if $statement->status < DBIx::DataModel::Statement::SQLIZED;

  return $statement->sql;
}

1;

__END__

=head1 NAME

DBIx::DataModel::Schema::ResultAs::Sql - sql and bind values

=head1 DESCRIPTION

In scalar context, the result will just be the generated SQL statement.
In list context, it will be C<($sql, @bind)>, i.e. the SQL statement
together with the bind values.