my $textanswer = TextAnswer->create(
        response_id => $response_id,
        user => $user_id,
        answer => $answer);
print qq(TextAnswer->textanswer_id => ), $textanswer->textanswer_id, qq(<br />);
print qq(TextAnswer->response_id => ), $textanswer->response_id, qq(<br />);
print qq(TextAnswer->user => ), $textanswer->user, qq(<br />);
print qq(TextAnswer->answer =>), $textanswer->answer, qq(<br />);
print qq(CALLING UPDATE<br />);
        $textanswer->update;
print qq(CALLED UPDATE<br />);

##</code><code>##


__PACKAGE__->add_trigger( after_create => sub {
  my ($self) = @_;
  print  "ID = '$self->{textanswer_id}', Answer = '$self->{answer} <br />";
});

__PACKAGE__->add_trigger( before_create => sub {
  my ($self) = @_;
  print "ID = '$self->{textanswer_id}', Answer = '$self->{answer} <br />";
});

__PACKAGE__->add_trigger( before_update => sub {
  my ($self) = @_;
  print "About to update album, '$self->{answer} <br />";
});

__PACKAGE__->add_trigger( after_update => sub {
  my ($self) = @_;
  print "Finished updating album '$self->{answer} <br />";
});

##</code><code>##

ID = '', Answer = 'John Doe
ID = '2', Answer = 'John Doe
TextAnswer->textanswer_id => 2
TextAnswer->response_id => 1
TextAnswer->user => DOEJ1
TextAnswer->answer =>John Doe
CALLING UPDATE
CALLED UPDATE