22 |
my $LOOKUP_REGEX = 'lookup{[^\{\}]+}'; |
my $LOOKUP_REGEX = 'lookup{[^\{\}]+}'; |
23 |
my $LOOKUP_REGEX_SAVE = 'lookup{([^\{\}]+)}'; |
my $LOOKUP_REGEX_SAVE = 'lookup{([^\{\}]+)}'; |
24 |
|
|
25 |
|
=head1 SYNOPSYS |
26 |
|
|
27 |
|
This module defines common functions, and is used as base for other, more |
28 |
|
specific modules. |
29 |
|
|
30 |
|
my $webpac = new WebPAC::Common( |
31 |
|
filter => { |
32 |
|
'filter_name_1' => sub { |
33 |
|
# filter code |
34 |
|
return length($_); |
35 |
|
}, ... |
36 |
|
}, |
37 |
|
} |
38 |
|
|
39 |
=head1 FUNCTIONS |
=head1 FUNCTIONS |
40 |
|
|
247 |
|
|
248 |
$webpac->_init_logger('/path/to/log.conf'); |
$webpac->_init_logger('/path/to/log.conf'); |
249 |
|
|
250 |
|
If no path to configuration file is given, dummy empty configuration |
251 |
|
will be create. |
252 |
|
|
253 |
=cut |
=cut |
254 |
|
|
255 |
sub _init_logger { |
sub _init_logger { |