Changeset 23715

Timestamp:

Apr 6, 2009, 1:39:47 PM (17 years ago)

Author:

jhoblitt

Message:

rename Nebulous::Keys class -> Nebulous::Key

Location:

branches/neb_distrib_20081210/Nebulous-Server

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• lib/Nebulous/Key.pm (moved) (moved from branches/neb_distrib_20081210/Nebulous-Server/lib/Nebulous/Keys.pm ) (2 diffs)
• lib/Nebulous/Server.pm (modified) (2 diffs)

branches/neb_distrib_20081210/Nebulous-Server/Changes

@@ -8 +8 @@
     - add email logging of events to nebdiskd
     - attempt to optimize _is_valid_object_key() by eliminating an unused join
+    - rename Nebulous::Keys class -> Nebulous::Key
       
 0.16

branches/neb_distrib_20081210/Nebulous-Server/MANIFEST

@@ -19 +19 @@
 examples/uri_test.pl
 init.d/nebdiskd
-lib/Nebulous/Keys.pm
+lib/Nebulous/Key.pm
 lib/Nebulous/Server.pm
 lib/Nebulous/Server.pod

branches/neb_distrib_20081210/Nebulous-Server/lib/Nebulous/Key.pm

@@ -3 +3 @@
 # $Id: Keys.pm,v 1.3 2008-09-09 02:18:47 jhoblitt Exp $
 
-package Nebulous::Keys;
+package Nebulous::Key;
 
 use strict;
@@ -125 +125 @@
 =head1 NAME
 
-Nebulous::Keys - Nebulous Keys Explained
+Nebulous::Key - Nebulous Keys Explained
 
 =head1 DESCRIPTION

branches/neb_distrib_20081210/Nebulous-Server/lib/Nebulous/Server.pm

@@ -20 +20 @@
 use File::Spec;
 use Log::Log4perl;
-use Nebulous::Keys qw( parse_neb_key parse_neb_volume );
+use Nebulous::Key qw( parse_neb_key parse_neb_volume );
 use Nebulous::Server::Config;
 use Nebulous::Server::Log;
@@ -145 +145 @@
 sub db
 {
-    my ($self, $key) = @_;
+    my $self = shift;
+
+    my ($key) = validate_pos(@_,
+        {
+            isa => 'Nebulous::Key',
+        },
+    );
 
     my $log     = $self->log;