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   44876 use strict;
  4         12  
  4         121  
3 4     4   50 use warnings;
  4         16  
  4         113  
4 4     4   27 use parent 'DBIx::Class::ResultSet';
  4         12  
  4         26  
5              
6             sub populate {
7 17     17 1 1393767 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       87 local $self->result_source->storage->sql_maker->{_sqla2_insert_attrs} = $attrs if $attrs;
11 17         193 shift->next::method(@_);
12             }
13              
14             1