[LON-CAPA-cvs] cvs: loncom / LondTransaction.pm

[albertel]

albertel		Thu Jun 16 18:59:07 2005 EDT

  Modified files:              
    /loncom	LondTransaction.pm 
  Log:
  - pod style docs want a blank line after =cut
  
  
Index: loncom/LondTransaction.pm
diff -u loncom/LondTransaction.pm:1.8 loncom/LondTransaction.pm:1.9
--- loncom/LondTransaction.pm:1.8	Thu Jun 16 18:33:45 2005
+++ loncom/LondTransaction.pm	Thu Jun 16 18:59:05 2005
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondTransaction.pm,v 1.8 2005/06/16 22:33:45 albertel Exp $
+# $Id: LondTransaction.pm,v 1.9 2005/06/16 22:59:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,7 @@
 package LondTransaction;
 
 =pod
+
 =head1 Description
 
 LondTransaction objects hold the state required to manage a 
@@ -93,8 +94,6 @@
 
 =cut
 
-
-
 sub new {
 
     my ($class, $Transaction) = @_;
@@ -106,6 +105,7 @@
     bless($self, $class);
     return $self;
 }
+
 =pod
 
 =item Activate
@@ -125,6 +125,7 @@
 =back 
 
 =cut
+
 sub Activate {
 
 
@@ -146,6 +147,7 @@
 Otherwise this is a noop.
 
 =cut
+
 sub Retire {
     my $self     = shift;
 
@@ -179,6 +181,7 @@
 =back 
 
 =cut
+
 sub SetDeferred {
 
 
@@ -206,6 +209,7 @@
 =back
 
 =cut
+
 sub SetClient {
 
     my ($self, $Client) = @_;
@@ -224,6 +228,7 @@
 Returns the state of the deferred member.
 
 =cut
+
 sub isDeferred {
     my $self   = shift;
     return $self->{deferred};
@@ -236,6 +241,7 @@
 Returns the value of the active member.
 
 =cut
+
 sub isActive {
     my $self = shift;
     return $self->{active};
@@ -248,6 +254,7 @@
 If not deferred returns the client socket, else returns undef.
 
 =cut
+
 sub getClient {
     my $self = shift;
     if($self->{deferred}) {
@@ -266,6 +273,7 @@
 returns undef.
 
 =cut
+
 sub getFile {
     my $self = shift;
     if($self->{deferred}) {
@@ -283,6 +291,7 @@
   If active returns the lond server socket else undef.
 
 =cut
+
 sub getServer {
     my $self  = shift;