Help for this page
$work = new Transaction($request)
sub new { my($r) = @_; ... return new TransactionB($r); } }