--- nfo/perl/libs/DesignPattern/Object.pm	2003/03/27 15:44:32	1.9
+++ nfo/perl/libs/DesignPattern/Object.pm	2003/05/13 08:46:08	1.10
@@ -1,7 +1,10 @@
 ## ---------------------------------------------------------------------------
-##  $Id: Object.pm,v 1.9 2003/03/27 15:44:32 joko Exp $
+##  $Id: Object.pm,v 1.10 2003/05/13 08:46:08 joko Exp $
 ## ---------------------------------------------------------------------------
 ##  $Log: Object.pm,v $
+##  Revision 1.10  2003/05/13 08:46:08  joko
+##  pod and comments
+##
 ##  Revision 1.9  2003/03/27 15:44:32  joko
 ##  fixes/enhancements to 'sub log_basic'
 ##
@@ -32,6 +35,19 @@
 ##
 ## ---------------------------------------------------------------------------
 
+=pod
+
+=head1 NAME
+
+  DesignPattern::Object
+
+
+=head1 TODO
+
+  o use Class::Loader
+
+
+=cut
 
 package DesignPattern::Object;
 
@@ -168,6 +184,7 @@
     eval($evstring);
   
   # report errors
+  # Could this be united with DesignPattern::Loader::checkExceptions?
     if ($@) {
       # build error-messages
       my $issuer = __PACKAGE__ . ':' . __LINE__;