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 |
|
|
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 |
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. |