Hello community,
here is the log from the commit of package perl-Log-Contextual for
openSUSE:Factory checked in at 2017-05-25 08:32:24
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Log-Contextual (Old)
and /work/SRC/openSUSE:Factory/.perl-Log-Contextual.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Log-Contextual"
Thu May 25 08:32:24 2017 rev:11 rq:498228 version:0.007001
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Log-Contextual/perl-Log-Contextual.changes
2016-04-22 16:24:28.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Log-Contextual.new/perl-Log-Contextual.changes
2017-05-25 08:32:26.348161958 +0200
@@ -1,0 +2,11 @@
+Thu May 25 06:29:35 UTC 2017 - co...@suse.com
+
+- updated to 0.0070001
+
+ - Stop testing exact bytes produced by Data::Dumper::Concise
+ (Thanks for reporting Errietta Kostal)
+ (Fixes GH#11)
+ - Add some documentation about exceptions
+ (Thanks Kent Fredric!)
+
+-------------------------------------------------------------------
Old:
----
Log-Contextual-0.007000.tar.gz
New:
----
Log-Contextual-0.007001.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Log-Contextual.spec ++++++
--- /var/tmp/diff_new_pack.tF9kON/_old 2017-05-25 08:32:27.068060447 +0200
+++ /var/tmp/diff_new_pack.tF9kON/_new 2017-05-25 08:32:27.072059884 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Log-Contextual
#
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2017 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,7 +17,7 @@
Name: perl-Log-Contextual
-Version: 0.007000
+Version: 0.007001
Release: 0
%define cpan_name Log-Contextual
Summary: Simple logging interface with a contextual log
++++++ Log-Contextual-0.007000.tar.gz -> Log-Contextual-0.007001.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/Changes
new/Log-Contextual-0.007001/Changes
--- old/Log-Contextual-0.007000/Changes 2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/Changes 2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,12 @@
Revision history for Log-Contextual
+0.007001 2017-05-21 07:49:18-07:00 America/Los_Angeles
+- Stop testing exact bytes produced by Data::Dumper::Concise
+ (Thanks for reporting Errietta Kostal)
+ (Fixes GH#11)
+- Add some documentation about exceptions
+ (Thanks Kent Fredric!)
+
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!)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/LICENSE
new/Log-Contextual-0.007001/LICENSE
--- old/Log-Contextual-0.007000/LICENSE 2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/LICENSE 2017-05-21 16:49:20.000000000 +0200
@@ -1,4 +1,4 @@
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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) 2016 by Arthur Axel "fREW" Schmidt.
+This software is Copyright (c) 2017 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) 2016 by Arthur Axel "fREW" Schmidt.
+This software is Copyright (c) 2017 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.007000/MANIFEST
new/Log-Contextual-0.007001/MANIFEST
--- old/Log-Contextual-0.007000/MANIFEST 2016-04-12 06:35:43.000000000
+0200
+++ new/Log-Contextual-0.007001/MANIFEST 2017-05-21 16:49:20.000000000
+0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v5.037.
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v6.009.
CONTRIBUTING
Changes
LICENSE
@@ -21,6 +21,7 @@
lib/Log/Contextual/TeeLogger.pm
lib/Log/Contextual/WarnLogger.pm
t/arg.t
+t/author-pod-syntax.t
t/base.t
t/caller.t
t/default_import.t
@@ -41,7 +42,6 @@
t/log4perl.t
t/package_logger.t
t/perltidy.t
-t/release-pod-syntax.t
t/router_api.t
t/rt83267-begin.t
t/rt83267.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/META.json
new/Log-Contextual-0.007001/META.json
--- old/Log-Contextual-0.007000/META.json 2016-04-12 06:35:43.000000000
+0200
+++ new/Log-Contextual-0.007001/META.json 2017-05-21 16:49:20.000000000
+0200
@@ -4,7 +4,7 @@
"Arthur Axel \"fREW\" Schmidt <frioux+c...@gmail.com>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 5.037, CPAN::Meta::Converter version
2.150001",
+ "generated_by" : "Dist::Zilla version 6.009, CPAN::Meta::Converter version
2.150010",
"license" : [
"perl_5"
],
@@ -51,6 +51,7 @@
"web" : "https://github.com/frioux/Log-Contextual";
}
},
- "version" : "0.007000"
+ "version" : "0.007001",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 3.023"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/META.yml
new/Log-Contextual-0.007001/META.yml
--- old/Log-Contextual-0.007000/META.yml 2016-04-12 06:35:43.000000000
+0200
+++ new/Log-Contextual-0.007001/META.yml 2017-05-21 16:49:20.000000000
+0200
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 5.037, CPAN::Meta::Converter version
2.150001'
+generated_by: 'Dist::Zilla version 6.009, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -23,4 +23,5 @@
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.007000'
+version: '0.007001'
+x_serialization_backend: 'YAML::Tiny version 1.70'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/Makefile.PL
new/Log-Contextual-0.007001/Makefile.PL
--- old/Log-Contextual-0.007000/Makefile.PL 2016-04-12 06:35:43.000000000
+0200
+++ new/Log-Contextual-0.007001/Makefile.PL 2017-05-21 16:49:20.000000000
+0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v5.037.
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v6.009.
use strict;
use warnings;
@@ -13,7 +13,6 @@
"ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "Log-Contextual",
- "EXE_FILES" => [],
"LICENSE" => "perl",
"NAME" => "Log::Contextual",
"PREREQ_PM" => {
@@ -26,7 +25,7 @@
"TEST_REQUIRES" => {
"Test::Fatal" => 0
},
- "VERSION" => "0.007000",
+ "VERSION" => "0.007001",
"test" => {
"TESTS" => "t/*.t"
}
@@ -37,7 +36,6 @@
"Carp" => 0,
"Data::Dumper::Concise" => 0,
"Exporter::Declare" => "0.111",
- "ExtUtils::MakeMaker" => 0,
"Moo" => "1.003",
"Scalar::Util" => 0,
"Test::Fatal" => 0
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/README
new/Log-Contextual-0.007001/README
--- old/Log-Contextual-0.007000/README 2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/README 2017-05-21 16:49:20.000000000 +0200
@@ -1,24 +1,29 @@
-SYNOPSIS
+NAME
+ Log::Contextual - Simple logging interface with a contextual log
+
+VERSION
+ version 0.007001
+SYNOPSIS
use Log::Contextual qw( :log :dlog set_logger with_logger );
use Log::Contextual::SimpleLogger;
use Log::Log4perl ':easy';
Log::Log4perl->easy_init($DEBUG);
-
+
my $logger = Log::Log4perl->get_logger;
-
+
set_logger $logger;
-
+
log_debug { 'program started' };
-
+
sub foo {
-
+
my $minilogger = Log::Contextual::SimpleLogger->new({
levels => [qw( trace debug )]
});
-
+
my @args = @_;
-
+
with_logger $minilogger => sub {
log_trace { 'foo entered' };
my ($foo, $bar) = Dlog_trace { "params for foo: $_" } @args;
@@ -26,11 +31,11 @@
log_trace { 'foo left' };
};
}
-
+
foo();
- Beginning with version 1.008 Log::Dispatchouli also works out of the
- box with Log::Contextual:
+ Beginning with version 1.008 Log::Dispatchouli also works out of the box
+ with "Log::Contextual":
use Log::Contextual qw( :log :dlog set_logger );
use Log::Dispatchouli;
@@ -39,16 +44,15 @@
to_stderr => 1,
debug => 1,
});
-
+
set_logger $ld;
-
+
log_debug { 'program started' };
DESCRIPTION
-
Major benefits:
- * Efficient
+ * Efficient
The logging functions take blocks, so if a log level is disabled, the
block will not run:
@@ -56,29 +60,29 @@
# 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
+ * 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
+ * Generic
- Log::Contextual is an interface for all major loggers. If you log
- through Log::Contextual you will be able to swap underlying loggers
+ "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
+ * Powerful
- Log::Contextual chooses which logger to use based on user defined
- CodeRefs. Normally you don't need to know this, but you can take
+ "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
+ * Scalable
If you just want to add logging to your basic application, start with
Log::Contextual::SimpleLogger and then as your needs grow you can
@@ -87,16 +91,14 @@
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.
+ possible, while still allowing you to switch from one logger to another.
- 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.)
+ 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.)
A WORK IN PROGRESS
-
This module is certainly not complete, but we will not break the
interface lightly, so I would say it's safe to use in production code.
The main result from that at this point is that doing:
@@ -104,18 +106,16 @@
use Log::Contextual;
will die as we do not yet know what the defaults should be. If it turns
- out that nearly everyone uses the :log tag and :dlog is really rare,
- we'll probably make :log the default. But only time and usage will
+ out that nearly everyone uses the ":log" tag and ":dlog" is really rare,
+ we'll probably make ":log" the default. But only time and usage will
tell.
IMPORT OPTIONS
-
See "SETTING DEFAULT IMPORT OPTIONS" for information on setting these
project wide.
- -logger
-
- When you import this module you may use -logger as a shortcut for
+ -logger
+ When you import this module you may use "-logger" as a shortcut for
"set_logger", for example:
use Log::Contextual::SimpleLogger;
@@ -129,23 +129,21 @@
BEGIN { $var_log = VarLogger->new }
use Log::Contextual qw( :dlog ), -logger => $var_log;
- -levels
-
- The -levels import option allows you to define exactly which levels
- your logger supports. So the default, [qw(debug trace warn info error
- fatal)], works great for Log::Log4perl, but it doesn't support the
+ -levels
+ The "-levels" import option allows you to define exactly which levels
+ your logger supports. So the default, "[qw(debug trace warn info error
+ fatal)]", works great for Log::Log4perl, but it doesn't support the
levels for Log::Dispatch. But supporting those levels is as easy as
doing
use Log::Contextual
-levels => [qw( debug info notice warning error critical alert
emergency )];
- -package_logger
-
- The -package_logger import option is similar to the -logger import
- option except -package_logger sets the logger for the current package.
+ -package_logger
+ The "-package_logger" import option is similar to the "-logger" import
+ option except "-package_logger" sets the logger for the current package.
- Unlike "-default_logger", -package_logger cannot be overridden with
+ Unlike "-default_logger", "-package_logger" cannot be overridden with
"set_logger" or "with_logger".
package My::Package;
@@ -155,17 +153,16 @@
env_prefix => 'MY_PACKAGE'
});
- If you are interested in using this package for a module you are
- putting on CPAN we recommend Log::Contextual::WarnLogger for your
- package logger.
-
- -default_logger
-
- The -default_logger import option is similar to the -logger import
- option except -default_logger sets the default logger for the current
+ If you are interested in using this package for a module you are putting
+ on CPAN we recommend Log::Contextual::WarnLogger for your package
+ logger.
+
+ -default_logger
+ The "-default_logger" import option is similar to the "-logger" import
+ option except "-default_logger" sets the default logger for the current
package.
- Basically it sets the logger to be used if set_logger is never called;
+ Basically it sets the logger to be used if "set_logger" is never called;
so
package My::Package;
@@ -176,37 +173,36 @@
});
SETTING DEFAULT IMPORT OPTIONS
-
Eventually you will get tired of writing the following in every single
one of your packages:
use Log::Log4perl;
use Log::Log4perl ':easy';
BEGIN { Log::Log4perl->easy_init($DEBUG) }
-
+
use Log::Contextual -logger => Log::Log4perl->get_logger;
You can set any of the import options for your whole project if you
- define your own Log::Contextual subclass as follows:
+ define your own "Log::Contextual" subclass as follows:
package MyApp::Log::Contextual;
-
+
use base 'Log::Contextual';
-
+
use Log::Log4perl ':easy';
Log::Log4perl->easy_init($DEBUG)
-
+
sub arg_default_logger { $_[1] || Log::Log4perl->get_logger }
sub arg_levels { [qw(debug trace warn info error fatal custom_level)] }
sub default_import { ':log' }
-
+
# or maybe instead of default_logger
sub arg_package_logger { $_[1] }
-
+
# and almost definitely not this, which is only here for completeness
sub arg_logger { $_[1] }
- Note the $_[1] || in arg_default_logger. All of these methods are
+ Note the "$_[1] ||" in "arg_default_logger". All of these methods are
passed the values passed in from the arguments to the subclass, so you
can either throw them away, honor them, die on usage, etc. To be clear,
if you define your subclass, and someone uses it as follows:
@@ -214,40 +210,37 @@
use MyApp::Log::Contextual -default_logger => $foo,
-levels => [qw(bar baz biff)];
- Your arg_default_logger method will get $foo and your arg_levels will
- get [qw(bar baz biff)];
+ Your "arg_default_logger" method will get $foo and your "arg_levels"
+ will get "[qw(bar baz biff)]";
- Additionally, the default_import method is what happens if a user tries
- to use your subclass with no arguments. The default just dies, but if
- you'd like to change the default to import a tag merely return the tags
- you'd like to import. So the following will all work:
+ Additionally, the "default_import" method is what happens if a user
+ tries to use your subclass with no arguments. The default just dies, but
+ if you'd like to change the default to import a tag merely return the
+ tags you'd like to import. So the following will all work:
sub default_import { ':log' }
-
+
sub default_import { ':dlog' }
-
+
sub default_import { qw(:dlog :log ) }
See Log::Contextual::Easy::Default for an example of a subclass of
- Log::Contextual that makes use of default import options.
+ "Log::Contextual" that makes use of default import options.
FUNCTIONS
-
- set_logger
-
+ set_logger
my $logger = WarnLogger->new;
set_logger $logger;
Arguments: "LOGGER CODEREF"
- set_logger will just set the current logger to whatever you pass it. It
- expects a CodeRef, but if you pass it something else it will wrap it in
- a CodeRef for you. set_logger is really meant only to be called from a
- top-level script. To avoid foot-shooting the function will warn if you
- call it more than once.
-
- with_logger
+ "set_logger" will just set the current logger to whatever you pass it.
+ It expects a "CodeRef", but if you pass it something else it will wrap
+ it in a "CodeRef" for you. "set_logger" is really meant only to be
+ called from a top-level script. To avoid foot-shooting the function will
+ warn if you call it more than once.
+ with_logger
my $logger = WarnLogger->new;
with_logger $logger => sub {
if (1 == 0) {
@@ -257,28 +250,26 @@
}
};
- Arguments: "LOGGER CODEREF", CodeRef $to_execute
-
- with_logger sets the logger for the scope of the CodeRef $to_execute.
- As with "set_logger", with_logger will wrap $returning_logger with a
- CodeRef if needed.
+ Arguments: "LOGGER CODEREF", "CodeRef $to_execute"
- has_logger
+ "with_logger" sets the logger for the scope of the "CodeRef"
+ $to_execute. 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.
+ "has_logger" will return true if a logger has been set.
- log_$level
+ log_$level
+ Import Tag: ":log"
- Import Tag: :log
+ Arguments: "CodeRef $returning_message, @args"
- Arguments: CodeRef $returning_message, @args
-
- log_$level functions all work the same except that a different method
+ "log_$level" functions all work the same except that a different method
is called on the underlying $logger object. The basic pattern is:
sub log_$level (&@) {
@@ -289,8 +280,8 @@
}
Note that the function returns it's arguments. This can be used in a
- number of ways, but often it's convenient just for partial inspection
- of passthrough data
+ number of ways, but often it's convenient just for partial inspection of
+ passthrough data
my @friends = log_trace {
'friends list being generated, data from first friend: ' .
@@ -301,25 +292,21 @@
"Dlog_$level" functions.
Which functions are exported depends on what was passed to "-levels".
- The default (no -levels option passed) would export:
+ The default (no "-levels" option passed) would export:
log_trace
-
log_debug
-
log_info
-
log_warn
-
log_error
-
log_fatal
+ Note: "log_fatal" does not call "die" for you, see "EXCEPTIONS AND
+ ERROR HANDLING"
- logS_$level
-
- Import Tag: :log
+ logS_$level
+ Import Tag: ":log"
- Arguments: CodeRef $returning_message, Item $arg
+ Arguments: "CodeRef $returning_message, Item $arg"
This is really just a special case of the "log_$level" functions. It
forces scalar context when that is what you need. Other than that it
@@ -331,11 +318,10 @@
See also: "DlogS_$level".
- Dlog_$level
+ Dlog_$level
+ Import Tag: ":dlog"
- Import Tag: :dlog
-
- Arguments: CodeRef $returning_message, @args
+ Arguments: "CodeRef $returning_message, @args"
All of the following six functions work the same as their "log_$level"
brethren, except they return what is passed into them and put the
@@ -353,45 +339,39 @@
"fiSMBoC"
Which functions are exported depends on what was passed to "-levels".
- The default (no -levels option passed) would export:
+ The default (no "-levels" option passed) would export:
Dlog_trace
-
Dlog_debug
-
Dlog_info
-
Dlog_warn
-
Dlog_error
-
Dlog_fatal
+ Note: "Dlog_fatal" does not call "die" for you, see "EXCEPTIONS AND
+ ERROR HANDLING"
- DlogS_$level
-
- Import Tag: :dlog
+ DlogS_$level
+ Import Tag: ":dlog"
- Arguments: CodeRef $returning_message, Item $arg
+ Arguments: "CodeRef $returning_message, Item $arg"
- Like "logS_$level", these functions are a special case of
- "Dlog_$level". They only take a single scalar after the
- $returning_message instead of slurping up (and also setting wantarray)
- all the @args
+ Like "logS_$level", these functions are a special case of "Dlog_$level".
+ They only take a single scalar after the $returning_message instead of
+ slurping up (and also setting "wantarray") all the @args
my $pals_rs = DlogS_debug { "pals resultset: $_" }
$schema->resultset('Pals')->search({ perlers => 1 });
LOGGER CODEREF
-
Anywhere a logger object can be passed, a coderef is accepted. This is
so that the user can use different logger objects based on runtime
- information. The logger coderef is passed the package of the caller,
- and the caller level the coderef needs to use if it wants more caller
- information. The latter is in a hashref to allow for more options in
- the future.
+ information. The logger coderef is passed the package of the caller, and
+ the caller level the coderef needs to use if it wants more caller
+ information. The latter is in a hashref to allow for more options in the
+ future.
- Here is a basic example of a logger that exploits caller to reproduce
- the output of warn with a logger:
+ Here is a basic example of a logger that exploits "caller" to reproduce
+ the output of "warn" with a logger:
my @caller_info;
my $var_log = Log::Contextual::SimpleLogger->new({
@@ -407,19 +387,19 @@
log_debug { 'test' };
The following is an example that uses the information passed to the
- logger coderef. It sets the global logger to $l3, the logger for the A1
- package to $l1, except the lol method in A1 which uses the $l2 logger
- and lastly the logger for the A2 package to $l2.
+ logger coderef. It sets the global logger to $l3, the logger for the
+ "A1" package to $l1, except the "lol" method in "A1" which uses the $l2
+ logger and lastly the logger for the "A2" package to $l2.
Note that it increases the caller level as it dispatches based on where
the caller of the log function, not the log function itself.
my $complex_dispatcher = do {
-
+
my $l1 = ...;
my $l2 = ...;
my $l3 = ...;
-
+
my %registry = (
-logger => $l3,
A1 => {
@@ -428,10 +408,10 @@
},
A2 => { -logger => $l2 },
);
-
+
sub {
my ( $package, $info ) = @_;
-
+
my $logger = $registry{'-logger'};
if (my $r = $registry{$package}) {
$logger = $r->{'-logger'} if $r->{'-logger'};
@@ -442,11 +422,10 @@
return $logger;
}
};
-
+
set_logger $complex_dispatcher;
LOGGER INTERFACE
-
Because this module is ultimately pretty looking glue (glittery?) with
the awesome benefit of the Contextual part, users will often want to
make their favorite logger work with it. The following are the methods
@@ -471,13 +450,12 @@
Log::Contextual::SimpleLogger.
LOG ROUTING
-
In between the loggers and the log functions is a log router that is
- responsible for finding a logger to handle the log event and passing
- the log information to the logger. This relationship is described in
- the documentation for Log::Contextual::Role::Router.
+ responsible for finding a logger to handle the log event and passing the
+ log information to the logger. This relationship is described in the
+ documentation for "Log::Contextual::Role::Router".
- Log::Contextual and packages that extend it will by default share a
+ "Log::Contextual" and packages that extend it will by default share a
router singleton that implements the with_logger() and set_logger()
functions and also respects the -logger, -package_logger, and
-default_logger import options with their associated default value
@@ -486,13 +464,79 @@
return instances of custom log routers that could for example work with
loggers that use a different interface.
+EXCEPTIONS AND ERROR HANDLING
+ "Log::Contextual", by design, does not intentionally invoke "die" on
+ your behalf(*see footnote*) for "log_fatal".
+
+ Logging events are characterized as information, not flow control, and
+ conflating the two results in negative design anti-patterns.
+
+ As such, "log_fatal" would at be better used to communicate information
+ about a *future* failure, for example:
+
+ if ( condition ) {
+ log_fatal { "Bad Condition is true" };
+ die My::Exception->new();
+ }
+
+ This has a number of benefits:
+
+ * You're more likely to want to use useful Exception Objects and flow
+ control instead of cheating with log messages.
+
+ * You're less likely to run a risk of losing what the actual problem
+ was when some error occurs in your creation of the Exception Object
+
+ * You're less likely to run the risk of losing important log context
+ due to exceptions occurring mid way through "die" unwinding and
+ "exit" global destruction.
+
+ If you're still too lazy to use exceptions, then you can do what you
+ probably want as follows:
+
+ if ( ... ) {
+ log_fatal { "Bad condition is true" };
+ die "Bad condtion is true";
+ }
+
+ Or for ":dlog" style:
+
+ use Data::Dumper::Consise qw( Dumper );
+ if ( ... ) {
+ # Dlog_fatal but not
+ my $reason = "Bad condtion is true because: " . Dumper($thing);
+ log_fatal { $reason };
+ die $reason;
+ }
+
+ footnote
+ The underlying behaviour of "log_fatal" is dependent on the backing
+ library.
+
+ All the Loggers shipping with "Log::Contextual" behave this way, as do
+ many of the supported loggers, like "Log::Log4perl". However, not all
+ loggers work this way, and one must be careful.
+
+ "Log::Dispatch" doesn't support implementing "log_fatal" at all
+
+ "Log::Dispatchouli" implements "log_fatal" using "die" ( via Carp )
+
CONTRIBUTORS
+ kentnl - Kent Fredric <kentfred...@gmail.com>
triddle - Tyler Riddle <t.rid...@shadowcat.co.uk>
voj - Jakob Voß <v...@gbv.de>
DESIGNER
-
mst - Matt S. Trout <m...@shadowcat.co.uk>
+AUTHOR
+ Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com>
+
+COPYRIGHT AND LICENSE
+ This software is copyright (c) 2017 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.007000/dist.ini
new/Log-Contextual-0.007001/dist.ini
--- old/Log-Contextual-0.007000/dist.ini 2016-04-12 06:35:43.000000000
+0200
+++ new/Log-Contextual-0.007001/dist.ini 2017-05-21 16:49:20.000000000
+0200
@@ -2,16 +2,18 @@
author = Arthur Axel "fREW" Schmidt <frioux+c...@gmail.com>
license = Perl_5
copyright_holder = Arthur Axel "fREW" Schmidt
-version = 0.007000
+version = 0.007001
[NextRelease]
[@Git]
-[@Basic]
+[@Filter]
+-bundle = @Basic
+-remove = Readme
[GithubMeta]
issues = 1
[MetaJSON]
[PodWeaver]
[PkgVersion]
-[ReadmeFromPod]
+[Pod2Readme]
[PodSyntaxTests]
[Prereqs::FromCPANfile]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Log-Contextual-0.007000/lib/Log/Contextual/Easy/Default.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/Easy/Default.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/Easy/Default.pm
2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/Easy/Default.pm
2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::Easy::Default;
-$Log::Contextual::Easy::Default::VERSION = '0.007000';
+$Log::Contextual::Easy::Default::VERSION = '0.007001';
# ABSTRACT: Import all logging methods with WarnLogger as default
use strict;
@@ -34,7 +34,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 SYNOPSIS
@@ -82,7 +82,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/Easy/Package.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/Easy/Package.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/Easy/Package.pm
2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/Easy/Package.pm
2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::Easy::Package;
-$Log::Contextual::Easy::Package::VERSION = '0.007000';
+$Log::Contextual::Easy::Package::VERSION = '0.007001';
# ABSTRACT: Import all logging methods with WarnLogger as default package
logger
use strict;
@@ -34,7 +34,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 SYNOPSIS
@@ -82,7 +82,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/Role/Router/HasLogger.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/Role/Router/HasLogger.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/HasLogger.pm
2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/Role/Router/HasLogger.pm
2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::Role::Router::HasLogger;
-$Log::Contextual::Role::Router::HasLogger::VERSION = '0.007000';
+$Log::Contextual::Role::Router::HasLogger::VERSION = '0.007001';
# ABSTRACT: Abstract interface between loggers and logging code blocks
use Moo::Role;
@@ -20,7 +20,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 AUTHOR
@@ -28,7 +28,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/Role/Router/SetLogger.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/Role/Router/SetLogger.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/SetLogger.pm
2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/Role/Router/SetLogger.pm
2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::Role::Router::SetLogger;
-$Log::Contextual::Role::Router::SetLogger::VERSION = '0.007000';
+$Log::Contextual::Role::Router::SetLogger::VERSION = '0.007001';
# ABSTRACT: Abstract interface between loggers and logging code blocks
use Moo::Role;
@@ -20,7 +20,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 AUTHOR
@@ -28,7 +28,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/Role/Router/WithLogger.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/Role/Router/WithLogger.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router/WithLogger.pm
2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/Role/Router/WithLogger.pm
2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::Role::Router::WithLogger;
-$Log::Contextual::Role::Router::WithLogger::VERSION = '0.007000';
+$Log::Contextual::Role::Router::WithLogger::VERSION = '0.007001';
# ABSTRACT: Abstract interface between loggers and logging code blocks
use Moo::Role;
@@ -20,7 +20,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 AUTHOR
@@ -28,7 +28,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/Role/Router.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/Role/Router.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/Role/Router.pm
2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/Role/Router.pm
2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::Role::Router;
-$Log::Contextual::Role::Router::VERSION = '0.007000';
+$Log::Contextual::Role::Router::VERSION = '0.007001';
# ABSTRACT: Abstract interface between loggers and logging code blocks
use Moo::Role;
@@ -22,7 +22,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 SYNOPSIS
@@ -199,7 +199,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/Router.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/Router.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/Router.pm 2016-04-12
06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/Router.pm 2017-05-21
16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::Router;
-$Log::Contextual::Router::VERSION = '0.007000';
+$Log::Contextual::Router::VERSION = '0.007001';
# ABSTRACT: Route messages to loggers
use Moo;
@@ -160,7 +160,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 AUTHOR
@@ -168,7 +168,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/SimpleLogger.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/SimpleLogger.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/SimpleLogger.pm
2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/SimpleLogger.pm
2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::SimpleLogger;
-$Log::Contextual::SimpleLogger::VERSION = '0.007000';
+$Log::Contextual::SimpleLogger::VERSION = '0.007001';
# ABSTRACT: Super simple logger made for playing with Log::Contextual
use strict;
@@ -69,7 +69,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 SYNOPSIS
@@ -163,6 +163,8 @@
$l->fatal( '1 is never equal to 0!' );
+B<Note:> C<fatal> does not call C<die> for you, see
L<Log::Contextual/EXCEPTIONS AND ERROR HANDLING>
+
=head2 is_$level
All of the following six functions just return true if their respective
@@ -198,7 +200,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/TeeLogger.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/TeeLogger.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/TeeLogger.pm 2016-04-12
06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/TeeLogger.pm 2017-05-21
16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::TeeLogger;
-$Log::Contextual::TeeLogger::VERSION = '0.007000';
+$Log::Contextual::TeeLogger::VERSION = '0.007001';
# ABSTRACT: Output to more than one logger
use strict;
@@ -54,7 +54,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 SYNOPSIS
@@ -144,6 +144,8 @@
$l->fatal( '1 is never equal to 0!' );
+B<Note:> C<fatal> does not call C<die> for you, see
L<Log::Contextual/EXCEPTIONS AND ERROR HANDLING>
+
=head2 is_$level
All of the following six functions just return true if their respective
@@ -179,7 +181,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual/WarnLogger.pm
new/Log-Contextual-0.007001/lib/Log/Contextual/WarnLogger.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual/WarnLogger.pm
2016-04-12 06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual/WarnLogger.pm
2017-05-21 16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual::WarnLogger;
-$Log::Contextual::WarnLogger::VERSION = '0.007000';
+$Log::Contextual::WarnLogger::VERSION = '0.007001';
# ABSTRACT: logger for libraries using Log::Contextual
use strict;
@@ -129,7 +129,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 SYNOPSIS
@@ -249,6 +249,8 @@
If different levels are specified, appropriate functions named for your custom
levels work as you expect.
+B<Note:> C<fatal> does not call C<die> for you, see
L<Log::Contextual/EXCEPTIONS AND ERROR HANDLING>
+
=head2 is_$level
All of the following six functions just return true if their respective
@@ -287,7 +289,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/lib/Log/Contextual.pm
new/Log-Contextual-0.007001/lib/Log/Contextual.pm
--- old/Log-Contextual-0.007000/lib/Log/Contextual.pm 2016-04-12
06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/lib/Log/Contextual.pm 2017-05-21
16:49:20.000000000 +0200
@@ -1,5 +1,5 @@
package Log::Contextual;
-$Log::Contextual::VERSION = '0.007000';
+$Log::Contextual::VERSION = '0.007001';
# ABSTRACT: Simple logging interface with a contextual log
use strict;
@@ -228,7 +228,7 @@
=head1 VERSION
-version 0.007000
+version 0.007001
=head1 SYNOPSIS
@@ -545,6 +545,8 @@
=item log_fatal
+B<Note:> C<log_fatal> does not call C<die> for you, see L</EXCEPTIONS AND
ERROR HANDLING>
+
=back
=head2 logS_$level
@@ -601,6 +603,8 @@
=item Dlog_fatal
+B<Note:> C<Dlog_fatal> does not call C<die> for you, see L</EXCEPTIONS AND
ERROR HANDLING>
+
=back
=head2 DlogS_$level
@@ -716,8 +720,77 @@
of Log::Contextual may overload router() to return instances of custom log
routers that
could for example work with loggers that use a different interface.
+=head1 EXCEPTIONS AND ERROR HANDLING
+
+C<Log::Contextual>, by design, does not B<intentionally> invoke C<die> on your
+behalf(L<*see footnote*|/footnote>) for C<log_fatal>.
+
+Logging events are characterized as information, not flow control, and
+conflating the two results in negative design anti-patterns.
+
+As such, C<log_fatal> would at be better used to communicate information about
a
+I<future> failure, for example:
+
+ if ( condition ) {
+ log_fatal { "Bad Condition is true" };
+ die My::Exception->new();
+ }
+
+This has a number of benefits:
+
+=over 4
+
+=item *
+
+You're more likely to want to use useful Exception Objects and flow control
+instead of cheating with log messages.
+
+=item *
+
+You're less likely to run a risk of losing what the actual problem was when
some
+error occurs in your creation of the Exception Object
+
+=item *
+
+You're less likely to run the risk of losing important log context due to
+exceptions occurring mid way through C<die> unwinding and C<exit> global
+destruction.
+
+=back
+
+If you're still too lazy to use exceptions, then you can do what you probably
want
+as follows:
+
+ if ( ... ) {
+ log_fatal { "Bad condition is true" };
+ die "Bad condtion is true";
+ }
+
+Or for C<:dlog> style:
+
+ use Data::Dumper::Consise qw( Dumper );
+ if ( ... ) {
+ # Dlog_fatal but not
+ my $reason = "Bad condtion is true because: " . Dumper($thing);
+ log_fatal { $reason };
+ die $reason;
+ }
+
+=head2 footnote
+
+The underlying behaviour of C<log_fatal> is dependent on the backing library.
+
+All the Loggers shipping with C<Log::Contextual> behave this way, as do many
of the supported
+loggers, like C<Log::Log4perl>. However, not all loggers work this way, and
one must be careful.
+
+C<Log::Dispatch> doesn't support implementing C<log_fatal> L<at all|/-levels>
+
+C<Log::Dispatchouli> implements C<log_fatal> using C<die> ( via Carp )
+
=head1 CONTRIBUTORS
+kentnl - Kent Fredric <kentfred...@gmail.com>
+
triddle - Tyler Riddle <t.rid...@shadowcat.co.uk>
voj - Jakob Voß <v...@gbv.de>
@@ -732,7 +805,7 @@
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2016 by Arthur Axel "fREW" Schmidt.
+This software is copyright (c) 2017 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.007000/t/author-pod-syntax.t
new/Log-Contextual-0.007001/t/author-pod-syntax.t
--- old/Log-Contextual-0.007000/t/author-pod-syntax.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Log-Contextual-0.007001/t/author-pod-syntax.t 2017-05-21
16:49:20.000000000 +0200
@@ -0,0 +1,15 @@
+#!perl
+
+BEGIN {
+ unless ($ENV{AUTHOR_TESTING}) {
+ print qq{1..0 # SKIP these tests are for testing by the author\n};
+ exit
+ }
+}
+
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
+use strict; use warnings;
+use Test::More;
+use Test::Pod 1.41;
+
+all_pod_files_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/t/dlog.t
new/Log-Contextual-0.007001/t/dlog.t
--- old/Log-Contextual-0.007000/t/dlog.t 2016-04-12 06:35:43.000000000
+0200
+++ new/Log-Contextual-0.007001/t/dlog.t 2017-05-21 16:49:20.000000000
+0200
@@ -38,9 +38,9 @@
eq_array($bar, [qw{frew bar baz}]),
'DlogS_trace passes data through correctly'
);
- is(
+ like(
$var,
- qq([$level] Look ma, data: [\n "frew",\n "bar",\n "baz"\n]\n),
+ qr(\[$level\] Look ma, data: \[),
"Output for DlogS_$level is correct"
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/t/log-with-levels.t
new/Log-Contextual-0.007001/t/log-with-levels.t
--- old/Log-Contextual-0.007000/t/log-with-levels.t 2016-04-12
06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/t/log-with-levels.t 2017-05-21
16:49:20.000000000 +0200
@@ -39,9 +39,9 @@
my $bar = DlogS_custom { "Look ma, data: $_" }[qw{frew bar baz}];
ok(eq_array($bar, [qw{frew bar baz}]),
'DlogS_custom passes data through correctly');
-is(
+like(
$DumbLogger::var,
- qq(Look ma, data: [\n "frew",\n "bar",\n "baz"\n]\n),
+ qr(Look ma, data: \[),
"Output for DlogS_custom is correct"
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Log-Contextual-0.007000/t/release-pod-syntax.t
new/Log-Contextual-0.007001/t/release-pod-syntax.t
--- old/Log-Contextual-0.007000/t/release-pod-syntax.t 2016-04-12
06:35:43.000000000 +0200
+++ new/Log-Contextual-0.007001/t/release-pod-syntax.t 1970-01-01
01:00:00.000000000 +0100
@@ -1,14 +0,0 @@
-#!perl
-
-BEGIN {
- unless ($ENV{RELEASE_TESTING}) {
- require Test::More;
- Test::More::plan(skip_all => 'these tests are for release candidate
testing');
- }
-}
-
-# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
-use Test::More;
-use Test::Pod 1.41;
-
-all_pod_files_ok();
