haver-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Haver-commits] r44 - haver-server/lib/Haver/Server


From: dylan
Subject: [Haver-commits] r44 - haver-server/lib/Haver/Server
Date: Sat, 17 Apr 2004 20:58:09 -0400 (EDT)

Author: dylan
Date: 2004-04-17 20:58:08 -0400 (Sat, 17 Apr 2004)
New Revision: 44

Modified:
   haver-server/lib/Haver/Server/Object.pm
Log:
testing...


Modified: haver-server/lib/Haver/Server/Object.pm
===================================================================
--- haver-server/lib/Haver/Server/Object.pm     2004-04-15 01:38:29 UTC (rev 43)
+++ haver-server/lib/Haver/Server/Object.pm     2004-04-18 00:58:08 UTC (rev 44)
@@ -21,8 +21,8 @@
 use Carp;
 
 use Fatal qw(:void open close opendir closedir);
-
 use POE::Kernel             qw( $poe_kernel );
+
 use Haver::Server::Globals  qw( $Config     );
 use Haver::Base;
 
@@ -30,6 +30,8 @@
 use File::Basename (); # fileparse
 use Scalar::Util   (); # weaken
 
+use File::Spec
+
 # Subclass Haver::Base
 use base 'Haver::Base';
 
@@ -107,7 +109,6 @@
        $me->{_fields}    = {};
        $me->{_flags}     = {};
        $me->{id}       ||= $ID++;
-       $me->{persistent} = 0;
        
        if (exists $me->{wheel}) {
                Scalar::Util::weaken($me->{wheel});
@@ -120,19 +121,6 @@
 
 }
 
-sub is_persistent {
-       my ($me) = @_;
-
-       $me->{persistent};
-}
-
-sub persist {
-       my ($me, $val) = @_;
-
-       $me->{persistent} = $val;
-}
-
-
 ## Helper methods for POE-ness.
 sub post {
        my $me = shift;





reply via email to

[Prev in Thread] Current Thread [Next in Thread]