--- trunk/lib/WebPAC/Normalize.pm	2006/10/31 13:19:47	766
+++ 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
 
@@ -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;