sub new {
    my $class = shift;
    my $self = {};
    %$self = @_; # Whatever fits - this is just and example
    return bless($self, $class);
}

##</code><code>##

my $trans = new TransactionA;