File Coverage

blib/lib/DBIx/Class/ResultSet/SQLA2Support.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package DBIx::Class::ResultSet::SQLA2Support;
2 4     4   37549 use strict;
  4         9  
  4         129  
3 4     4   28 use warnings;
  4         9  
  4         115  
4 4     4   22 use parent 'DBIx::Class::ResultSet';
  4         9  
  4         19  
5              
6             sub populate {
7 17     17 1 1341982 my ($self, $to_insert, $attrs) = @_;
8             # NOTE - hrm, relations is a hard problem here. A "DO NOTHING" should be global, which
9             # is why we don't stomp when empty
10 17 100       89 local $self->result_source->storage->sql_maker->{_sqla2_insert_attrs} = $attrs if $attrs;
11 17         184 shift->next::method(@_);
12             }
13              
14             1