79 |
} else { |
} else { |
80 |
$log->logide("unsupported lookup file $lookup_file"); |
$log->logide("unsupported lookup file $lookup_file"); |
81 |
} |
} |
82 |
|
$log->debug("lookup_def: " . Dumper( $self->{lookup_def} )); |
83 |
|
|
84 |
$log->logconfess("lookup config file isn't ARRAY but ", sub { Dumper( $self->{'lookup_def'} ) }) if ($self->{'lookup_def'} !~ /ARRAY/o); |
$log->logconfess("lookup config file isn't ARRAY but ", sub { Dumper( $self->{'lookup_def'} ) }) if ($self->{'lookup_def'} !~ /ARRAY/o); |
85 |
|
|
86 |
$self->{'is_lookup_regex'} ||= 'lookup{[^\{\}]+}'; |
$self->{'is_lookup_regex'} ||= 'lookup{\[[^\{\}]+\]}'; |
87 |
$self->{'save_lookup_regex'} ||= 'lookup{([^\{\}]+)}'; |
$self->{'save_lookup_regex'} ||= 'lookup{([^\{\}]+)}'; |
88 |
|
|
89 |
|
|
90 |
$self->{'LOOKUP_REGEX'} = qr/$self->{'is_lookup_regex'}/; |
$self->{'LOOKUP_REGEX'} = qr/$self->{'is_lookup_regex'}/; |
91 |
$self->{'LOOKUP_REGEX_SAVE'} = qr/$self->{'save_lookup_regex'}/; |
$self->{'LOOKUP_REGEX_SAVE'} = qr/$self->{'save_lookup_regex'}/; |
92 |
|
|
93 |
$log->debug("regexps: ", $self->{'LOOKUP_REGEX'}, " ", $self->{'LOOKUP_REGEX_SAVE'}); |
$log->debug("regexps lookup:", $self->{'LOOKUP_REGEX'}, " save:", $self->{'LOOKUP_REGEX_SAVE'}); |
94 |
|
|
95 |
$self ? return $self : return undef; |
$self ? return $self : return undef; |
96 |
} |
} |
105 |
|
|
106 |
=cut |
=cut |
107 |
|
|
108 |
sub add($) { |
sub add { |
109 |
my $self = shift; |
my $self = shift; |
110 |
|
|
111 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
117 |
my $n = 0; |
my $n = 0; |
118 |
|
|
119 |
foreach my $i (@{ $self->{'lookup_def'} }) { |
foreach my $i (@{ $self->{'lookup_def'} }) { |
120 |
$log->logconfess("need key") unless defined($i->{'key'}); |
$log->logconfess("need key in ", Dumper($i) ) unless defined($i->{'key'}); |
121 |
$log->logconfess("need val") unless defined($i->{'val'}); |
$log->logconfess("need val in ", Dumper($i) ) unless defined($i->{'val'}); |
122 |
|
|
123 |
$n++; |
$n++; |
124 |
|
|