File Coverage

blib/lib/DBIx/DataModel/Schema/ResultAs/Subquery.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	8	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	2	50.0
total	42	47	89.3

#----------------------------------------------------------------------
package DBIx::DataModel::Schema::ResultAs::Subquery;
#----------------------------------------------------------------------
use warnings;
use strict;
use DBIx::DataModel::Carp;
use DBIx::DataModel::Statement ();

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

use namespace::clean;


sub new {
  my ($class, $alias, @other) = @_;

  ! @other or croak "-result_as => [subquery => ...] ... too many arguments";

  my $self = {alias => $alias};
  return bless $self, $class;
}



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

  $statement->_forbid_callbacks(__PACKAGE__);

  my @sqlize_args = $self->{alias} ? (-as => $self->{alias}) : ();
  $statement->sqlize(@sqlize_args) if $statement->status < DBIx::DataModel::Statement::SQLIZED;

  my ($sql, @bind) = $statement->sql;

  # make sure the $sql is in parenthesis
  $sql = "($sql)" if $sql !~ /^\(/;

  return \ [$sql, @bind]; # ref to an arrayref with SQL and bind values
}

1;

__END__