Help for this page

Select Code to Download


  1. or download this
    sub main_loop {
  local($dbh->{AutoCommit}) = 0;
  ... lots of code here, with multiple returns
}
  2. or download this
      my $tmp_dbh = $dbh;
  $tmp_dbh->{AutoCommit} = 0;  #BZZT!
  3. or download this
    # Wishful thinking
sub main_loop {
  ... stuff happens ...
} continue { ... oops! I must have returned! }
  4. or download this
    sub main_loop {
 {
...
 }
 ... restore settings here
}