|
Lines 3-9
package t::lib::TestBuilder;
Link Here
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
use Koha::Database; |
4 |
use Koha::Database; |
| 5 |
use String::Random; |
5 |
use String::Random; |
| 6 |
|
6 |
use Carp; |
| 7 |
|
7 |
|
| 8 |
my $gen_type = { |
8 |
my $gen_type = { |
| 9 |
tinyint => \&_gen_int, |
9 |
tinyint => \&_gen_int, |
|
Lines 98-103
sub build {
Link Here
|
| 98 |
my $value = $params->{value}; |
98 |
my $value = $params->{value}; |
| 99 |
my $only_fk = $params->{only_fk} || 0; |
99 |
my $only_fk = $params->{only_fk} || 0; |
| 100 |
|
100 |
|
|
|
101 |
my @unknowns = grep( !/source|value|only_fk/, keys %{ $params }); |
| 102 |
carp "Unknown parameter(s): ", join( ', ', @unknowns ) if scalar @unknowns; |
| 103 |
|
| 101 |
my $col_values = $self->_buildColumnValues({ |
104 |
my $col_values = $self->_buildColumnValues({ |
| 102 |
source => $source, |
105 |
source => $source, |
| 103 |
value => $value, |
106 |
value => $value, |
| 104 |
- |
|
|