cvsuser 02/02/01 12:35:22
Modified: P5EEx/Blue/P5EEx/Blue Session.pm
Log:
added get_session_id() method
Revision Changes Path
1.4 +13 -9 p5ee/P5EEx/Blue/P5EEx/Blue/Session.pm
Index: Session.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Session.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- Session.pm 11 Dec 2001 05:03:46 -0000 1.3
+++ Session.pm 1 Feb 2002 20:35:22 -0000 1.4
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Session.pm,v 1.3 2001/12/11 05:03:46 spadkins Exp $
+## $Id: Session.pm,v 1.4 2002/02/01 20:35:22 spadkins Exp $
#############################################################################
package P5EEx::Blue::Session;
@@ -113,27 +113,31 @@
=cut
#############################################################################
-# TBD()
+# get_session_id()
#############################################################################
-=head2 TBD()
+=head2 get_session_id()
-The TBD() method ...
+The get_session_id() returns the session_id of this particular session.
+This session_id is unique for all time. If a session_id does not yet
+exist, one will be created. The session_id is only created when first
+requested, and not when the session is instantiated.
- * Signature: $session->TBD(@args);
- * Param: @args string [in]
- * Return: void
+ * Signature: $session_id = $session->get_session_id();
+ * Param: void
+ * Return: $session_id string
* Throws: <none>
* Since: 0.01
Sample Usage:
- $session->TBD();
+ $session->get_session_id();
=cut
-sub TBD {
+sub get_session_id {
my $self = shift;
+ "default"; # subclasses will override this
}
1;
