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 - co...@suse.com + +- 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 <t.rid...@shadowcat.co.uk> +voj - Jakob Voß <v...@gbv.de> + =head1 DESIGNER mst - Matt S. Trout <m...@shadowcat.co.uk> 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: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org