Hello community, here is the log from the commit of package perl-Log-Contextual for openSUSE:Factory checked in at 2016-04-22 16:24:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2015-04-15 16:26:02.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Log-Contextual.new/perl-Log-Contextual.changes 2016-04-22 16:24:28.000000000 +0200 @@ -1,0 +2,10 @@ +Tue Apr 12 13:45:29 UTC 2016 - coolo@suse.com + +- updated to 0.007000 + see /usr/share/doc/packages/perl-Log-Contextual/Changes + + 0.007000 2016-04-11 21:35:41-07:00 America/Los_Angeles + - Add `has_logger` predicate to avoid setting logger twice + (Thanks Wes Malone! Thwes!) + +------------------------------------------------------------------- Old: ---- Log-Contextual-0.006005.tar.gz New: ---- Log-Contextual-0.007000.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Log-Contextual.spec ++++++ --- /var/tmp/diff_new_pack.NAmrJW/_old 2016-04-22 16:24:28.000000000 +0200 +++ /var/tmp/diff_new_pack.NAmrJW/_new 2016-04-22 16:24:28.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Log-Contextual # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,15 @@ Name: perl-Log-Contextual -Version: 0.006005 +Version: 0.007000 Release: 0 %define cpan_name Log-Contextual Summary: Simple logging interface with a contextual log License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Log-Contextual/ -Source: http://www.cpan.org/authors/id/F/FR/FREW/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/F/FR/FREW/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -43,49 +44,47 @@ * * Efficient - The logging functions take blocks, so if a log level is disabled, the - block will not run: +The logging functions take blocks, so if a log level is disabled, the block +will not run: # the following won't run if debug is off log_debug { "the new count in the database is " . $rs->count }; - Similarly, the 'D' prefixed methods only 'Dumper' the input if the level - is enabled. +Similarly, the 'D' prefixed methods only 'Dumper' the input if the level is +enabled. * * Handy - The logging functions return their arguments, so you can stick them in - the middle of expressions: +The logging functions return their arguments, so you can stick them in the +middle of expressions: for (log_debug { "downloading:\n" . join qq(\n), @_ } @urls) { ... } * * Generic - 'Log::Contextual' is an interface for all major loggers. If you log - through 'Log::Contextual' you will be able to swap underlying loggers - later. +'Log::Contextual' is an interface for all major loggers. If you log through +'Log::Contextual' you will be able to swap underlying loggers later. * * Powerful - 'Log::Contextual' chooses which logger to use based on /LOGGER CODEREF. - Normally you don't need to know this, but you can take advantage of it - when you need to later. +'Log::Contextual' chooses which logger to use based on user defined +'CodeRef's. Normally you don't need to know this, but you can take +advantage of it when you need to later. * * Scalable - If you just want to add logging to your basic application, start with the - Log::Contextual::SimpleLogger manpage and then as your needs grow you can - switch to the Log::Dispatchouli manpage or the Log::Dispatch manpage or - the Log::Log4perl manpage or whatever else. +If you just want to add logging to your basic application, start with +Log::Contextual::SimpleLogger and then as your needs grow you can switch to +Log::Dispatchouli or Log::Dispatch or Log::Log4perl or whatever else. This module is a simple interface to extensible logging. It exists to abstract your logging interface so that logging is as painless as possible, while still allowing you to switch from one logger to another. -It is bundled with a really basic logger, the Log::Contextual::SimpleLogger -manpage, but in general you should use a real logger instead. For something -more serious but not overly complicated, try the Log::Dispatchouli manpage -(see the /SYNOPSIS manpage for example.) +It is bundled with a really basic logger, Log::Contextual::SimpleLogger, +but in general you should use a real logger instead. For something more +serious but not overly complicated, try Log::Dispatchouli (see SYNOPSIS for +example.) %prep %setup -q -n %{cpan_name}-%{version} ++++++ Log-Contextual-0.006005.tar.gz -> Log-Contextual-0.007000.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/Changes new/Log-Contextual-0.007000/Changes --- old/Log-Contextual-0.006005/Changes 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/Changes 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,9 @@ Revision history for Log-Contextual +0.007000 2016-04-11 21:35:41-07:00 America/Los_Angeles + - Add `has_logger` predicate to avoid setting logger twice + (Thanks Wes Malone! Thwes!) + 0.006005 2015-03-14 12:54:46-05:00 America/Chicago - Fix performance (and arguably duplicate side effects!) in multilogger setups (Good catch and fix Christian Walde!) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/LICENSE new/Log-Contextual-0.007000/LICENSE --- old/Log-Contextual-0.006005/LICENSE 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/LICENSE 2016-04-12 06:35:43.000000000 +0200 @@ -1,4 +1,4 @@ -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. @@ -12,7 +12,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is Copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software, licensed under: @@ -272,7 +272,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is Copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/MANIFEST new/Log-Contextual-0.007000/MANIFEST --- old/Log-Contextual-0.006005/MANIFEST 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/MANIFEST 2016-04-12 06:35:43.000000000 +0200 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.032. +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.037. CONTRIBUTING Changes LICENSE @@ -13,6 +13,7 @@ lib/Log/Contextual/Easy/Default.pm lib/Log/Contextual/Easy/Package.pm lib/Log/Contextual/Role/Router.pm +lib/Log/Contextual/Role/Router/HasLogger.pm lib/Log/Contextual/Role/Router/SetLogger.pm lib/Log/Contextual/Role/Router/WithLogger.pm lib/Log/Contextual/Router.pm @@ -27,6 +28,7 @@ t/dlog.t t/easy.t t/eg.t +t/has_logger.t t/lib/BaseLogger.pm t/lib/DefaultImportLogger.pm t/lib/My/Module.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/META.json new/Log-Contextual-0.007000/META.json --- old/Log-Contextual-0.006005/META.json 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/META.json 2016-04-12 06:35:43.000000000 +0200 @@ -4,7 +4,7 @@ "Arthur Axel \"fREW\" Schmidt <frioux+cpan@gmail.com>" ], "dynamic_config" : 0, - "generated_by" : "Dist::Zilla version 5.032, CPAN::Meta::Converter version 2.143240", + "generated_by" : "Dist::Zilla version 5.037, CPAN::Meta::Converter version 2.150001", "license" : [ "perl_5" ], @@ -51,6 +51,6 @@ "web" : "https://github.com/frioux/Log-Contextual" } }, - "version" : "0.006005" + "version" : "0.007000" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/META.yml new/Log-Contextual-0.007000/META.yml --- old/Log-Contextual-0.006005/META.yml 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/META.yml 2016-04-12 06:35:43.000000000 +0200 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'Dist::Zilla version 5.032, CPAN::Meta::Converter version 2.143240' +generated_by: 'Dist::Zilla version 5.037, CPAN::Meta::Converter version 2.150001' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -23,4 +23,4 @@ bugtracker: https://github.com/frioux/Log-Contextual/issues homepage: https://github.com/frioux/Log-Contextual repository: https://github.com/frioux/Log-Contextual.git -version: '0.006005' +version: '0.007000' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/Makefile.PL new/Log-Contextual-0.007000/Makefile.PL --- old/Log-Contextual-0.006005/Makefile.PL 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/Makefile.PL 2016-04-12 06:35:43.000000000 +0200 @@ -1,4 +1,4 @@ -# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.032. +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.037. use strict; use warnings; @@ -26,7 +26,7 @@ "TEST_REQUIRES" => { "Test::Fatal" => 0 }, - "VERSION" => "0.006005", + "VERSION" => "0.007000", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/README new/Log-Contextual-0.007000/README --- old/Log-Contextual-0.006005/README 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/README 2016-04-12 06:35:43.000000000 +0200 @@ -263,6 +263,15 @@ As with "set_logger", with_logger will wrap $returning_logger with a CodeRef if needed. + has_logger + + my $logger = WarnLogger->new; + set_logger $logger unless has_logger; + + Arguments: none + + has_logger will return true if a logger has been set. + log_$level Import Tag: :log diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/dist.ini new/Log-Contextual-0.007000/dist.ini --- old/Log-Contextual-0.006005/dist.ini 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/dist.ini 2016-04-12 06:35:43.000000000 +0200 @@ -2,7 +2,7 @@ author = Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com> license = Perl_5 copyright_holder = Arthur Axel "fREW" Schmidt -version = 0.006005 +version = 0.007000 [NextRelease] [@Git] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/Easy/Default.pm new/Log-Contextual-0.007000/lib/Log/Contextual/Easy/Default.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/Easy/Default.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/Easy/Default.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::Easy::Default; -$Log::Contextual::Easy::Default::VERSION = '0.006005'; +$Log::Contextual::Easy::Default::VERSION = '0.007000'; # ABSTRACT: Import all logging methods with WarnLogger as default use strict; @@ -34,7 +34,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 SYNOPSIS @@ -82,7 +82,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/Easy/Package.pm new/Log-Contextual-0.007000/lib/Log/Contextual/Easy/Package.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/Easy/Package.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/Easy/Package.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::Easy::Package; -$Log::Contextual::Easy::Package::VERSION = '0.006005'; +$Log::Contextual::Easy::Package::VERSION = '0.007000'; # ABSTRACT: Import all logging methods with WarnLogger as default package logger use strict; @@ -34,7 +34,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 SYNOPSIS @@ -82,7 +82,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/Role/Router/HasLogger.pm new/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/HasLogger.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/Role/Router/HasLogger.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/HasLogger.pm 2016-04-12 06:35:43.000000000 +0200 @@ -0,0 +1,36 @@ +package Log::Contextual::Role::Router::HasLogger; +$Log::Contextual::Role::Router::HasLogger::VERSION = '0.007000'; +# ABSTRACT: Abstract interface between loggers and logging code blocks + +use Moo::Role; + +requires 'has_logger'; + +1; + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +Log::Contextual::Role::Router::HasLogger - Abstract interface between loggers and logging code blocks + +=head1 VERSION + +version 0.007000 + +=head1 AUTHOR + +Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com> + +=head1 COPYRIGHT AND LICENSE + +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/Role/Router/SetLogger.pm new/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/SetLogger.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/Role/Router/SetLogger.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/SetLogger.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::Role::Router::SetLogger; -$Log::Contextual::Role::Router::SetLogger::VERSION = '0.006005'; +$Log::Contextual::Role::Router::SetLogger::VERSION = '0.007000'; # ABSTRACT: Abstract interface between loggers and logging code blocks use Moo::Role; @@ -20,7 +20,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 AUTHOR @@ -28,7 +28,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/Role/Router/WithLogger.pm new/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/WithLogger.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/Role/Router/WithLogger.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/WithLogger.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::Role::Router::WithLogger; -$Log::Contextual::Role::Router::WithLogger::VERSION = '0.006005'; +$Log::Contextual::Role::Router::WithLogger::VERSION = '0.007000'; # ABSTRACT: Abstract interface between loggers and logging code blocks use Moo::Role; @@ -20,7 +20,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 AUTHOR @@ -28,7 +28,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/Role/Router.pm new/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/Role/Router.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::Role::Router; -$Log::Contextual::Role::Router::VERSION = '0.006005'; +$Log::Contextual::Role::Router::VERSION = '0.007000'; # ABSTRACT: Abstract interface between loggers and logging code blocks use Moo::Role; @@ -22,7 +22,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 SYNOPSIS @@ -199,7 +199,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/Router.pm new/Log-Contextual-0.007000/lib/Log/Contextual/Router.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/Router.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/Router.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::Router; -$Log::Contextual::Router::VERSION = '0.006005'; +$Log::Contextual::Router::VERSION = '0.007000'; # ABSTRACT: Route messages to loggers use Moo; @@ -7,7 +7,8 @@ with 'Log::Contextual::Role::Router', 'Log::Contextual::Role::Router::SetLogger', - 'Log::Contextual::Role::Router::WithLogger'; + 'Log::Contextual::Role::Router::WithLogger', + 'Log::Contextual::Role::Router::HasLogger'; eval { require Log::Log4perl; @@ -84,6 +85,8 @@ $_[0]->_get_logger->{l} = $logger; } +sub has_logger { !!$_[0]->_get_logger->{l} } + sub _set_default_logger_for { my $logger = $_[2]; if (ref $logger ne 'CODE') { @@ -157,7 +160,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 AUTHOR @@ -165,7 +168,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/SimpleLogger.pm new/Log-Contextual-0.007000/lib/Log/Contextual/SimpleLogger.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/SimpleLogger.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/SimpleLogger.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::SimpleLogger; -$Log::Contextual::SimpleLogger::VERSION = '0.006005'; +$Log::Contextual::SimpleLogger::VERSION = '0.007000'; # ABSTRACT: Super simple logger made for playing with Log::Contextual use strict; @@ -69,7 +69,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 SYNOPSIS @@ -198,7 +198,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/TeeLogger.pm new/Log-Contextual-0.007000/lib/Log/Contextual/TeeLogger.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/TeeLogger.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/TeeLogger.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::TeeLogger; -$Log::Contextual::TeeLogger::VERSION = '0.006005'; +$Log::Contextual::TeeLogger::VERSION = '0.007000'; # ABSTRACT: Output to more than one logger use strict; @@ -54,7 +54,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 SYNOPSIS @@ -179,7 +179,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual/WarnLogger.pm new/Log-Contextual-0.007000/lib/Log/Contextual/WarnLogger.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual/WarnLogger.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual/WarnLogger.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual::WarnLogger; -$Log::Contextual::WarnLogger::VERSION = '0.006005'; +$Log::Contextual::WarnLogger::VERSION = '0.007000'; # ABSTRACT: logger for libraries using Log::Contextual use strict; @@ -129,7 +129,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 SYNOPSIS @@ -287,7 +287,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/lib/Log/Contextual.pm new/Log-Contextual-0.007000/lib/Log/Contextual.pm --- old/Log-Contextual-0.006005/lib/Log/Contextual.pm 2015-03-14 18:54:48.000000000 +0100 +++ new/Log-Contextual-0.007000/lib/Log/Contextual.pm 2016-04-12 06:35:43.000000000 +0200 @@ -1,5 +1,5 @@ package Log::Contextual; -$Log::Contextual::VERSION = '0.006005'; +$Log::Contextual::VERSION = '0.007000'; # ABSTRACT: Simple logging interface with a contextual log use strict; @@ -53,7 +53,7 @@ # export anything but the levels selected sub ____ { } -exports('____', @dlog, @log, qw( set_logger with_logger )); +exports('____', @dlog, @log, qw( set_logger with_logger has_logger )); export_tag dlog => ('____'); export_tag log => ('____'); @@ -119,6 +119,15 @@ ); } + if ($exports->{'&has_logger'}) { + die ref($router) . " does not support has_logger()" + unless $router->does('Log::Contextual::Role::Router::HasLogger'); + + _maybe_export($spec, $importer, 'has_logger', + sub { $router->has_logger(@_) }, + ); + } + my @levels = @{$class->arg_levels($spec->config->{levels})}; for my $level (@levels) { my %base = @@ -219,7 +228,7 @@ =head1 VERSION -version 0.006005 +version 0.007000 =head1 SYNOPSIS @@ -483,6 +492,15 @@ As with L</set_logger>, C<with_logger> will wrap C<$returning_logger> with a C<CodeRef> if needed. +=head2 has_logger + + my $logger = WarnLogger->new; + set_logger $logger unless has_logger; + +Arguments: none + +C<has_logger> will return true if a logger has been set. + =head2 log_$level Import Tag: C<:log> @@ -714,7 +732,7 @@ =head1 COPYRIGHT AND LICENSE -This software is copyright (c) 2015 by Arthur Axel "fREW" Schmidt. +This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Contextual-0.006005/t/has_logger.t new/Log-Contextual-0.007000/t/has_logger.t --- old/Log-Contextual-0.006005/t/has_logger.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Log-Contextual-0.007000/t/has_logger.t 2016-04-12 06:35:43.000000000 +0200 @@ -0,0 +1,13 @@ +use strict; +use warnings; + +use Log::Contextual::SimpleLogger; +use Test::More; +use Log::Contextual qw(:log set_logger has_logger); + +my $log = Log::Contextual::SimpleLogger->new; +ok(!has_logger, 'has_logger returns false when logger unset'); +set_logger $log; +ok(has_logger, 'has_logger returns true when logger set'); + +done_testing; ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #description: |- # override description from CPAN #summary: override summary from CPAN #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_build: |- # rm unused.files #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module