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 |