--- trunk/lib/WebPAC/Common.pm 2005/07/16 12:40:28 5 +++ trunk/lib/WebPAC/Common.pm 2005/07/16 14:44:38 6 @@ -22,6 +22,19 @@ my $LOOKUP_REGEX = 'lookup{[^\{\}]+}'; my $LOOKUP_REGEX_SAVE = 'lookup{([^\{\}]+)}'; +=head1 SYNOPSYS + +This module defines common functions, and is used as base for other, more +specific modules. + + my $webpac = new WebPAC::Common( + filter => { + 'filter_name_1' => sub { + # filter code + return length($_); + }, ... + }, + } =head1 FUNCTIONS @@ -234,6 +247,9 @@ $webpac->_init_logger('/path/to/log.conf'); +If no path to configuration file is given, dummy empty configuration +will be create. + =cut sub _init_logger {