my ( $dbh, $out ) = @$args{qw(dbh out)};
# Do you stuffs here
$dbh->do(q{});
try {
} finally {
if (@_) {
say_failure( $out, "Database modification failed with errors: @_" );
} else {
say_success( $out, "Database modification was successful!" );
}
};
# Print useful stuff here
# tables
-