--- trunk/lib/WebPAC/Normalize.pm	2006/10/08 18:21:26	752
+++ trunk/lib/WebPAC/Normalize.pm	2006/12/06 23:44:36	785
@@ -19,6 +19,8 @@
 	save_into_lookup
 
 	split_rec_on
+
+	get set
 /;
 
 use warnings;
@@ -39,11 +41,11 @@
 
 =head1 VERSION
 
-Version 0.23
+Version 0.24
 
 =cut
 
-our $VERSION = '0.23';
+our $VERSION = '0.24';
 
 =head1 SYNOPSIS
 
@@ -1022,7 +1024,7 @@
 sub lookup {
 	my ($what, $database, $input, $key, $having) = @_;
 
-	confess "lookup needs 5 arguments: what, database, input, key, having" unless ($#_ == 4);
+	confess "lookup needs 5 arguments: what, database, input, key, having\n" unless ($#_ == 4);
 
 	warn "## lookup ($database, $input, $key)", $/ if ($debug > 1);
 	return unless (defined($lookup->{$database}->{$input}->{$key}));
@@ -1248,5 +1250,33 @@
 	}
 }
 
+my $hash;
+
+=head2 set
+
+  set( key => 'value' );
+
+=cut
+
+sub set {
+	my ($k,$v) = @_;
+	warn "## set ( $k => ", dump($v), " )", $/;
+	$hash->{$k} = $v;
+};
+
+=head2 get
+
+  get( 'key' );
+
+=cut
+
+sub get {
+	my $k = shift || return;
+	my $v = $hash->{$k};
+	warn "## get $k = ", dump( $v ), $/;
+	return $v;
+}
+
+
 # END
 1;