my $last_id = $dbd_object->insertData("$insert_table",["First"]);
print "Last ID $last_id\n";
my $fetch_last_insert = qq(select description from status where description = 'First');
my $insert_results = $dbd_object->fetchRow("$fetch_last_insert");
print "Last Insert: $insert_results\n";
my $update_table = qq(update status set description = ? where description = ?);
$dbd_object->updateData("$update_table",["Second","First"]);
my $fetch_last_update = qq(select description from status where description = 'Second');
my $update_results = $dbd_object->fetchRow("$fetch_last_update");
print "Last Update: $update_results\n";
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 31:
=pod directives shouldn't be over one line long! Ignoring all 2 lines of content