--- trunk/lib/WebPAC/Lookup.pm	2005/07/24 11:17:44	29
+++ trunk/lib/WebPAC/Lookup.pm	2005/07/24 14:20:59	30
@@ -3,8 +3,6 @@
 use warnings;
 use strict;
 
-use WebPAC::Common;
-
 use base qw/WebPAC::Common WebPAC::Normalize/;
 use File::Slurp;
 use Data::Dumper;
@@ -42,6 +40,8 @@
     'val' => 'v900' },
  ];
 
+Just for a reference, lookup data is internally stored in
+C<< $self->{'_lookup_data'} >>.
 
 =head1 FUNCTIONS
 
@@ -122,13 +122,13 @@
 				my $key = $self->fill_in($rec,$i->{'key'}) || next;
 				my @val = $self->fill_in($rec,$i->{'val'}) || next;
 				$log->debug("stored $key = ",sub { join(" | ",@val) });
-				push @{$self->{'lookup'}->{$key}}, @val;
+				push @{$self->{'_lookup_data'}->{$key}}, @val;
 			}
 		} else {
 			my $key = $self->fill_in($rec,$i->{'key'}) || next;
 			my @val = $self->fill_in($rec,$i->{'val'}) || next;
 			$log->debug("stored $key = ",sub { join(" | ",@val) });
-			push @{$self->{'lookup'}->{$key}}, @val;
+			push @{$self->{'_lookup_data'}->{$key}}, @val;
 		}
 	}
 
@@ -161,8 +161,8 @@
 		while (my $f = shift @in) {
 			if ($f =~ $self->{'LOOKUP_REGEX_SAVE'}) {
 				my $k = $1;
-				if ($self->{'lookup'}->{$k}) {
-					foreach my $nv (@{$self->{'lookup'}->{$k}}) {
+				if ($self->{'_lookup_data'}->{$k}) {
+					foreach my $nv (@{$self->{'_lookup_data'}->{$k}}) {
 						my $tmp2 = $f;
 						$tmp2 =~ s/lookup{$k}/$nv/g;
 						push @in, $tmp2;