3 |
use warnings; |
use warnings; |
4 |
|
|
5 |
use Jifty::DBI::Schema; |
use Jifty::DBI::Schema; |
6 |
|
use Data::Dump qw/dump/; |
7 |
|
|
8 |
|
sub create { |
9 |
|
warn "# create",dump(@_); |
10 |
|
my $self = shift; |
11 |
|
my %data = @_ or die "no data?"; |
12 |
|
foreach my $col ( keys %data ) { |
13 |
|
warn "## ref($col)=",ref($col); |
14 |
|
$data{$col} = join(' <*> ', @{$data{$col}}) if ref( $data{$col} ) eq 'ARRAY'; |
15 |
|
} |
16 |
|
warn "## data = ",dump( %data ); |
17 |
|
$self->SUPER::create( %data ); |
18 |
|
} |
19 |
|
|
20 |
use A3C::Record schema { |
use A3C::Record schema { |
21 |
|
|