17 |
|
|
18 |
our $VERSION = '0.01'; |
our $VERSION = '0.01'; |
19 |
|
|
|
#my $LOOKUP_REGEX = '\[[^\[\]]+\]'; |
|
|
#my $LOOKUP_REGEX_SAVE = '\[([^\[\]]+)\]'; |
|
|
my $LOOKUP_REGEX = 'lookup{[^\{\}]+}'; |
|
|
my $LOOKUP_REGEX_SAVE = 'lookup{([^\{\}]+)}'; |
|
|
|
|
20 |
=head1 SYNOPSYS |
=head1 SYNOPSYS |
21 |
|
|
22 |
This module defines common functions, and is used as base for other, more |
This module defines common functions, and is used as base for other, more |
104 |
$log->debug("filter result: $format"); |
$log->debug("filter result: $format"); |
105 |
} |
} |
106 |
# do we have lookups? |
# do we have lookups? |
107 |
if ($format =~ /$LOOKUP_REGEX/o) { |
if ($self->{'lookup'}) { |
|
$log->debug("format '$format' has lookup"); |
|
108 |
return $self->lookup($format); |
return $self->lookup($format); |
109 |
} else { |
} else { |
110 |
return $format; |
return $format; |