|
Lines 280-285
sub _buildColumnValues {
Link Here
|
| 280 |
my @columns = $self->schema->source($source)->columns; |
280 |
my @columns = $self->schema->source($source)->columns; |
| 281 |
my %unique_constraints = $self->schema->source($source)->unique_constraints(); |
281 |
my %unique_constraints = $self->schema->source($source)->unique_constraints(); |
| 282 |
|
282 |
|
|
|
283 |
for my $key ( keys %{$original_value} ) { |
| 284 |
die "value passed for unrecognised column: $key" |
| 285 |
if !( any { $key eq $_ } @columns ); |
| 286 |
} |
| 287 |
|
| 283 |
my $build_value = 5; |
288 |
my $build_value = 5; |
| 284 |
# we try max $build_value times if there are unique constraints |
289 |
# we try max $build_value times if there are unique constraints |
| 285 |
BUILD_VALUE: while ( $build_value ) { |
290 |
BUILD_VALUE: while ( $build_value ) { |
| 286 |
- |
|
|