[haver-commits] r506 - trunk/main/server/lib/Haver/Server/Object

[haver]

Author: dylan
Date: 2005-01-01 04:27:19 -0500 (Sat, 01 Jan 2005)
New Revision: 506

Modified:
   trunk/main/server/lib/Haver/Server/Object/Channel.pm
Log:
commiting now, even though it is still half done, just for the heck
of it. I'm documenting every public method now. :)



Modified: trunk/main/server/lib/Haver/Server/Object/Channel.pm
===================================================================
--- trunk/main/server/lib/Haver/Server/Object/Channel.pm        2005-01-01 
09:10:33 UTC (rev 505)
+++ trunk/main/server/lib/Haver/Server/Object/Channel.pm        2005-01-01 
09:27:19 UTC (rev 506)
@@ -4,11 +4,6 @@
 
 Haver::Server::Object::Channel - a Server::Object that contains 
Server::Objects.
 
-=head1 INHERITENCE
-
-    Haver::Server::Object::Channel
-      is a Haver::Server::Object
-
 =head1 SYNOPSIS
 
   use Haver::Server::Object::Channel;
@@ -18,17 +13,26 @@
 
 FIXME
 
+=head1 INHERITENCE
+
+Haver::Server::Object::Channel extends L<Haver::Server::Object>.
+
 =cut
 
 package Haver::Server::Object::Channel;
 use strict;
 use warnings;
-
 use Haver::Server::Object;
 use base qw( Haver::Server::Object );
 
 our $VERSION = 0.10;
 
+=head1 METHODS
+
+Haver::Server::Object::Channel implements the following methods:
+
+=cut
+
 sub initialize {
     my ($me) = @_;
     
@@ -36,10 +40,22 @@
     $me->{_contents} = {};
 }
 
+=head2 namespace(Z<>)
+
+Returns 'channel'.
+
+=cut
+
 sub namespace {
        return 'channel';
 }
 
+=head2 add($object)
+
+
+
+=cut
+
 sub add {
     my ($me, $object) = @_;