Select Code to Download

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

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

ID = '', Answer = 'John Doe
ID = '2', Answer = 'John Doe
...
TextAnswer->answer =>John Doe
CALLING UPDATE
CALLED UPDATE