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

[haver]

Author: dylan
Date: 2005-01-08 02:05:40 -0500 (Sat, 08 Jan 2005)
New Revision: 546

Modified:
   trunk/main/server/lib/Haver/Server/Object/User.pm
Log:
added support for wheels.



Modified: trunk/main/server/lib/Haver/Server/Object/User.pm
===================================================================
--- trunk/main/server/lib/Haver/Server/Object/User.pm   2005-01-07 23:25:25 UTC 
(rev 545)
+++ trunk/main/server/lib/Haver/Server/Object/User.pm   2005-01-08 07:05:40 UTC 
(rev 546)
@@ -8,17 +8,22 @@
 use Haver::Preprocessor;
 use Haver::Server::Object;
 use base qw( Haver::Server::Object );
+use Scalar::Util;
 
 our $VERSION = 0.05;
 
 
 sub initialize {
        my ($me) = @_;
+    # ASSERT: exists $me->{wheel};
 
        $me->{_access}   = {};
     $me->{_channels} = {};
 }
 
+sub wheel { $_[0]{wheel} }
+
+
 sub add_channel {
     my ($me, $cid) = @_;
     # ASSERT: defined $cid;