# Pastebin TukGCFCK
perl6 -I. -Iexamples/blog2 -MPost -e 'use Red <red-do>; red-defaults default => database "SQLite"; my $*RED-DEBUG = True;
red-do :transaction, {;}; try red-do :transaction, {die}


'
SQL : BEGIN
BIND: []
SQL : COMMIT
BIND: []
SQL : BEGIN
BIND: []
SQL : ROLLBACK
BIND: []