Variables

$oktorun

my $oktorun

$txn_cnt

my $txn_cnt

$cnt

my $cnt

$can_retry

my $can_retry

$archive_fh

my $archive_fh

$get_sth

my $get_sth

$OUT_OF_RETRIES

my $OUT_OF_RETRIES

$ROLLED_BACK

my $ROLLED_BACK

$ALL_IS_WELL

my $ALL_IS_WELL

$src

my $src

$dst

my $dst

@beginning_of_txn

my @beginning_of_txn

$vp

my $vp

$q

my $q

Functions

main

sub main
my $oktorun
my $txn_cnt
my $cnt
my $can_retry
my $archive_fh
my $get_sth
my $OUT_OF_RETRIES
my $ROLLED_BACK
my $ALL_IS_WELL
my $src
my $dst
my @beginning_of_txn
my $vp
my $q
sub main
Close