View | Details | Raw Unified | Return to bug 15339
Collapse All | Expand All

(-)a/t/lib/TestBuilder.pm (-1 / +3 lines)
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
- 

Return to bug 15339