=head1 METHODS
-=over 4
-
-=item uuid_columns
+=head2 uuid_columns
=cut
sub insert {
my ($self) = @_;
+ warn "Got here";
for my $column (@{$self->uuid_auto_columns}) {
$self->store_column( $column, $self->get_uuid )
unless defined $self->get_column( $column );
return Data::UUID->new->to_string(Data::UUID->new->create),
}
-=back
-
=head1 AUTHORS
Chia-liang Kao <clkao@clkao.org>