--- trunk/lib/WebPAC/Lookup.pm	2006/02/15 14:49:48	393
+++ trunk/lib/WebPAC/Lookup.pm	2006/05/13 12:07:56	473
@@ -14,11 +14,11 @@
 
 =head1 VERSION
 
-Version 0.02
+Version 0.03
 
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 =head1 SYNOPSIS
 
@@ -41,9 +41,6 @@
     'val' => 'v900' },
  ];
 
-Just for a reference, lookup data is internally stored in
-C<< $self->{'_lookup_data'} >>.
-
 =head1 FUNCTIONS
 
 =head2 new
@@ -189,6 +186,19 @@
 	}
 }
 
+=head2 lookup_hash
+
+Returns hash representation of lookup data
+
+  my $l_hash = $lookup->lookup_hash;
+
+=cut
+
+sub lookup_hash {
+	my $self = shift;
+	return $self->{_lookup_data};
+}
+
 =head2 regex
 
 Returns precompiled regex for lookup format.