From 8739d241ca3947fe11d625d30f752fe3e6552aeb Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 30 Nov 2005 21:58:27 +0000
Subject: define credential() method

---
 fml/lib/FML/Process/Utils.pm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index 01765e0a..05e332fb 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Utils.pm,v 1.138 2005/08/19 11:25:24 fukachan Exp $
+# $FML: Utils.pm,v 1.139 2005/08/31 11:15:43 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -97,6 +97,23 @@ sub scheduler
 }
 
 
+# Descriptions: return credential object.
+#    Arguments: OBJ($curproc)
+# Side Effects: none
+# Return Value: OBJ
+sub credential
+{
+    my ($curproc) = @_;
+
+    if (defined $curproc->{ credential }) {
+	return $curproc->{ credential };
+    }
+    else {
+	return undef;
+    }
+}
+
+
 =head1 access METHODS to handle incoming_message
 
 available all processes which eats message via STDIN.
-- 
cgit v1.2.1