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 - [email protected]
+
+- 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 <[email protected]>"
],
"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 <[email protected]>
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 <[email protected]>
+
+=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
