2 # Transaction: Superclass of all the transactional status objects
5 package C4
::SIP
::ILS
::Transaction
;
18 transaction_id
=> undef,
19 sip_fee_type
=> '01', # Other/Unknown
21 sip_currency
=> 'USD', # FIXME: why hardcoded?
32 _permitted
=> \
%fields,
35 return bless $self, $class;
44 my $class = ref($self) or croak
"$self is not an object";
49 unless (exists $self->{_permitted
}->{$name}) {
50 croak
"Can't access '$name' field of class '$class'";
54 return $self->{$name} = shift;
56 return $self->{$name};