version 1.4, 2003/05/15 02:21:45
|
version 1.6, 2003/09/15 09:26:17
|
Line 35
|
Line 35
|
|
|
=cut |
=cut |
|
|
|
use strict; |
|
|
package LondTransaction; |
package LondTransaction; |
|
|
=pod |
=pod |
Line 91 Creates a new transaction object.
|
Line 93 Creates a new transaction object.
|
|
|
=cut |
=cut |
|
|
|
|
|
|
sub new { |
sub new { |
my $class = shift; |
my $class = shift; |
my $Transaction = shift; |
my $Transaction = shift; |
Line 100 sub new {
|
Line 104 sub new {
|
active => 0, |
active => 0, |
deferred => 0}; |
deferred => 0}; |
bless($self, $class); |
bless($self, $class); |
|
return $self; |
} |
} |
=pod |
=pod |
|
|
Line 177 sub SetDeferred {
|
Line 182 sub SetDeferred {
|
my $File = shift; |
my $File = shift; |
|
|
$self->{deferred} = 1; |
$self->{deferred} = 1; |
$self->{DeferrredFile} = $File; |
$self->{DeferredFile} = $File; |
} |
} |
|
|
=pod |
=pod |
Line 298 sub getRequest {
|
Line 303 sub getRequest {
|
} |
} |
|
|
|
|
|
1; |