/[webpac2]/trunk/lib/WebPAC/Lookup.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Lookup.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 393 by dpavlin, Wed Feb 15 14:49:48 2006 UTC revision 536 by dpavlin, Mon Jun 26 16:39:51 2006 UTC
# Line 3  package WebPAC::Lookup; Line 3  package WebPAC::Lookup;
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use base qw/WebPAC::Common WebPAC::Normalize/;  use base qw/WebPAC::Common WebPAC::Lookup::Normalize/;
7  use File::Slurp;  use File::Slurp;
8  use YAML qw/LoadFile/;  use YAML qw/LoadFile/;
9  use Data::Dumper;  use Data::Dumper;
# Line 14  WebPAC::Lookup - simple normalisation pl Line 14  WebPAC::Lookup - simple normalisation pl
14    
15  =head1 VERSION  =head1 VERSION
16    
17  Version 0.02  Version 0.03
18    
19  =cut  =cut
20    
21  our $VERSION = '0.02';  our $VERSION = '0.03';
22    
23  =head1 SYNOPSIS  =head1 SYNOPSIS
24    
# Line 41  value in lookup. Line 41  value in lookup.
41      'val' => 'v900' },      'val' => 'v900' },
42   ];   ];
43    
 Just for a reference, lookup data is internally stored in  
 C<< $self->{'_lookup_data'} >>.  
   
44  =head1 FUNCTIONS  =head1 FUNCTIONS
45    
46  =head2 new  =head2 new
# Line 189  sub lookup { Line 186  sub lookup {
186          }          }
187  }  }
188    
189    =head2 lookup_hash
190    
191    Returns hash representation of lookup data
192    
193      my $l_hash = $lookup->lookup_hash;
194    
195    =cut
196    
197    sub lookup_hash {
198            my $self = shift;
199            return $self->{_lookup_data};
200    }
201    
202  =head2 regex  =head2 regex
203    
204  Returns precompiled regex for lookup format.  Returns precompiled regex for lookup format.
# Line 209  Dobrica Pavlinusic, C<< <dpavlin@rot13.o Line 219  Dobrica Pavlinusic, C<< <dpavlin@rot13.o
219    
220  =head1 COPYRIGHT & LICENSE  =head1 COPYRIGHT & LICENSE
221    
222  Copyright 2005 Dobrica Pavlinusic, All Rights Reserved.  Copyright 2005-2006 Dobrica Pavlinusic, All Rights Reserved.
223    
224  This program is free software; you can redistribute it and/or modify it  This program is free software; you can redistribute it and/or modify it
225  under the same terms as Perl itself.  under the same terms as Perl itself.
Legend:
Removed from v.393  
changed lines
  Added in v.536
  ViewVC Help
Powered by ViewVC 1.1.26