[Top][All Lists]
[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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Haver-commits] r44 - haver-server/lib/Haver/Server,
dylan <=