File Coverage

blib/lib/DBIx/DataModel/Schema/ResultAs/Subquery.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             #----------------------------------------------------------------------
2             package DBIx::DataModel::Schema::ResultAs::Subquery;
3             #----------------------------------------------------------------------
4 3     3   2384 use warnings;
  3         11  
  3         110  
5 3     3   17 use strict;
  3         6  
  3         94  
6              
7 3     3   18 use parent 'DBIx::DataModel::Schema::ResultAs';
  3         6  
  3         16  
8              
9             sub get_result {
10 3     3 1 12 my ($self, $statement) = @_;
11              
12 3         17 $statement->_forbid_callbacks(__PACKAGE__);
13 3 50       13 $statement->sqlize if $statement->status < DBIx::DataModel::Statement::SQLIZED;
14              
15 3         14 my ($sql, @bind) = $statement->sql;
16 3         54 return \ ["($sql)", @bind]; # ref to an arrayref with SQL and bind values
17             }
18              
19             1;
20              
21             __END__