Select Code to Download

package MyClass::DBI;
use strict;
...
    return(@return_values);

} #eosub--do_transaction

my $user = MyClass::DBI->do_transaction(sub {
    my($self) = @_;
...
    }
    return($model);
},$self);