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 5     5   52884 use strict;
  5         13  
  5         161  
3 5     5   47 use warnings;
  5         10  
  5         141  
4 5     5   29 use parent 'DBIx::Class::ResultSet';
  5         29  
  5         39  
5              
6             sub populate {
7 20     20 1 2806275 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 20 100       102 local $self->result_source->storage->sql_maker->{_sqla2_insert_attrs} = $attrs if $attrs;
11 20         235 shift->next::method(@_);
12             }
13              
14             1