r24053 - in /trunk/liblog-handler-perl: ./ debian/ examples/ lib/Log/ lib/Log/Handler/ lib/Log/Handler/Plugin/ lib/Log/Handler/Plugin/Config/
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Sun Aug 10 05:54:58 UTC 2008
Author: rmayorga-guest
Date: Sun Aug 10 05:54:56 2008
New Revision: 24053
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24053
Log:
* New upstream release
* debian/control
+ Use debhelper compat level 7
+ Add module-name to Long Description
+ remove libmodule-build-perl from B-D
+ add myself to uploaders
* Use rules.dh7.noxs template for debian/rules
Added:
trunk/liblog-handler-perl/examples/example.props
- copied unchanged from r24052, branches/upstream/liblog-handler-perl/current/examples/example.props
trunk/liblog-handler-perl/examples/example.yaml
- copied unchanged from r24052, branches/upstream/liblog-handler-perl/current/examples/example.yaml
Modified:
trunk/liblog-handler-perl/ChangeLog
trunk/liblog-handler-perl/MANIFEST
trunk/liblog-handler-perl/META.yml
trunk/liblog-handler-perl/README
trunk/liblog-handler-perl/debian/changelog
trunk/liblog-handler-perl/debian/compat
trunk/liblog-handler-perl/debian/control
trunk/liblog-handler-perl/debian/rules
trunk/liblog-handler-perl/examples/benchmark.pl
trunk/liblog-handler-perl/examples/example.conf
trunk/liblog-handler-perl/examples/example.pl
trunk/liblog-handler-perl/lib/Log/Handler.pm
trunk/liblog-handler-perl/lib/Log/Handler/Examples.pod
trunk/liblog-handler-perl/lib/Log/Handler/Output.pm
trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/General.pm
trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/Properties.pm
trunk/liblog-handler-perl/lib/Log/Handler/Plugin/YAML.pm
Modified: trunk/liblog-handler-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/ChangeLog?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/ChangeLog (original)
+++ trunk/liblog-handler-perl/ChangeLog Sun Aug 10 05:54:56 2008
@@ -1,3 +1,7 @@
+0.45 Released at 2008-07-28.
+ - Fixed Plugin::YAML. It was created as Plugin::Config::YAML.
+ - Did some code/example improvements.
+
0.45 Released at 2008-07-25.
- Kicked $self->{caller_level} and replaced it with
Log::Handler::CALLER_LEVEL. The reason is that if dump(),
Modified: trunk/liblog-handler-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/MANIFEST?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/MANIFEST (original)
+++ trunk/liblog-handler-perl/MANIFEST Sun Aug 10 05:54:56 2008
@@ -4,6 +4,8 @@
examples/client.pl
examples/example.conf
examples/example.pl
+examples/example.props
+examples/example.yaml
examples/layout.pl
examples/runtime.pl
examples/server.pl
Modified: trunk/liblog-handler-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/META.yml?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/META.yml (original)
+++ trunk/liblog-handler-perl/META.yml Sun Aug 10 05:54:56 2008
@@ -1,6 +1,6 @@
---
name: Log-Handler
-version: 0.45
+version: 0.46
author:
- Jonny Schulz
abstract: Log messages to several outputs.
@@ -30,7 +30,7 @@
provides:
Log::Handler:
file: lib/Log/Handler.pm
- version: 0.45
+ version: 0.46
Log::Handler::Config:
file: lib/Log/Handler/Config.pm
version: 0.03
@@ -67,9 +67,9 @@
Log::Handler::Plugin::Config::Properties:
file: lib/Log/Handler/Plugin/Config/Properties.pm
version: 0.03
- Log::Handler::Plugin::Config::YAML:
+ Log::Handler::Plugin::YAML:
file: lib/Log/Handler/Plugin/YAML.pm
- version: 0.02
+ version: 0.03
generated_by: Module::Build version 0.2808
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
Modified: trunk/liblog-handler-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/README?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/README (original)
+++ trunk/liblog-handler-perl/README Sun Aug 10 05:54:56 2008
@@ -328,7 +328,7 @@
would cause an error!
- "filter_caller"
+ filter_caller
You can use this option to set a package name. Only messages from
this packages will be logged.
@@ -694,7 +694,7 @@
$log->add(file => {
filename => 'file.log',
mode => 'append',
- message_layout => '%X %m %N',
+ message_layout => '%X %m%N',
});
Or use it with "message_pattern":
Modified: trunk/liblog-handler-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/debian/changelog?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/debian/changelog (original)
+++ trunk/liblog-handler-perl/debian/changelog Sun Aug 10 05:54:56 2008
@@ -1,3 +1,15 @@
+liblog-handler-perl (0.46-1) unstable; urgency=low
+
+ * New upstream release
+ * debian/control
+ + Use debhelper compat level 7
+ + Add module-name to Long Description
+ + remove libmodule-build-perl from B-D
+ + add myself to uploaders
+ * Use rules.dh7.noxs template for debian/rules
+
+ -- Rene Mayorga <rmayorga at debian.org.sv> Sat, 09 Aug 2008 23:35:32 -0600
+
liblog-handler-perl (0.45-1) unstable; urgency=low
* New upstream release.
Modified: trunk/liblog-handler-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/debian/compat?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/debian/compat (original)
+++ trunk/liblog-handler-perl/debian/compat Sun Aug 10 05:54:56 2008
@@ -1,1 +1,1 @@
-5
+7
Modified: trunk/liblog-handler-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/debian/control?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/debian/control (original)
+++ trunk/liblog-handler-perl/debian/control Sun Aug 10 05:54:56 2008
@@ -1,13 +1,13 @@
Source: liblog-handler-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 5), libmodule-build-perl
+Build-Depends: debhelper (>= 7)
Build-Depends-Indep: perl (>= 5.8.7), libtest-pod-perl,
libtest-pod-coverage-perl, libparams-validate-perl, libdevel-backtrace-perl,
libuniversal-require-perl, libdbi-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Roberto C. Sanchez <roberto at connexer.com>,
- gregor herrmann <gregoa at debian.org>
+ gregor herrmann <gregoa at debian.org>, Rene Mayorga <rmayorga at debian.org.sv>
Standards-Version: 3.8.0
Homepage: http://search.cpan.org/dist/Log-Handler/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/liblog-handler-perl/
@@ -19,7 +19,7 @@
libdevel-backtrace-perl
Suggests: libconfig-general-perl, libyaml-perl
Description: A simple handler to log messages to a log file
- This module is just a simple object oriented log file handler and very easy to
+ Log::Handler is just a simple object oriented log file handler and very easy to
use. It's possible to define a log level for your programs and control the
amount of informations that will be logged to the log file. In addition it's
possible to configure how you wish to open the log file - transient or
Modified: trunk/liblog-handler-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/debian/rules?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/debian/rules (original)
+++ trunk/liblog-handler-perl/debian/rules Sun Aug 10 05:54:56 2008
@@ -1,61 +1,23 @@
#!/usr/bin/make -f
-# This debian/rules file is provided as a template for normal perl
-# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
-# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
-# be used freely wherever it is useful.
-#
-# It was later modified by Jason Kohles <email at jasonkohles.com>
-# http://www.jasonkohles.com/ to support Module::Build installed modules
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PERL ?= /usr/bin/perl
-PACKAGE = $(shell dh_listpackages)
-TMP = $(CURDIR)/debian/$(PACKAGE)
build: build-stamp
build-stamp:
- dh_testdir
- $(PERL) Build.PL installdirs=vendor
- $(PERL) Build
- LOG_HANDLER_SOCK_TEST=1 $(PERL) Build test
+ dh build
touch $@
clean:
- dh_testdir
- dh_testroot
- dh_clean build-stamp install-stamp
- [ ! -f Build ] || $(PERL) Build --allow_mb_mismatch 1 distclean
+ dh $@
install: install-stamp
install-stamp: build-stamp
- dh_testdir
- dh_testroot
- dh_clean -k
- $(PERL) Build install destdir=$(TMP) create_packlist=0
+ dh install
touch $@
binary-arch:
-# We have nothing to do here for an architecture-independent package
-binary-indep: build install
- dh_testdir
- dh_testroot
- dh_installdocs
- dh_installexamples examples/*
- dh_installchangelogs ChangeLog
- dh_perl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_gencontrol
- dh_md5sums
- dh_builddeb
+binary-indep: install
+ dh $@
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build
Modified: trunk/liblog-handler-perl/examples/benchmark.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/examples/benchmark.pl?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/examples/benchmark.pl (original)
+++ trunk/liblog-handler-perl/examples/benchmark.pl Sun Aug 10 05:54:56 2008
@@ -44,7 +44,7 @@
$log->add(
forward => {
- alias => 'pattern',
+ alias => 'message pattern',
maxlevel => 'error',
minlevel => 'error',
newline => 1,
@@ -54,25 +54,53 @@
}
);
-my $count = 100_000;
-my $time = ();
+$log->add(
+ forward => {
+ alias => 'filter caller',
+ maxlevel => 'emerg',
+ minlevel => 'emerg',
+ newline => 1,
+ forward_to => \&buffer,
+ filter_caller => qr/^Foo::Bar\z/,
+ }
+);
-$time = timeit($count, sub { $log->info('foo') });
-print "$count loops for a complex output took: ", timestr($time) ,"\n";
-undef $BUFFER;
+$log->add(
+ forward => {
+ alias => 'filter message',
+ maxlevel => 'alert',
+ minlevel => 'alert',
+ newline => 1,
+ forward_to => \&buffer,
+ filter_message => qr/bar/,
+ }
+);
-$time = timeit($count, sub { $log->notice('foo') });
-print "$count loops for a simple output took: ", timestr($time) ,"\n";
-undef $BUFFER;
+my $count = 100_000;
+my $message = 'foo bar baz';
-$time = timeit($count, sub { $log->debug('foo') }); # debug will not be logged
-print "$count loops for a suppressed output took:", timestr($time) ,"\n";
-undef $BUFFER;
+run("simple pattern output took", $count, sub { $log->notice($message) } );
+run("default pattern output took", $count, sub { $log->warning($message) } );
+run("complex pattern output took", $count, sub { $log->info($message) } );
+run("message pattern output took", $count, sub { $log->error($message) } );
+run("suppressed output took", $count, sub { $log->debug($message) } );
+run("filtered caller output took", $count, \&Foo::Bar::emerg );
+run("suppressed caller output took", $count, \&Foo::Baz::emerg );
+run("filterd messages output took", $count, sub { $log->alert($message) } );
-$time = timeit($count, sub { $log->warning('foo') });
-print "$count loops for a default output took: ", timestr($time) ,"\n";
-undef $BUFFER;
+sub run {
+ my ($desc, $count, $bench) = @_;
+ my $time = timeit($count, $bench);
+ print sprintf('%-35s', $desc), ' : ', timestr($time), "\n";
+ undef $BUFFER;
+}
-$time = timeit($count, sub { $log->error('foo') });
-print "$count loops for a pattern output took: ", timestr($time) ,"\n";
-undef $BUFFER;
+# Filter messages by caller
+package Foo::Bar;
+sub emerg { $log->emerg($message) }
+
+# Suppressed messages by caller
+package Foo::Baz;
+sub emerg { $log->emerg($message) }
+
+1;
Modified: trunk/liblog-handler-perl/examples/example.conf
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/examples/example.conf?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/examples/example.conf (original)
+++ trunk/liblog-handler-perl/examples/example.conf Sun Aug 10 05:54:56 2008
@@ -1,32 +1,8 @@
-<file>
- <default>
- newline = 1
- permissions = 0640
- timeformat = %b %d %H:%M:%S
- fileopen = 1
- reopen = 1
- mode = append
- message_layout = %T %H[%P] [%L] %S: %m
- debug_mode = 2
- </default>
- <common>
- filename = example-common-1.log
- maxlevel = info
- minlevel = warning
- </common>
- <error>
- filename = example-error-1.log
- maxlevel = warning
- minlevel = emergency
- </error>
- <debug>
- filename = example-debug-1.log
- maxlevel = debug
- minlevel = debug
- </debug>
-</file>
<screen>
- <dump_to_screen>
- dump = 1
- </dump_to_screen>
+ <screen1>
+ maxlevel = debug
+ minlevel = emerg
+ newline = 1
+ message_layout = %T %H[%P] [%L] Config::General - %m
+ </screen1>
</screen>
Modified: trunk/liblog-handler-perl/examples/example.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/examples/example.pl?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/examples/example.pl (original)
+++ trunk/liblog-handler-perl/examples/example.pl Sun Aug 10 05:54:56 2008
@@ -6,9 +6,7 @@
my $log = Log::Handler->new();
$log->config(config => 'example.conf');
+$log->config(config => 'example.yaml');
+$log->config(config => 'example.props');
-$log->debug('debug message');
$log->info('info message');
-$log->warn('warn message');
-$log->crit('crit message');
-$log->fatal('fatal message');
Modified: trunk/liblog-handler-perl/lib/Log/Handler.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler.pm?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler.pm (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler.pm Sun Aug 10 05:54:56 2008
@@ -335,7 +335,7 @@
would cause an error!
-=item C<filter_caller>
+=item B<filter_caller>
You can use this option to set a package name. Only messages from this
packages will be logged.
@@ -729,7 +729,7 @@
$log->add(file => {
filename => 'file.log',
mode => 'append',
- message_layout => '%X %m %N',
+ message_layout => '%X %m%N',
});
Or use it with C<message_pattern>:
@@ -849,7 +849,7 @@
use Log::Handler::Pattern;
use base qw(Log::Handler::Levels);
-our $VERSION = '0.45';
+our $VERSION = '0.46';
our $ERRSTR = '';
# $TRACE and $CALLER_LEVEL are both used as global
@@ -899,7 +899,7 @@
# to iterate from minlevel to maxlevel and
# create an HoA with all active levels
-my @LEVEL_BY_NUM = qw(
+our @LEVEL_BY_NUM = qw(
EMERGENCY
ALERT
CRITICAL
@@ -1017,7 +1017,7 @@
my $pattern = shift;
# If no $name is set then we use $pattern as name
- my ($name, $proto) = @_ == 2 ? @_ : ($pattern, @_);
+ my ($name, $code) = @_ == 2 ? @_ : ($pattern, @_);
if ($pattern !~ /^%[a-ln-z]\z/i) {
Carp::croak "invalid pattern '$pattern'";
@@ -1030,8 +1030,8 @@
# Structure:
# $self->{pattern}->{'%X'}->{name} = 'name-of-x';
# $self->{pattern}->{'%X'}->{code} = 'value-of-x';
- $self->{pattern}->{$pattern}->{code} = $proto;
$self->{pattern}->{$pattern}->{name} = $name;
+ $self->{pattern}->{$pattern}->{code} = $code;
}
sub output {
@@ -1095,8 +1095,8 @@
debug_trace
die_on_errors
filter
+ filter_caller
filter_message
- filter_caller
maxlevel
message_layout
message_pattern
@@ -1160,9 +1160,10 @@
sub _validate_options {
my ($self, @args) = @_;
+ my (%wanted, $is_fatal);
my $pattern = $self->{pattern};
- my (%wanted, $is_fatal);
-
+
+ # Option 'filter' is deprecated.
if (exists $args[0]{filter}) {
$args[0]{filter_message} = delete $args[0]{filter};
}
@@ -1405,6 +1406,8 @@
Carp::croak "missing condition for paramater 'filter'";
}
+ # Remove all valid characters from the condition
+ # and check if invalid characters left.
my $cond = $filter{condition};
$cond =~ s/match\d+//g;
$cond =~ s/[()&|!<>=\s\d]+//;
Modified: trunk/liblog-handler-perl/lib/Log/Handler/Examples.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler/Examples.pod?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler/Examples.pod (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler/Examples.pod Sun Aug 10 05:54:56 2008
@@ -1,6 +1,48 @@
=head1 NAME
-Log::Handler::Examples - Output examples.
+Log::Handler::Examples - Examples.
+
+=head1 ADD OUTPUTS
+
+ use Log::Handler;
+
+ my $log = Log::Handler->new();
+
+ $log->add( dbi => \%options );
+ $log->add( email => \%options );
+ $log->add( file => \%options );
+ $log->add( forward => \%options );
+ $log->add( screen => \%options );
+ $log->add( socket => \%options );
+
+This is the same like
+
+ $log->add( 'Log::Handler::Output::DBI' => \%options );
+ $log->add( 'Log::Handler::Output::Email' => \%options );
+ $log->add( 'Log::Handler::Output::File' => \%options );
+ $log->add( 'Log::Handler::Output::Forward' => \%options );
+ $log->add( 'Log::Handler::Output::Screen' => \%options );
+ $log->add( 'Log::Handler::Output::Socket' => \%options );
+
+You can add output objects on this way as well:
+
+ use Log::Handler;
+ use Log::Handler::Output::File;
+
+ my %file_options = (
+ filename => 'file1.log',
+ mode => 'append'
+ );
+
+ my %handler_options = (
+ maxlevel => 'info',
+ newline => 1
+ );
+
+ my $log = Log::Handler->new();
+ my $file = Log::Handler::Output::File->new( \%file_options );
+
+ $log->add( $file => \%handler_options );
=head1 LOG VIA DBI
@@ -293,7 +335,7 @@
reopen = 1
mode = append
debug_mode = 2
- message_layout = "%T %H[%P] [%L] %S: "
+ message_layout = %T %H[%P] [%L] %S: %m
</default>
<common>
Modified: trunk/liblog-handler-perl/lib/Log/Handler/Output.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler/Output.pm?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler/Output.pm (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler/Output.pm Sun Aug 10 05:54:56 2008
@@ -66,6 +66,9 @@
return 1 if $caller !~ $self->{filter_caller};
}
+ # The patterns must be generated for each output. The reason
+ # is that each output can have their own time/date format
+ # and the code which is executed can return another value.
foreach my $r (@{$self->{wanted_pattern}}) {
if (ref($r->{code})) {
$wanted->{$r->{name}} = &{$r->{code}}($self, $level);
Modified: trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/General.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/General.pm?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/General.pm (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/General.pm Sun Aug 10 05:54:56 2008
@@ -27,7 +27,7 @@
debug_mode = 2
filename = example.log
minlevel = warn
- message_layout = '%T %H[%P] [%L] %S: '
+ message_layout = %T %H[%P] [%L] %S: %m
newline = 1
</mylog>
</file>
Modified: trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/Properties.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/Properties.pm?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/Properties.pm (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler/Plugin/Config/Properties.pm Sun Aug 10 05:54:56 2008
@@ -28,7 +28,7 @@
file.mylog.minlevel = warn
file.mylog.filename = example.log
file.mylog.newline = 1
- file.mylog.message_layout = '%T %H[%P] [%L] %S: '
+ file.mylog.message_layout = %T %H[%P] [%L] %S: %m
=head1 PREREQUISITES
Modified: trunk/liblog-handler-perl/lib/Log/Handler/Plugin/YAML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler/Plugin/YAML.pm?rev=24053&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler/Plugin/YAML.pm (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler/Plugin/YAML.pm Sun Aug 10 05:54:56 2008
@@ -1,12 +1,12 @@
=head1 NAME
-Log::Handler::Plugin::Config::YAML - Config loader for YAML.
+Log::Handler::Plugin::YAML - Config loader for YAML.
=head1 SYNOPSIS
- use Log::Handler::Plugin::Config::YAML;
+ use Log::Handler::Plugin::YAML;
- my $config = Log::Handler::Plugin::Config::YAML->get_config( $config_file );
+ my $config = Log::Handler::Plugin::YAML->get_config( $config_file );
=head1 ROUTINES
@@ -27,9 +27,9 @@
mode: append
newline: 1
permissions: 0640
- message_layout: '%T %H[%P] [%L] %S: '
+ message_layout: %T %H[%P] [%L] %S: %m
reopen: 1
- timeformat: '%b %d %H:%M:%S'
+ timeformat: %b %d %H:%M:%S
=head1 PREREQUISITES
@@ -58,13 +58,13 @@
=cut
-package Log::Handler::Plugin::Config::YAML;
+package Log::Handler::Plugin::YAML;
use strict;
use warnings;
use YAML;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
sub get_config {
my ($class, $config_file) = @_;
More information about the Pkg-perl-cvs-commits
mailing list