Changeset 10628

Timestamp:

Dec 11, 2006, 2:06:27 PM (20 years ago)

Author:

jhoblitt

Message:

make Nebulous::Server::Config no longer a singleton

Location:

trunk

Files:

• Nebulous-Server/Changes (modified) (1 diff)
• Nebulous-Server/lib/Nebulous/Server/Config.pm (modified) (4 diffs)
• Nebulous/Changes (modified) (1 diff)
• Nebulous/lib/Nebulous/Server/Config.pm (modified) (4 diffs)

trunk/Nebulous-Server/Changes

@@ -16 +16 @@
     - change Nebulous::Server::Log to accept a Nebulous::Server::Config object
       as a parameter instead of fetching it as a singleton
+    - make Nebulous::Server::Config no longer a singleton
 
 0.02 Fri Dec  2 17:36:59 HST 2005

trunk/Nebulous-Server/lib/Nebulous/Server/Config.pm

@@ -1 +1 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.1 2005-08-25 01:44:32 jhoblitt Exp $
+# $Id: Config.pm,v 1.2 2006-12-12 00:06:27 jhoblitt Exp $
 
 package Nebulous::Server::Config;
@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-our $VERSION = 0.01;
+our $VERSION = 0.02;
 
 use base qw( Class::Accessor::Fast );
@@ -14 +14 @@
 use Nebulous::Util qw( %LEVELS );
 use Params::Validate qw( validate SCALAR );
-
-my $_instance;
 
 my $new_validate = {
@@ -47 +45 @@
     bless $self, $class || ref $class;
 
-    $_instance = $self;
-
     return $self;
-}
-
-# orginaly lifted from Class::Singleton and modified to return undef unless the
-# singleton has been initialized.
-
-sub instance {
-    my $class = shift;
-
-    die "not configured" unless defined $_instance;
-
-#return defined $_instance ? $_instance : undef;
-    return $_instance;
 }
 

trunk/Nebulous/Changes

@@ -16 +16 @@
     - change Nebulous::Server::Log to accept a Nebulous::Server::Config object
       as a parameter instead of fetching it as a singleton
+    - make Nebulous::Server::Config no longer a singleton
 
 0.02 Fri Dec  2 17:36:59 HST 2005

trunk/Nebulous/lib/Nebulous/Server/Config.pm

@@ -1 +1 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.1 2005-08-25 01:44:32 jhoblitt Exp $
+# $Id: Config.pm,v 1.2 2006-12-12 00:06:27 jhoblitt Exp $
 
 package Nebulous::Server::Config;
@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-our $VERSION = 0.01;
+our $VERSION = 0.02;
 
 use base qw( Class::Accessor::Fast );
@@ -14 +14 @@
 use Nebulous::Util qw( %LEVELS );
 use Params::Validate qw( validate SCALAR );
-
-my $_instance;
 
 my $new_validate = {
@@ -47 +45 @@
     bless $self, $class || ref $class;
 
-    $_instance = $self;
-
     return $self;
-}
-
-# orginaly lifted from Class::Singleton and modified to return undef unless the
-# singleton has been initialized.
-
-sub instance {
-    my $class = shift;
-
-    die "not configured" unless defined $_instance;
-
-#return defined $_instance ? $_instance : undef;
-    return $_instance;
 }