11 |
|
|
12 |
=head1 VERSION |
=head1 VERSION |
13 |
|
|
14 |
Version 0.06 |
Version 0.07 |
15 |
|
|
16 |
=cut |
=cut |
17 |
|
|
18 |
our $VERSION = '0.06'; |
our $VERSION = '0.07'; |
19 |
|
|
20 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
21 |
|
|
123 |
|
|
124 |
$log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l); |
$log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l); |
125 |
|
|
126 |
if ($self->{filter} && ! $self->{filter}->{regex}) { |
if (! $self->{filter} || ! $self->{filter}->{regex}) { |
127 |
$log->debug("adding built-in filter regex"); |
$log->debug("adding built-in filter regex"); |
128 |
$self->{filter}->{regex} = sub { |
$self->{filter}->{regex} = sub { |
129 |
my ($val, $regex) = @_; |
my ($val, $regex) = @_; |