version 1.8, 2005/06/16 22:33:45
|
version 1.9, 2005/06/16 22:59:05
|
Line 40 use strict;
|
Line 40 use strict;
|
package LondTransaction; |
package LondTransaction; |
|
|
=pod |
=pod |
|
|
=head1 Description |
=head1 Description |
|
|
LondTransaction objects hold the state required to manage a |
LondTransaction objects hold the state required to manage a |
Line 93 Creates a new transaction object.
|
Line 94 Creates a new transaction object.
|
|
|
=cut |
=cut |
|
|
|
|
|
|
sub new { |
sub new { |
|
|
my ($class, $Transaction) = @_; |
my ($class, $Transaction) = @_; |
Line 106 sub new {
|
Line 105 sub new {
|
bless($self, $class); |
bless($self, $class); |
return $self; |
return $self; |
} |
} |
|
|
=pod |
=pod |
|
|
=item Activate |
=item Activate |
Line 125 will be carried.
|
Line 125 will be carried.
|
=back |
=back |
|
|
=cut |
=cut |
|
|
sub Activate { |
sub Activate { |
|
|
|
|
Line 146 transaction is deferred, the deferred fi
|
Line 147 transaction is deferred, the deferred fi
|
Otherwise this is a noop. |
Otherwise this is a noop. |
|
|
=cut |
=cut |
|
|
sub Retire { |
sub Retire { |
my $self = shift; |
my $self = shift; |
|
|
Line 179 Name of the file that holds the deferred
|
Line 181 Name of the file that holds the deferred
|
=back |
=back |
|
|
=cut |
=cut |
|
|
sub SetDeferred { |
sub SetDeferred { |
|
|
|
|
Line 206 Parameters:
|
Line 209 Parameters:
|
=back |
=back |
|
|
=cut |
=cut |
|
|
sub SetClient { |
sub SetClient { |
|
|
my ($self, $Client) = @_; |
my ($self, $Client) = @_; |
Line 224 sub SetClient {
|
Line 228 sub SetClient {
|
Returns the state of the deferred member. |
Returns the state of the deferred member. |
|
|
=cut |
=cut |
|
|
sub isDeferred { |
sub isDeferred { |
my $self = shift; |
my $self = shift; |
return $self->{deferred}; |
return $self->{deferred}; |
Line 236 sub isDeferred {
|
Line 241 sub isDeferred {
|
Returns the value of the active member. |
Returns the value of the active member. |
|
|
=cut |
=cut |
|
|
sub isActive { |
sub isActive { |
my $self = shift; |
my $self = shift; |
return $self->{active}; |
return $self->{active}; |
Line 248 sub isActive {
|
Line 254 sub isActive {
|
If not deferred returns the client socket, else returns undef. |
If not deferred returns the client socket, else returns undef. |
|
|
=cut |
=cut |
|
|
sub getClient { |
sub getClient { |
my $self = shift; |
my $self = shift; |
if($self->{deferred}) { |
if($self->{deferred}) { |
Line 266 If deferred, returns the name of the def
|
Line 273 If deferred, returns the name of the def
|
returns undef. |
returns undef. |
|
|
=cut |
=cut |
|
|
sub getFile { |
sub getFile { |
my $self = shift; |
my $self = shift; |
if($self->{deferred}) { |
if($self->{deferred}) { |
Line 283 sub getFile {
|
Line 291 sub getFile {
|
If active returns the lond server socket else undef. |
If active returns the lond server socket else undef. |
|
|
=cut |
=cut |
|
|
sub getServer { |
sub getServer { |
my $self = shift; |
my $self = shift; |
|
|