[Opensrf-commits] r1002 - in trunk/src/perlmods/OpenSRF: .
Application/Demo DomainObject
svn at svn.open-ils.org
svn at svn.open-ils.org
Fri Jul 6 08:33:51 EDT 2007
Author: miker
Date: 2007-07-06 08:29:52 -0400 (Fri, 06 Jul 2007)
New Revision: 1002
Modified:
trunk/src/perlmods/OpenSRF/AppSession.pm
trunk/src/perlmods/OpenSRF/Application/Demo/Math.pm
trunk/src/perlmods/OpenSRF/Application/Demo/MathDB.pm
trunk/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm
trunk/src/perlmods/OpenSRF/EX.pm
trunk/src/perlmods/OpenSRF/System.pm
Log:
a little bit more cleanup from previous DOM/DomianObject removal
Modified: trunk/src/perlmods/OpenSRF/AppSession.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/AppSession.pm 2007-07-06 00:20:44 UTC (rev 1001)
+++ trunk/src/perlmods/OpenSRF/AppSession.pm 2007-07-06 12:29:52 UTC (rev 1002)
@@ -1,6 +1,4 @@
package OpenSRF::AppSession;
-#use OpenSRF::DOM;
-#use OpenSRF::DOM::Element::userAuth;
use OpenSRF::DomainObject::oilsMessage;
use OpenSRF::DomainObject::oilsMethod;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
Modified: trunk/src/perlmods/OpenSRF/Application/Demo/Math.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/Application/Demo/Math.pm 2007-07-06 00:20:44 UTC (rev 1001)
+++ trunk/src/perlmods/OpenSRF/Application/Demo/Math.pm 2007-07-06 12:29:52 UTC (rev 1002)
@@ -3,7 +3,6 @@
use OpenSRF::Application;
use OpenSRF::Utils::Logger qw/:level/;
use OpenSRF::DomainObject::oilsResponse;
-#use OpenSRF::DomainObject::oilsPrimitive;
use OpenSRF::EX qw/:try/;
use strict;
use warnings;
Modified: trunk/src/perlmods/OpenSRF/Application/Demo/MathDB.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/Application/Demo/MathDB.pm 2007-07-06 00:20:44 UTC (rev 1001)
+++ trunk/src/perlmods/OpenSRF/Application/Demo/MathDB.pm 2007-07-06 12:29:52 UTC (rev 1002)
@@ -3,7 +3,6 @@
use base qw/OpenSRF::Application/;
use OpenSRF::Application;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
-#use OpenSRF::DomainObject::oilsPrimitive;
use OpenSRF::Utils::Logger qw/:level/;
use strict;
use warnings;
Modified: trunk/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm 2007-07-06 00:20:44 UTC (rev 1001)
+++ trunk/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm 2007-07-06 12:29:52 UTC (rev 1002)
@@ -106,11 +106,8 @@
return $self->{statusCode};
}
-
#-------------------------------------------------------------------------------
-
-
package OpenSRF::DomainObject::oilsStatus;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use base 'OpenSRF::DomainObject::oilsResponse';
@@ -142,6 +139,8 @@
$status = 'Status';
$statusCode = STATUS_OK;
+#-------------------------------------------------------------------------------
+
package OpenSRF::DomainObject::oilsConnectStatus;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use base 'OpenSRF::DomainObject::oilsStatus';
@@ -177,9 +176,8 @@
$status = 'Connection Successful';
$statusCode = STATUS_OK;
+#-------------------------------------------------------------------------------
-
-
package OpenSRF::DomainObject::oilsContinueStatus;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use base 'OpenSRF::DomainObject::oilsStatus';
@@ -216,15 +214,10 @@
1;
-
-
#-------------------------------------------------------------------------------
-
-
package OpenSRF::DomainObject::oilsResult;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
-use OpenSRF::DomainObject::oilsPrimitive;
use base 'OpenSRF::DomainObject::oilsResponse';
use vars qw/$status $statusCode/;
OpenSRF::Utils::JSON->register_class_hint( hint => 'osrfResult', name => 'OpenSRF::DomainObject::oilsResult', type => 'hash' );
@@ -284,12 +277,8 @@
1;
-
-
#-------------------------------------------------------------------------------
-
-
package OpenSRF::DomainObject::oilsException;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use OpenSRF::EX;
@@ -334,6 +323,8 @@
$status = 'Exception occured';
$statusCode = STATUS_INTERNALSERVERERROR;
+#-------------------------------------------------------------------------------
+
package OpenSRF::DomainObject::oilsConnectException;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use OpenSRF::EX;
@@ -371,6 +362,8 @@
$status = 'Connect Request Failed';
$statusCode = STATUS_FORBIDDEN;
+#-------------------------------------------------------------------------------
+
package OpenSRF::DomainObject::oilsMethodException;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use base 'OpenSRF::DomainObject::oilsException';
@@ -421,10 +414,6 @@
# -------------------------------------------
-
-
-
-
package OpenSRF::DomainObject::oilsBrokenSession;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use OpenSRF::EX;
@@ -434,6 +423,8 @@
$status = "Request on Disconnected Session";
$statusCode = STATUS_EXPFAILED;
+#-------------------------------------------------------------------------------
+
package OpenSRF::DomainObject::oilsXMLParseError;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use OpenSRF::EX;
@@ -443,6 +434,8 @@
$status = "XML Parse Error";
$statusCode = STATUS_EXPFAILED;
+#-------------------------------------------------------------------------------
+
package OpenSRF::DomainObject::oilsAuthException;
use OpenSRF::DomainObject::oilsResponse qw/:status/;
use OpenSRF::EX;
Modified: trunk/src/perlmods/OpenSRF/EX.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/EX.pm 2007-07-06 00:20:44 UTC (rev 1001)
+++ trunk/src/perlmods/OpenSRF/EX.pm 2007-07-06 12:29:52 UTC (rev 1002)
@@ -179,34 +179,6 @@
# -------------------------------------------------------------------
-package OpenSRF::EX::NotADomainObject;
-use base 'OpenSRF::EX::ERROR';
-our $ex_msg_header = "Must be a Domain Object";
-
-=head2 OpenSRF::EX::NotADomainObject
-
-Thrown where a OpenSRF::DomainObject::oilsScalar or
-OpenSRF::DomainObject::oilsPair was passed a value that
-is not a perl scalar or a OpenSRF::DomainObject.
-
-=cut
-
-
-# -------------------------------------------------------------------
-package OpenSRF::EX::ArrayOutOfBounds;
-use base 'OpenSRF::EX::ERROR';
-our $ex_msg_header = "Tied array access on a nonexistant index";
-
-=head2 OpenSRF::EX::ArrayOutOfBounds
-
-Thrown where a TIEd array (OpenSRF::DomainObject::oilsArray) was accessed at
-a nonexistant index
-
-=cut
-
-
-
-# -------------------------------------------------------------------
package OpenSRF::EX::Socket;
use base 'OpenSRF::EX::ERROR';
our $ex_msg_header = "Socket Exception";
Modified: trunk/src/perlmods/OpenSRF/System.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/System.pm 2007-07-06 00:20:44 UTC (rev 1001)
+++ trunk/src/perlmods/OpenSRF/System.pm 2007-07-06 12:29:52 UTC (rev 1002)
@@ -8,7 +8,6 @@
use OpenSRF::UnixServer;
use OpenSRF::Utils;
use OpenSRF::Utils::LogServer;
-#use OpenSRF::DOM;
use OpenSRF::EX qw/:try/;
use POSIX qw/setsid :sys_wait_h/;
use OpenSRF::Utils::Config;
More information about the opensrf-commits
mailing list