59 |
=cut |
=cut |
60 |
|
|
61 |
sub new { |
sub new { |
62 |
my $class = shift; |
my $class = shift; |
63 |
my $self = {@_}; |
my $self = {@_}; |
64 |
bless($self, $class); |
bless($self, $class); |
65 |
|
|
66 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
146 |
|
|
147 |
Perform lookups on format supplied to it. |
Perform lookups on format supplied to it. |
148 |
|
|
149 |
my $text = $lookup->lookup('[v900]'); |
my $text = $lookup->lookup('lookup{v900}'); |
150 |
|
|
151 |
Lookups can be nested (like C<[d:[a:[v900]]]>). |
Lookups can be nested (like lookup{B<d:>lookup{B<a:>lookup{B<v900>}}}). |
152 |
|
|
153 |
=cut |
=cut |
154 |
|
|