File Coverage

blib/lib/DBIx/QuickORM/Role/SQLBuilder.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package DBIx::QuickORM::Role::SQLBuilder;
2 23     23   31088 use strict;
  23         74  
  23         1136  
3 23     23   187 use warnings;
  23         57  
  23         6409  
4              
5             our $VERSION = '0.000019';
6              
7 23     23   172 use Role::Tiny;
  23         66  
  23         192  
8              
9             requires qw{
10             qorm_select
11             qorm_insert
12             qorm_update
13             qorm_delete
14             qorm_where
15              
16             qorm_and
17             qorm_or
18             };
19              
20             sub qorm_where_for_row {
21 22     22 0 48 my $self = shift;
22 22         59 my ($row) = @_;
23 22         118 return $row->primary_key_hashref;
24             }
25              
26              
27             1;
28              
29             __END__
30              
31              
32              
33              
34             lib/DBIx/QuickORM/Role/Handle.pm:17:sub sqla { shift->connection->sqla(@_) }
35             lib/DBIx/QuickORM/SQLAbstract.pm:1:package DBIx::QuickORM::SQLAbstract;
36             lib/DBIx/QuickORM/Connection.pm:19:use DBIx::QuickORM::SQLAbstract;
37             lib/DBIx/QuickORM/Connection.pm:55: +sqla
38             lib/DBIx/QuickORM/Connection.pm:171:sub sqla {
39             lib/DBIx/QuickORM/Connection.pm:173: return $self->{+SQLA}->() if $self->{+SQLA};
40             lib/DBIx/QuickORM/Connection.pm:175: my $sqla = DBIx::QuickORM::SQLAbstract->new(bindtype => 'columns');
41             lib/DBIx/QuickORM/Connection.pm:177: $self->{+SQLA} = sub { $sqla };
42             lib/DBIx/QuickORM/Connection.pm:179: return $sqla;
43             lib/DBIx/QuickORM/Connection.pm:619: my ($stmt, $bind) = $self->sqla->qorm_select($source, $query->{+QUERY_FIELDS}, $query->{+QUERY_WHERE}, $query->{+QUERY_ORDER_BY});
44             lib/DBIx/QuickORM/Connection.pm:643: my ($stmt, $bind) = $self->sqla->qorm_select($source, $pk_fields, $where);
45             lib/DBIx/QuickORM/Connection.pm:721: my ($stmt, $bind) = $self->sqla->qorm_insert($source, $data, $ret ? {returning => $source->fields_to_fetch} : ());
46             lib/DBIx/QuickORM/Connection.pm:811: my ($stmt, $bind) = $self->sqla->qorm_update($source, $changes, $query->{+QUERY_WHERE});
47             lib/DBIx/QuickORM/Connection.pm:821: my ($stmt, $bind) = $self->sqla->qorm_update($source, $changes, $where, $ret ? {returning => $fields} : ());
48             lib/DBIx/QuickORM/Connection.pm:840: my ($stmt, $bind) = $self->sqla->qorm_select($source, $fields, $where);
49             lib/DBIx/QuickORM/Connection.pm:889: my ($stmt, $bind) = $self->sqla->qorm_delete($source, $where, $ret ? $pk_fields : ());