|
Lines 89-94
sub build {
Link Here
|
| 89 |
my $source = $params->{source} || return; |
89 |
my $source = $params->{source} || return; |
| 90 |
my $value = $params->{value}; |
90 |
my $value = $params->{value}; |
| 91 |
|
91 |
|
|
|
92 |
my @unknowns = grep( !/source|value|only_fk/, keys %{ $params }); |
| 93 |
carp "Unknown parameter(s): ", join( ', ', @unknowns ) if scalar @unknowns; |
| 94 |
|
| 92 |
my $col_values = $self->_buildColumnValues({ |
95 |
my $col_values = $self->_buildColumnValues({ |
| 93 |
source => $source, |
96 |
source => $source, |
| 94 |
value => $value, |
97 |
value => $value, |
| 95 |
- |
|
|