--- trunk/lib/WebPAC/Lookup.pm	2005/12/27 22:26:43	330
+++ trunk/lib/WebPAC/Lookup.pm	2006/06/26 16:39:51	536
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use base qw/WebPAC::Common WebPAC::Normalize/;
+use base qw/WebPAC::Common WebPAC::Lookup::Normalize/;
 use File::Slurp;
 use YAML qw/LoadFile/;
 use Data::Dumper;
@@ -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
@@ -59,8 +56,8 @@
 =cut
 
 sub new {
-        my $class = shift;
-        my $self = {@_};
+	my $class = shift;
+	my $self = {@_};
 	bless($self, $class);
 
 	my $log = $self->_get_logger();
@@ -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.
@@ -209,7 +219,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2005 Dobrica Pavlinusic, All Rights Reserved.
+Copyright 2005-2006 Dobrica Pavlinusic, All Rights Reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.