$work = new Transaction($request)

##</code><code>##

sub new {
    my($r) = @_;

    if (&test($r)) {
	return new TransactionA($r);
    } else {
	return new TransactionB($r);
    }
}