Hello community,
here is the log from the commit of package perl-Log-Contextual for
openSUSE:Factory checked in at 2013-10-07 08:31:40
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Log-Contextual (Old)
and /work/SRC/openSUSE:Factory/.perl-Log-Contextual.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Log-Contextual"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Log-Contextual/perl-Log-Contextual.changes
2013-07-27 15:52:53.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Log-Contextual.new/perl-Log-Contextual.changes
2013-10-07 08:31:41.000000000 +0200
@@ -1,0 +2,9 @@
+Fri Oct 4 09:11:24 UTC 2013 - [email protected]
+
+- updated to 0.006000
+ - Add Log::Contextual::Easy::Default for simple LC usage (Jakob Voß)
+ - Add Log::Contextual::Easy::Package for more different simple LC usage
+ - Fix minimum version of Exporter::Declare
+ - Dep on a newer version of Moo for multiple role composition
+
+-------------------------------------------------------------------
Old:
----
Log-Contextual-0.005003.tar.gz
New:
----
Log-Contextual-0.006000.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Log-Contextual.spec ++++++
--- /var/tmp/diff_new_pack.CnUZWS/_old 2013-10-07 08:31:42.000000000 +0200
+++ /var/tmp/diff_new_pack.CnUZWS/_new 2013-10-07 08:31:42.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Log-Contextual
-Version: 0.005003
+Version: 0.006000
Release: 0
%define cpan_name Log-Contextual
Summary: Simple logging interface with a contextual log
@@ -30,8 +30,8 @@
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(Data::Dumper::Concise)
-BuildRequires: perl(Exporter::Declare) >= 0.106
-BuildRequires: perl(Moo)
+BuildRequires: perl(Exporter::Declare) >= 0.111
+BuildRequires: perl(Moo) >= 1.003
BuildRequires: perl(Test::Fatal)
#BuildRequires: perl(BaseLogger)
#BuildRequires: perl(DefaultImportLogger)
@@ -39,6 +39,8 @@
#BuildRequires: perl(inc::Module::Install) >= 0.91
#BuildRequires: perl(JSON)
#BuildRequires: perl(Log::Contextual)
+#BuildRequires: perl(Log::Contextual::Easy::Default)
+#BuildRequires: perl(Log::Contextual::Easy::Package)
#BuildRequires: perl(Log::Contextual::Role::Router)
#BuildRequires: perl(Log::Contextual::Role::Router::SetLogger)
#BuildRequires: perl(Log::Contextual::Role::Router::WithLogger)
@@ -50,13 +52,15 @@
#BuildRequires: perl(Module::Build)
#BuildRequires: perl(Module::Install::Base)
#BuildRequires: perl(Moo::Role)
+#BuildRequires: perl(My::Module)
+#BuildRequires: perl(My::Module2)
#BuildRequires: perl(Parse::CPAN::Meta)
#BuildRequires: perl(TestExporter)
#BuildRequires: perl(TestRouter)
#BuildRequires: perl(YAML::Tiny)
Requires: perl(Data::Dumper::Concise)
-Requires: perl(Exporter::Declare) >= 0.106
-Requires: perl(Moo)
+Requires: perl(Exporter::Declare) >= 0.111
+Requires: perl(Moo) >= 1.003
%{perl_requires}
%description
++++++ Log-Contextual-0.005003.tar.gz -> Log-Contextual-0.006000.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.005003/Changes
new/Log-Contextual-0.006000/Changes
--- old/Log-Contextual-0.005003/Changes 2013-03-22 01:59:26.000000000 +0100
+++ new/Log-Contextual-0.006000/Changes 2013-09-06 02:59:33.000000000 +0200
@@ -1,4 +1,14 @@
-ChangeLog for Log-Contextual
+Revision history for Log-Contextual
+
+0.006000 2013-09-05
+ - Add Log::Contextual::Easy::Default for simple LC usage (Jakob Voß)
+ - Add Log::Contextual::Easy::Package for more different simple LC usage
+
+0.005005 2013-08-08
+ - Fix minimum version of Exporter::Declare
+
+0.005004 2013-08-08
+ - Dep on a newer version of Moo for multiple role composition
0.005003 2013-03-21
- Yell loudly if a user tries to use Log::Contextual::set_logger() or
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.005003/MANIFEST
new/Log-Contextual-0.006000/MANIFEST
--- old/Log-Contextual-0.005003/MANIFEST 2013-03-22 01:59:54.000000000
+0100
+++ new/Log-Contextual-0.006000/MANIFEST 2013-09-06 03:00:38.000000000
+0200
@@ -8,6 +8,8 @@
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
lib/Log/Contextual.pm
+lib/Log/Contextual/Easy/Default.pm
+lib/Log/Contextual/Easy/Package.pm
lib/Log/Contextual/Role/Router.pm
lib/Log/Contextual/Role/Router/SetLogger.pm
lib/Log/Contextual/Role/Router/WithLogger.pm
@@ -24,9 +26,12 @@
t/default_import.t
t/default_logger.t
t/dlog.t
+t/easy.t
t/eg.t
t/lib/BaseLogger.pm
t/lib/DefaultImportLogger.pm
+t/lib/My/Module.pm
+t/lib/My/Module2.pm
t/lib/TestExporter.pm
t/lib/TestRouter.pm
t/log.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.005003/META.yml
new/Log-Contextual-0.006000/META.yml
--- old/Log-Contextual-0.005003/META.yml 2013-03-22 01:59:52.000000000
+0100
+++ new/Log-Contextual-0.006000/META.yml 2013-09-06 03:00:36.000000000
+0200
@@ -23,10 +23,10 @@
requires:
Carp: 0
Data::Dumper::Concise: 0
- Exporter::Declare: 0.106
- Moo: 0
+ Exporter::Declare: 0.111
+ Moo: 1.003
Scalar::Util: 0
perl: 5.6.0
resources:
license: http://dev.perl.org/licenses/
-version: 0.005003
+version: 0.006000
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.005003/Makefile.PL
new/Log-Contextual-0.006000/Makefile.PL
--- old/Log-Contextual-0.005003/Makefile.PL 2013-02-15 02:31:27.000000000
+0100
+++ new/Log-Contextual-0.006000/Makefile.PL 2013-08-09 03:36:45.000000000
+0200
@@ -6,10 +6,10 @@
perl_version '5.006';
all_from 'lib/Log/Contextual.pm';
requires 'Data::Dumper::Concise';
-requires 'Exporter::Declare' => 0.106;
+requires 'Exporter::Declare' => 0.111;
requires 'Carp';
requires 'Scalar::Util';
-requires 'Moo';
+requires 'Moo' => 1.003000;
test_requires 'Test::Fatal';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Log-Contextual-0.005003/lib/Log/Contextual/Easy/Default.pm
new/Log-Contextual-0.006000/lib/Log/Contextual/Easy/Default.pm
--- old/Log-Contextual-0.005003/lib/Log/Contextual/Easy/Default.pm
1970-01-01 01:00:00.000000000 +0100
+++ new/Log-Contextual-0.006000/lib/Log/Contextual/Easy/Default.pm
2013-09-06 02:14:33.000000000 +0200
@@ -0,0 +1,66 @@
+package Log::Contextual::Easy::Default;
+
+use base 'Log::Contextual';
+
+sub arg_default_logger {
+ if ($_[1]) {
+ return $_[1];
+ } else {
+ require Log::Contextual::WarnLogger;
+ my $package = uc(caller(3));
+ $package =~ s/::/_/g;
+ return Log::Contextual::WarnLogger->new({env_prefix => $package});
+ }
+}
+
+sub default_import { qw(:dlog :log ) }
+
+1;
+
+__END__
+
+=head1 NAME
+
+Log::Contextual::Easy::Default - Import all logging methods with WarnLogger as
default
+
+=head1 SYNOPSIS
+
+In your module:
+
+ package My::Module;
+ use Log::Contextual::Easy::Default;
+
+ log_debug { "your message" };
+ Dlog_trace { $_ } @vars;
+
+In your program:
+
+ use My::Module;
+
+ # enable warnings
+ $ENV{MY_MODULE_UPTO}="TRACE";
+
+ # or use a specific logger with set_logger / with_logger
+
+=head1 DESCRIPTION
+
+By default, this module enables a L<Log::Contextual::WarnLogger>
+with C<env_prefix> based on the module's name that uses
+Log::Contextual::Easy. The logging levels are set to C<trace> C<debug>,
+C<info>, C<warn>, C<error>, and C<fatal> (in this order) and all
+logging functions (L<log_...|Log::Contextual/"log_$level">,
+L<logS_...|Log::Contextual/"logS_$level">,
+L<Dlog_...|Log::Contextual/"Dlog_$level">, and
+L<Dlog...|Log::Contextual/"DlogS_$level">) are exported.
+
+For what C<::Default> implies, see L<Log::Contextual/-default_logger>.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Log::Contextual>
+
+=item L<Log::Contextual::Easy::Package>
+
+=back
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Log-Contextual-0.005003/lib/Log/Contextual/Easy/Package.pm
new/Log-Contextual-0.006000/lib/Log/Contextual/Easy/Package.pm
--- old/Log-Contextual-0.005003/lib/Log/Contextual/Easy/Package.pm
1970-01-01 01:00:00.000000000 +0100
+++ new/Log-Contextual-0.006000/lib/Log/Contextual/Easy/Package.pm
2013-09-06 02:14:33.000000000 +0200
@@ -0,0 +1,66 @@
+package Log::Contextual::Easy::Package;
+
+use base 'Log::Contextual';
+
+sub arg_package_logger {
+ if ($_[1]) {
+ return $_[1];
+ } else {
+ require Log::Contextual::WarnLogger;
+ my $package = uc(caller(3));
+ $package =~ s/::/_/g;
+ return Log::Contextual::WarnLogger->new({env_prefix => $package});
+ }
+}
+
+sub default_import { qw(:dlog :log ) }
+
+1;
+
+__END__
+
+=head1 NAME
+
+Log::Contextual::Easy::Package - Import all logging methods with WarnLogger as
default package logger
+
+=head1 SYNOPSIS
+
+In your module:
+
+ package My::Module;
+ use Log::Contextual::Easy::Package;
+
+ log_debug { "your message" };
+ Dlog_trace { $_ } @vars;
+
+In your program:
+
+ use My::Module;
+
+ # enable warnings
+ $ENV{MY_MODULE_UPTO}="TRACE";
+
+ # or use a specific logger with set_logger / with_logger
+
+=head1 DESCRIPTION
+
+By default, this module enables a L<Log::Contextual::WarnLogger>
+with C<env_prefix> based on the module's name that uses
+Log::Contextual::Easy. The logging levels are set to C<trace> C<debug>,
+C<info>, C<warn>, C<error>, and C<fatal> (in this order) and all
+logging functions (L<log_...|Log::Contextual/"log_$level">,
+L<logS_...|Log::Contextual/"logS_$level">,
+L<Dlog_...|Log::Contextual/"Dlog_$level">, and
+L<Dlog...|Log::Contextual/"DlogS_$level">) are exported.
+
+For what C<::Package> implies, see L<Log::Contextual/-package_logger>.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Log::Contextual>
+
+=item L<Log::Contextual::Easy::Default>
+
+=back
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.005003/lib/Log/Contextual.pm
new/Log-Contextual-0.006000/lib/Log/Contextual.pm
--- old/Log-Contextual-0.005003/lib/Log/Contextual.pm 2013-03-22
01:59:11.000000000 +0100
+++ new/Log-Contextual-0.006000/lib/Log/Contextual.pm 2013-09-06
02:59:33.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.005003';
+our $VERSION = '0.006000';
$VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev
releases
my @levels = qw(debug trace warn info error fatal);
@@ -315,7 +315,7 @@
=head2 -logger
When you import this module you may use C<-logger> as a shortcut for
-L<set_logger>, for example:
+L</set_logger>, for example:
use Log::Contextual::SimpleLogger;
use Log::Contextual qw( :dlog ),
@@ -342,7 +342,7 @@
=head2 -package_logger
The C<-package_logger> import option is similar to the C<-logger> import option
-except C<-package_logger> sets the the logger for the current package.
+except C<-package_logger> sets the logger for the current package.
Unlike L</-default_logger>, C<-package_logger> cannot be overridden with
L</set_logger>.
@@ -360,7 +360,7 @@
=head2 -default_logger
The C<-default_logger> import option is similar to the C<-logger> import option
-except C<-default_logger> sets the the B<default> logger for the current
package.
+except C<-default_logger> sets the B<default> logger for the current package.
Basically it sets the logger to be used if C<set_logger> is never called; so
@@ -424,6 +424,9 @@
sub default_import { qw(:dlog :log ) }
+See L<Log::Contextual::Easy::Default> for an example of a subclass of
+C<Log::Contextual> that makes use of default import options.
+
=head1 FUNCTIONS
=head2 set_logger
@@ -677,8 +680,12 @@
=head1 CONTRIBUTORS
+=encoding utf8
+
triddle - Tyler Riddle <[email protected]>
+voj - Jakob Voß <[email protected]>
+
=head1 DESIGNER
mst - Matt S. Trout <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.005003/t/easy.t
new/Log-Contextual-0.006000/t/easy.t
--- old/Log-Contextual-0.005003/t/easy.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Log-Contextual-0.006000/t/easy.t 2013-09-06 02:14:33.000000000
+0200
@@ -0,0 +1,68 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+use lib 't/lib';
+use My::Module; # makes use of Log::Contextual::Easy::Default;
+use My::Module2; # makes use of Log::Contextual::Easy::Package;
+
+# capture logging messages of My::Module, mapping "[...] xxx" to "...$sep"
+sub logshort($$) {
+ my ($cap, $sep) = @_;
+ sub {
+ local $_ = shift;
+ s/^\[(.+)\] (xxx|"xxx")\n$/$1$sep/;
+ $$cap .= $_;
+ }
+}
+
+# capture warnings
+my ($cap_warn, $cap_with, $cap_set);
+local $SIG{__WARN__} = logshort \$cap_warn, '!';
+
+{
+ My::Module::log();
+ My::Module2::log();
+ is($cap_warn, undef, 'no logging by default');
+}
+
+{
+ local $ENV{MY_MODULE_UPTO} = 'info';
+ local $ENV{MY_MODULE2_UPTO} = 'info';
+ My::Module::log();
+ My::Module2::log();
+ is($cap_warn, "info!warn!error!fatal!info!warn!error!fatal!", 'WarnLogger
enabled via ENV');
+ $cap_warn = '';
+}
+
+{
+ use Log::Contextual::SimpleLogger;
+ use Log::Contextual qw(with_logger set_logger);
+
+ set_logger( Log::Contextual::SimpleLogger->new({
+ levels => [qw(info warn error)],
+ coderef => logshort \$cap_set, '/'
+ }) );
+
+ my $with_logger = Log::Contextual::SimpleLogger->new({
+ levels => [qw(trace info fatal)],
+ coderef => logshort \$cap_with, '|'
+ });
+
+ with_logger $with_logger => sub {
+ My::Module::log();
+ My::Module2::log(); # will not be overridden
+ };
+ is($cap_with, 'trace|info|fatal|', 'with_logger');
+
+ My::Module::log();
+ My::Module2::log(); # will not be overridden
+ is($cap_set, 'info/warn/error/', 'set_logger');
+
+ is($cap_warn, '', 'no warnings if with_logger or set_logger');
+}
+
+done_testing;
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.005003/t/lib/My/Module.pm
new/Log-Contextual-0.006000/t/lib/My/Module.pm
--- old/Log-Contextual-0.005003/t/lib/My/Module.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Log-Contextual-0.006000/t/lib/My/Module.pm 2013-09-06
02:14:33.000000000 +0200
@@ -0,0 +1,13 @@
+package My::Module;
+use Log::Contextual::Easy::Default;
+
+sub log {
+ Dlog_fatal { $_ }
+ DlogS_error { $_ }
+ logS_warn { $_[0] }
+ logS_info { $_[0] }
+ log_debug { $_[0] }
+ log_trace { $_[0] } 'xxx';
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.005003/t/lib/My/Module2.pm
new/Log-Contextual-0.006000/t/lib/My/Module2.pm
--- old/Log-Contextual-0.005003/t/lib/My/Module2.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Log-Contextual-0.006000/t/lib/My/Module2.pm 2013-09-06
02:14:33.000000000 +0200
@@ -0,0 +1,13 @@
+package My::Module2;
+use Log::Contextual::Easy::Package;
+
+sub log {
+ Dlog_fatal { $_ }
+ DlogS_error { $_ }
+ logS_warn { $_[0] }
+ logS_info { $_[0] }
+ log_debug { $_[0] }
+ log_trace { $_[0] } 'xxx';
+}
+
+1;
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
