Hello community,
here is the log from the commit of package perl-Exception-Base for
openSUSE:Factory checked in at 2015-11-26 17:01:57
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Exception-Base (Old)
and /work/SRC/openSUSE:Factory/.perl-Exception-Base.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Exception-Base"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Exception-Base/perl-Exception-Base.changes
2015-10-06 13:24:51.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Exception-Base.new/perl-Exception-Base.changes
2015-11-26 17:02:18.000000000 +0100
@@ -1,0 +2,7 @@
+Fri Nov 20 09:32:52 UTC 2015 - co...@suse.com
+
+- updated to 0.2501
+ see /usr/share/doc/packages/perl-Exception-Base/Changes
+- remove upstream Exception-Base-sprintf.patch
+
+-------------------------------------------------------------------
Old:
----
Exception-Base-0.25.tar.gz
Exception-Base-sprintf.patch
New:
----
Exception-Base-0.2501.tar.gz
cpanspec.yml
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Exception-Base.spec ++++++
--- /var/tmp/diff_new_pack.Ylj1pz/_old 2015-11-26 17:02:18.000000000 +0100
+++ /var/tmp/diff_new_pack.Ylj1pz/_new 2015-11-26 17:02:18.000000000 +0100
@@ -17,112 +17,62 @@
Name: perl-Exception-Base
-Version: 0.25
+Version: 0.2501
Release: 0
%define cpan_name Exception-Base
Summary: Lightweight exceptions
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Exception-Base/
-Source:
http://www.cpan.org/authors/id/D/DE/DEXTER/%{cpan_name}-%{version}.tar.gz
-Patch0: Exception-Base-sprintf.patch
+Source0:
http://www.cpan.org/authors/id/D/DE/DEXTER/%{cpan_name}-%{version}.tar.gz
+Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(Module::Build)
BuildRequires: perl(Test::Unit::Lite) >= 0.12
-#BuildRequires: perl(Class::Throwable)
-#BuildRequires: perl(Exception::Base)
-#BuildRequires: perl(Exception::BaseTest::LoadedException)
-#BuildRequires: perl(Exception::Class)
-#BuildRequires: perl(File::Slurp)
-#BuildRequires: perl(Readonly)
-#BuildRequires: perl(Test::CheckChanges)
-#BuildRequires: perl(Test::CPAN::Changes)
-#BuildRequires: perl(Test::CPAN::Meta)
-#BuildRequires: perl(Test::DistManifest)
-#BuildRequires: perl(Test::Distribution)
-#BuildRequires: perl(Test::EOL)
-#BuildRequires: perl(Test::Kwalitee)
-#BuildRequires: perl(Test::NoTabs)
-#BuildRequires: perl(Test::Perl::Critic)
-#BuildRequires: perl(Test::Pod) >= 1.14
-#BuildRequires: perl(Test::Pod::Coverage) >= 1.04
-#BuildRequires: perl(Test::Signature)
-#BuildRequires: perl(Test::Spelling)
-#BuildRequires: perl(Test::Unit::TestCase)
-#BuildRequires: perl(TryCatch)
-#BuildRequires: perl(Try::Tiny)
%{perl_requires}
%description
-This class implements a fully OO exception mechanism similar to the
-Exception::Class manpage or the Class::Throwable manpage. It provides a
-simple interface allowing programmers to declare exception classes. These
-classes can be thrown and caught. Each uncaught exception prints full stack
-trace if the default verbosity is increased for debugging purposes.
+This class implements a fully OO exception mechanism similar to
+Exception::Class or Class::Throwable. It provides a simple interface
+allowing programmers to declare exception classes. These classes can be
+thrown and caught. Each uncaught exception prints full stack trace if the
+default verbosity is increased for debugging purposes.
The features of 'Exception::Base':
-* *
+ * fast implementation of the exception class
- fast implementation of the exception class
+ * fully OO without closures and source code filtering
-* *
+ * does not mess with '$SIG{__DIE__}' and '$SIG{__WARN__}'
- fully OO without closures and source code filtering
+ * no external run-time modules dependencies, requires core Perl modules only
-* *
+ * the default behavior of exception class can be changed globally or just for
+the thrown exception
- does not mess with '$SIG{__DIE__}' and '$SIG{__WARN__}'
+ * matching the exception by class, message or other attributes
-* *
+ * matching with string, regex or closure function
- no external run-time modules dependencies, requires core Perl modules
- only
+ * creating automatically the derived exception classes (perlfunc/use
+interface)
-* *
+ * easily expendable, see Exception::System class for example
- the default behavior of exception class can be changed globally or just
- for the thrown exception
+ * prints just an error message or dumps full stack trace
-* *
+ * can propagate (rethrow) an exception
- matching the exception by class, message or other attributes
+ * can ignore some packages for stack trace output
-* *
-
- matching with string, regex or closure function
-
-* *
-
- creating automatically the derived exception classes (the perlfunc/use
- manpage interface)
-
-* *
-
- easily expendable, see the Exception::System manpage class for example
-
-* *
-
- prints just an error message or dumps full stack trace
-
-* *
-
- can propagate (rethrow) an exception
-
-* *
-
- can ignore some packages for stack trace output
-
-* *
-
- some defaults (i.e. verbosity) can be different for different exceptions
+ * some defaults (i.e. verbosity) can be different for different exceptions
%prep
%setup -q -n %{cpan_name}-%{version}
-%patch0
%build
%{__perl} Build.PL installdirs=vendor
++++++ Exception-Base-0.25.tar.gz -> Exception-Base-0.2501.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/Build.PL
new/Exception-Base-0.2501/Build.PL
--- old/Exception-Base-0.25/Build.PL 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/Build.PL 2015-11-19 13:52:01.000000000 +0100
@@ -29,7 +29,7 @@
recursive_test_files => 0,
add_to_cleanup => [
'*.bak', '*.gz', '*.tgz', '*.ppd', '*.ppmx', '*.deb',
- 'pm_to_blib', 'cover_db', 'Debian_CPANTS.txt',
+ 'pm_to_blib', 'cover_db', 'nytprof', 'nytprof.out',
'Debian_CPANTS.txt',
'compilet*', 'test-*',
"$dist-*",
],
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/Changes
new/Exception-Base-0.2501/Changes
--- old/Exception-Base-0.25/Changes 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/Changes 2015-11-19 13:52:01.000000000 +0100
@@ -1,16 +1,17 @@
-------------------------------------------------------------------------
+0.2501 2015-11-19 Piotr Roszatycki <dex...@cpan.org>
+
+* Fixes "Redundant argument in sprintf" warning on Perl 5.21.2.
+
0.25 2013-05-25 Piotr Roszatycki <dex...@cpan.org>
* Builds on Perl 5.18.0 with smartmatch operator as an experimental feature.
-------------------------------------------------------------------------
0.2401 2010-09-30 Piotr Roszatycki <dex...@cpan.org>
Fixes:
* Builds on Perl 5.13.4 with (?^...) regex construct.
-------------------------------------------------------------------------
0.24 2009-12-13 Piotr Roszatycki <dex...@cpan.org>
New:
@@ -20,7 +21,6 @@
Exception::Died class and it won't change the default verbosity for
Exception::Base.
-------------------------------------------------------------------------
0.23 2009-10-20 Piotr Roszatycki <dex...@cpan.org>
New:
@@ -28,7 +28,6 @@
* Method "catch" has optional argument. It recovers an exception from this
argument or from "$@" variable by default.
-------------------------------------------------------------------------
0.2202 2009-08-13 Piotr Roszatycki <dex...@cpan.org>
Fixes:
@@ -36,7 +35,6 @@
* The smart matching operator "~~" requires second argument to be a scalar for
Perl >= 5.10.1.
-------------------------------------------------------------------------
0.2201 2009-04-02 Piotr Roszatycki <dex...@debian.org>
Fixes:
@@ -47,7 +45,6 @@
* POD is mixed with rest of code.
-------------------------------------------------------------------------
0.22 2009-03-24 Piotr Roszatycki <dex...@debian.org>
New:
@@ -60,7 +57,6 @@
* Build requires Test::Unit::Lite 0.21.
-------------------------------------------------------------------------
0.21 2008-12-08 Piotr Roszatycki <dex...@debian.org>
Fixes:
@@ -74,7 +70,6 @@
* Method "import" was refactored.
-------------------------------------------------------------------------
0.20 2008-12-05 Piotr Roszatycki <dex...@debian.org>
New:
@@ -104,7 +99,6 @@
* catch method takes no arguments.
-------------------------------------------------------------------------
0.1901 2008-10-13 Piotr Roszatycki <dex...@debian.org>
Fixes:
@@ -119,7 +113,6 @@
* Updated bundled Test::Unit::Lite to 0.1002.
-------------------------------------------------------------------------
0.19 2008-10-08 Piotr Roszatycki <dex...@debian.org>
Fixes:
@@ -132,7 +125,6 @@
* Updated bundled Test::Unit::Lite to 0.1001.
-------------------------------------------------------------------------
0.18 2008-10-08 Piotr Roszatycki <dex...@debian.org>
New:
@@ -192,19 +184,16 @@
* Updated bundled Test::Unit::Lite to 0.10.
-------------------------------------------------------------------------
0.1702 2008-05-28 Piotr Roszatycki <dex...@debian.org>
Fixed:
* Fix some "undefined value" warning.
-------------------------------------------------------------------------
0.1701 2008-05-12 Piotr Roszatycki <dex...@debian.org>
* Corrected documentation.
-------------------------------------------------------------------------
0.17 2008-05-11 Piotr Roszatycki <dex...@debian.org>
Incompatibilities:
@@ -223,7 +212,6 @@
* Show full propagated stack for verbosity = 4.
* The "with" method matches the default_attribute if one argument is given.
-------------------------------------------------------------------------
0.16 2008-05-07 Piotr Roszatycki <dex...@debian.org>
Incompatibilites:
@@ -259,7 +247,6 @@
* Support for threads module.
-------------------------------------------------------------------------
0.15 2008-04-19 Piotr Roszatycki <dex...@debian.org>
New:
@@ -271,7 +258,6 @@
* Drop indirect notation is POD and code.
-------------------------------------------------------------------------
0.14 2008-04-13 Piotr Roszatycki <dex...@debian.org>
New:
@@ -287,7 +273,6 @@
* Updated bundled Test::Unit::Lite to 0.0903.
-------------------------------------------------------------------------
0.13 2007-11-19 Piotr Roszatycki <dex...@debian.org>
Changes:
@@ -295,7 +280,6 @@
* If the error stack is empty, the catch method returns undefined value.
* Updated bundled Test::Unit::Lite to 0.0701.
-------------------------------------------------------------------------
0.12 2007-10-29 Piotr Roszatycki <dex...@debian.org>
Fixes:
@@ -312,7 +296,6 @@
* Minor refactoring.
* Updated bundled Test::Unit::Lite to 0.07.
-------------------------------------------------------------------------
0.11 2007-10-13 Piotr Roszatycki <dex...@debian.org>
New:
@@ -325,7 +308,6 @@
* Updated bundled Test::Unit::Lite to 0.0601.
* Compatibility with Kurila 1.4.
-------------------------------------------------------------------------
0.10 2007-10-09 Piotr Roszatycki <dex...@debian.org>
Changes:
@@ -337,7 +319,6 @@
the derived class overwrites throw() method.
* Do not test POD errors unless $ENV{PERL_TEST_POD} is true.
-------------------------------------------------------------------------
0.09 2007-10-08 Piotr Roszatycki <dex...@debian.org>
New:
@@ -355,7 +336,6 @@
exception with changed own class.
* Use default message if argument or field is an empty string.
-------------------------------------------------------------------------
0.08 2007-10-06 Piotr Roszatycki <dex...@debian.org>
New:
@@ -373,7 +353,6 @@
* Does not use Scalar::Util::blessed() and Carp::croak().
* Updated benchmark results in documentation.
-------------------------------------------------------------------------
0.07 2007-05-18 Piotr Roszatycki <dex...@debian.org>
Fixed error:
@@ -381,18 +360,15 @@
* Load base class of newly created exception before checking its default
properties.
-------------------------------------------------------------------------
0.06 2007-05-18 Piotr Roszatycki <dex...@debian.org>
* Can define default value for rw properties with "use".
* Does not undefine other typeglobs than CODE with "unimport".
-------------------------------------------------------------------------
0.05 2007-05-11 Piotr Roszatycki <dex...@debian.org>
* Added bundled Test/Unit/Lite.pm to MANIFEST.
-------------------------------------------------------------------------
0.04 2007-05-11 Piotr Roszatycki <dex...@debian.org>
* use 5.006
@@ -401,7 +377,6 @@
* Fixed unit tests so they work with Test::Unit and with Test::Unit::Lite.
* META.yml is generated with Makefile.PL.
-------------------------------------------------------------------------
0.03 2007-04-23 Piotr Roszatycki <dex...@debian.org>
* Added ignore_package (rw) field, contains package names which are ignored
@@ -411,15 +386,12 @@
* The default version for created exception classes is now 0.01
* META.yml created by hand.
-------------------------------------------------------------------------
0.02 2007-04-22 Piotr Roszatycki <dex...@debian.org>
* First CPAN release.
* Module renamed to Exception::Base.
-------------------------------------------------------------------------
0.01 2007-04-20 Piotr Roszatycki <dex...@debian.org>
* Development release.
-------------------------------------------------------------------------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/LICENSE
new/Exception-Base-0.2501/LICENSE
--- old/Exception-Base-0.25/LICENSE 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/LICENSE 2015-11-19 13:52:01.000000000 +0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2013 by Piotr Roszatycki <dex...@cpan.org>.
+This software is copyright (c) 2015 by Piotr Roszatycki <dex...@cpan.org>.
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) 2013 by Piotr Roszatycki <dex...@cpan.org>.
+This software is Copyright (c) 2015 by Piotr Roszatycki <dex...@cpan.org>.
This is free software, licensed under:
@@ -22,7 +22,7 @@
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2013 by Piotr Roszatycki <dex...@cpan.org>.
+This software is Copyright (c) 2015 by Piotr Roszatycki <dex...@cpan.org>.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/MANIFEST.SKIP
new/Exception-Base-0.2501/MANIFEST.SKIP
--- old/Exception-Base-0.25/MANIFEST.SKIP 2013-05-26 11:09:49.000000000
+0200
+++ new/Exception-Base-0.2501/MANIFEST.SKIP 2015-11-19 13:52:01.000000000
+0100
@@ -8,6 +8,7 @@
\B\.gitignore$
\B\.bzr\b
\B\.bzrignore$
+\B\.travis.yml$
# Avoid Makemaker generated and utility files.
\bMakefile$
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/META.json
new/Exception-Base-0.2501/META.json
--- old/Exception-Base-0.25/META.json 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/META.json 2015-11-19 13:52:01.000000000 +0100
@@ -4,7 +4,7 @@
"Piotr Roszatycki <dex...@cpan.org>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.4003, CPAN::Meta::Converter
version 2.120921",
+ "generated_by" : "Module::Build version 0.4214",
"license" : [
"perl_5"
],
@@ -28,7 +28,7 @@
"provides" : {
"Exception::Base" : {
"file" : "lib/Exception/Base.pm",
- "version" : "0.25"
+ "version" : "0.2501"
}
},
"release_status" : "stable",
@@ -43,5 +43,5 @@
"url" : "http://github.com/dex4er/perl-Exception-Base";
}
},
- "version" : "0.25"
+ "version" : "0.2501"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/META.yml
new/Exception-Base-0.2501/META.yml
--- old/Exception-Base-0.25/META.yml 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/META.yml 2015-11-19 13:52:01.000000000 +0100
@@ -3,22 +3,22 @@
author:
- 'Piotr Roszatycki <dex...@cpan.org>'
build_requires:
- Test::Unit::Lite: 0.12
+ Test::Unit::Lite: '0.12'
dynamic_config: 1
-generated_by: 'Module::Build version 0.4003, CPAN::Meta::Converter version
2.120921'
+generated_by: 'Module::Build version 0.4214, CPAN::Meta::Converter version
2.150001'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Exception-Base
provides:
Exception::Base:
file: lib/Exception/Base.pm
- version: 0.25
+ version: '0.2501'
requires:
- perl: 5.006
+ perl: '5.006'
resources:
bugtracker: http://github.com/dex4er/perl-Exception-Base/issues
license: http://dev.perl.org/licenses/
repository: http://github.com/dex4er/perl-Exception-Base
-version: 0.25
+version: '0.2501'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/Makefile.PL
new/Exception-Base-0.2501/Makefile.PL
--- old/Exception-Base-0.25/Makefile.PL 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/Makefile.PL 2015-11-19 13:52:01.000000000
+0100
@@ -1,15 +1,15 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.4003
+# Note: this file was auto-generated by Module::Build::Compat version 0.4214
require 5.006;
use ExtUtils::MakeMaker;
WriteMakefile
(
- 'NAME' => 'Exception::Base',
- 'PL_FILES' => {},
- 'EXE_FILES' => [],
- 'INSTALLDIRS' => 'site',
- 'VERSION_FROM' => 'lib/Exception/Base.pm',
'PREREQ_PM' => {
'Test::Unit::Lite' => '0.12'
- }
+ },
+ 'VERSION_FROM' => 'lib/Exception/Base.pm',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {},
+ 'NAME' => 'Exception::Base',
+ 'INSTALLDIRS' => 'site'
)
;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/README
new/Exception-Base-0.2501/README
--- old/Exception-Base-0.25/README 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/README 2015-11-19 13:52:01.000000000 +0100
@@ -1,7 +1,9 @@
NAME
+
Exception::Base - Lightweight exceptions
SYNOPSIS
+
# Use module and create needed exceptions
use Exception::Base
'Exception::Runtime', # create new module
@@ -14,7 +16,7 @@
has => [ 'filename' ], # define new rw attribute
string_attributes => [ 'message', 'filename' ],
}; # output message and filename
-
+
# eval is used as "try" block
eval {
open my $file, '/etc/passwd'
@@ -44,7 +46,7 @@
elsif ($e->matches(qr/^Error/)) { warn "some error based on regex"; }
else { $e->throw; } # rethrow the exception
}
-
+
# $@ has to be recovered ASAP!
eval { die "this die will be caught" };
my $e = Exception::Base->catch;
@@ -52,69 +54,72 @@
if ($e) {
(...)
}
-
+
# the exception can be thrown later
my $e = Exception::Base->new;
# (...)
$e->throw;
-
+
# ignore our package in stack trace
package My::Package;
use Exception::Base '+ignore_package' => __PACKAGE__;
-
+
# define new exception in separate module
package Exception::My;
use Exception::Base (__PACKAGE__) => {
has => ['myattr'],
};
-
+
# run Perl with changed verbosity for debugging purposes
$ perl -MException::Base=verbosity,4 script.pl
DESCRIPTION
+
This class implements a fully OO exception mechanism similar to
Exception::Class or Class::Throwable. It provides a simple interface
allowing programmers to declare exception classes. These classes can be
thrown and caught. Each uncaught exception prints full stack trace if
the default verbosity is increased for debugging purposes.
- The features of `Exception::Base':
+ The features of Exception::Base:
- * fast implementation of the exception class
+ * fast implementation of the exception class
- * fully OO without closures and source code filtering
+ * fully OO without closures and source code filtering
- * does not mess with `$SIG{__DIE__}' and `$SIG{__WARN__}'
+ * does not mess with $SIG{__DIE__} and $SIG{__WARN__}
- * no external run-time modules dependencies, requires core Perl modules
- only
+ * no external run-time modules dependencies, requires core Perl
+ modules only
- * the default behavior of exception class can be changed globally or
+ * the default behavior of exception class can be changed globally or
just for the thrown exception
- * matching the exception by class, message or other attributes
+ * matching the exception by class, message or other attributes
- * matching with string, regex or closure function
+ * matching with string, regex or closure function
- * creating automatically the derived exception classes (perlfunc
- interface)
+ * creating automatically the derived exception classes ("use" in
+ perlfunc interface)
- * easily expendable, see Exception::System class for example
+ * easily expendable, see Exception::System class for example
- * prints just an error message or dumps full stack trace
+ * prints just an error message or dumps full stack trace
- * can propagate (rethrow) an exception
+ * can propagate (rethrow) an exception
- * can ignore some packages for stack trace output
+ * can ignore some packages for stack trace output
- * some defaults (i.e. verbosity) can be different for different
+ * some defaults (i.e. verbosity) can be different for different
exceptions
AUTHOR
+
Piotr Roszatycki <dex...@cpan.org>
LICENSE
- Copyright (c) 2007-2010, 2012-2013 Piotr Roszatycki <dex...@cpan.org>.
+
+ Copyright (c) 2007-2015 Piotr Roszatycki <dex...@cpan.org>.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/README.md
new/Exception-Base-0.2501/README.md
--- old/Exception-Base-0.25/README.md 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/README.md 2015-11-19 13:52:01.000000000 +0100
@@ -1,3 +1,5 @@
+[](https://travis-ci.org/dex4er/perl-Exception-Base)
+
# NAME
Exception::Base - Lightweight exceptions
@@ -76,7 +78,7 @@
# DESCRIPTION
This class implements a fully OO exception mechanism similar to
-[Exception::Class](http://search.cpan.org/perldoc?Exception::Class) or
[Class::Throwable](http://search.cpan.org/perldoc?Class::Throwable). It
provides a simple interface
+[Exception::Class](https://metacpan.org/pod/Exception::Class) or
[Class::Throwable](https://metacpan.org/pod/Class::Throwable). It provides a
simple interface
allowing programmers to declare exception classes. These classes can be
thrown and caught. Each uncaught exception prints full stack trace if the
default verbosity is increased for debugging purposes.
@@ -91,9 +93,9 @@
the thrown exception
- matching the exception by class, message or other attributes
- matching with string, regex or closure function
-- creating automatically the derived exception classes (["use" in
perlfunc](http://search.cpan.org/perldoc?perlfunc#use)
+- creating automatically the derived exception classes (["use" in
perlfunc](https://metacpan.org/pod/perlfunc#use)
interface)
-- easily expendable, see
[Exception::System](http://search.cpan.org/perldoc?Exception::System) class for
example
+- easily expendable, see
[Exception::System](https://metacpan.org/pod/Exception::System) class for
example
- prints just an error message or dumps full stack trace
- can propagate (rethrow) an exception
- can ignore some packages for stack trace output
@@ -201,7 +203,7 @@
eval { Exception::Base->throw( message=>"Message" ); };
print $@->message if $@;
- It can also be an array reference of strings and then the ["perlfunc" in
sprintf](http://search.cpan.org/perldoc?sprintf#perlfunc)
+ It can also be an array reference of strings and then the ["perlfunc" in
sprintf](https://metacpan.org/pod/sprintf#perlfunc)
is used to get a message.
Exception::Base->throw( message => ["%s failed", __PACKAGE__] );
@@ -227,6 +229,7 @@
- `1`
Message
+
- `2`
Message at %s line %d.
@@ -353,7 +356,7 @@
caller stack if the verbosity was lower than 3.
If the arguments of called function are references and
- `[Scalar::Util](http://search.cpan.org/perldoc?Scalar::Util)::weaken`
function is available then reference is weakened.
+ `[Scalar::Util](https://metacpan.org/pod/Scalar::Util)::weaken` function
is available then reference is weakened.
eval { Exception::Base->throw( message=>"Message" ); };
($package, $filename, $line, $subroutine, $hasargs, $wantarray,
@@ -478,10 +481,12 @@
use Exception::Base
"+ignore_packages" => [ __PACKAGE__, qr/^Moose::/ ],
"-ignore_class" => "My::Good::Class";
+
- If the original _value_ was a number, it will be incremented or
decremented by the new _value_.
use Exception::Base "+ignore_level" => 1;
+
- If the original _value_ was a string, the new _value_ will be
included.
@@ -570,7 +575,7 @@
function and stores it in the internal cache for performance reason. The
defaults values for the class are also stored in internal cache.
-- `CLASS`\->throw(\[%_args_\]\])
+- `CLASS`->throw(\[%_args_\]\])
Creates the exception object and immediately throws it with `die` system
function.
@@ -587,7 +592,7 @@
# METHODS
-- `$obj`\->throw(\[%_args_\])
+- `$obj`->throw(\[%_args_\])
Immediately throws exception object. It can be used for rethrowing
existing
exception object. Additional arguments will override the attributes in
@@ -600,7 +605,7 @@
eval { Exception::Base->throw( message=>"Problem", value=>1 ) };
$@->throw if $@->value;
-- `$obj`\->throw(_message_, \[%_args_\])
+- `$obj`->throw(_message_, \[%_args_\])
If the number of _args_ list for arguments is odd, the first argument is a
message. This message can be overridden by message from _args_ list.
@@ -609,7 +614,7 @@
eval { die "Bum!" };
Exception::Base->throw( $@, message=>"New message" );
-- _CLASS_\->throw($_exception_, \[%_args_\])
+- _CLASS_->throw($_exception_, \[%_args_\])
Immediately rethrows an existing exception object as an other exception
class.
@@ -617,7 +622,7 @@
# convert Exception::System into Exception::Base
Exception::Base->throw($@);
-- _CLASS_\->catch(\[$_variable_\])
+- _CLASS_->catch(\[$_variable_\])
The exception is recovered from _variable_ argument or `$@` variable if
_variable_ argument was empty. Then also `$@` is replaced with empty
string
@@ -686,7 +691,7 @@
print $@->matches( 123 ); # matches
print $@->matches( 456 ); # doesn't
- If an attribute contains array reference, the array will be `sprintf`\-ed
+ If an attribute contains array reference, the array will be `sprintf`-ed
before matching.
eval { Exception::Base->throw( message=>["%s", "Message"] ) };
@@ -696,7 +701,7 @@
The `match` method matches for special keywords:
- - \-isa
+ - -isa
Matches if the object is a given class.
@@ -704,14 +709,14 @@
print $@->matches( { -isa=>"Exception::Base" } ); #
matches
print $@->matches( { -isa=>["X::Y", "Exception::Base"] } ); #
matches
- - \-has
+ - -has
Matches if the object has a given attribute.
eval { Exception::Base->new( message=>"Message" ) };
print $@->matches( { -has=>"Message" } ); #
matches
- - \-default
+ - -default
Matches against the default attribute, usually the `message` attribute.
@@ -812,51 +817,6 @@
Returns the subroutine name which thrown an exception.
-= Class Diagram =
-
-\[ <<exception>>
- Exception::Base
- -----------------------------------------------------------------------------
- +ignore\_class : ArrayRef {new}
- +ignore\_level : Int = 0 {new}
- +ignore\_package : ArrayRef {new}
- +max\_arg\_len : Int = 64
{new}
- +max\_arg\_nums : Int = 8
{new}
- +max\_eval\_len : Int = 0
{new}
- +message : Str|ArrayRef\[Str\] = "Unknown exception"
{new}
- +value : Int = 0 {new}
- +verbosity : Int = 2 {new}
- +caller\_stack : ArrayRef
- +egid : Int
- +euid : Int
- +gid : Int
- +pid : Int
- +propagated\_stack : ArrayRef
- +tid : Int
- +time : Int
- +uid : Int
- \#defaults : HashRef
- \#default\_attribute : Str = "message"
- \#numeric\_attribute : Str = "value"
- \#eval\_attribute : Str = "message"
- \#string\_attributes : ArrayRef\[Str\] = \["message"\]
- -----------------------------------------------------------------------------
- <<create>> +new( args : Hash )
- <<create>> +throw( args : Hash = undef )
- <<create>> +throw( message : Str, args : Hash = undef )
- +catch() : Exception::Base
- +catch( variable : Any ) : Exception::Base
- +matches( that : Any ) : Bool {overload="~~"}
- +to\_string() : Str {overload='""'}
- +to\_number() : Num {overload="0+"}
- +to\_bool() : Bool {overload="bool"}
- +get\_caller\_stacktrace() : Array\[Str\]|Str
- +PROPAGATE()
- \#\_collect\_system\_data()
- \#\_make\_accessors()
{init}
- \#\_make\_caller\_info\_accessors()
{init}
- <<constant>> +ATTRS() : HashRef
\]
-
# SEE ALSO
Repository:
[http://github.com/dex4er/perl-Exception-Base](http://github.com/dex4er/perl-Exception-Base)
@@ -873,7 +833,7 @@
The more complex implementation of exception mechanism provides more features.
-- [Error](http://search.cpan.org/perldoc?Error)
+- [Error](https://metacpan.org/pod/Error)
Complete implementation of try/catch/finally/otherwise mechanism. Uses
nested
closures with a lot of syntactic sugar. It is slightly faster than
@@ -881,69 +841,69 @@
scenario. It doesn't provide a simple way to create user defined
exceptions.
It doesn't collect system data and stack trace on error.
-- [Exception::Class](http://search.cpan.org/perldoc?Exception::Class)
+- [Exception::Class](https://metacpan.org/pod/Exception::Class)
More Perlish way to do OO exceptions. It is similar to `Exception::Base`
module and provides similar features but it is 10x slower for failure
scenario.
--
[Exception::Class::TryCatch](http://search.cpan.org/perldoc?Exception::Class::TryCatch)
+-
[Exception::Class::TryCatch](https://metacpan.org/pod/Exception::Class::TryCatch)
- Additional try/catch mechanism for
[Exception::Class](http://search.cpan.org/perldoc?Exception::Class). It is 15x
slower for
+ Additional try/catch mechanism for
[Exception::Class](https://metacpan.org/pod/Exception::Class). It is 15x
slower for
success scenario.
-- [Class::Throwable](http://search.cpan.org/perldoc?Class::Throwable)
+- [Class::Throwable](https://metacpan.org/pod/Class::Throwable)
- Elegant OO exceptions similar to
[Exception::Class](http://search.cpan.org/perldoc?Exception::Class) and
`Exception::Base`.
+ Elegant OO exceptions similar to
[Exception::Class](https://metacpan.org/pod/Exception::Class) and
`Exception::Base`.
It might be missing some features found in `Exception::Base` and
- [Exception::Class](http://search.cpan.org/perldoc?Exception::Class).
+ [Exception::Class](https://metacpan.org/pod/Exception::Class).
-- [Exceptions](http://search.cpan.org/perldoc?Exceptions)
+- [Exceptions](https://metacpan.org/pod/Exceptions)
Not recommended. Abandoned. Modifies `%SIG` handlers.
-- [TryCatch](http://search.cpan.org/perldoc?TryCatch)
+- [TryCatch](https://metacpan.org/pod/TryCatch)
A module which gives new try/catch keywords without source filter.
-- [Try::Tiny](http://search.cpan.org/perldoc?Try::Tiny)
+- [Try::Tiny](https://metacpan.org/pod/Try::Tiny)
- Smaller, simpler and slower version of
[TryCatch](http://search.cpan.org/perldoc?TryCatch) module.
+ Smaller, simpler and slower version of
[TryCatch](https://metacpan.org/pod/TryCatch) module.
The `Exception::Base` does not depend on other modules like
-[Exception::Class](http://search.cpan.org/perldoc?Exception::Class) and it is
more powerful than
[Class::Throwable](http://search.cpan.org/perldoc?Class::Throwable). Also it
-does not use closures as [Error](http://search.cpan.org/perldoc?Error) and
does not pollute namespace as
-[Exception::Class::TryCatch](http://search.cpan.org/perldoc?Exception::Class::TryCatch).
It is also much faster than
-[Exception::Class::TryCatch](http://search.cpan.org/perldoc?Exception::Class::TryCatch)
and [Error](http://search.cpan.org/perldoc?Error) for success scenario.
+[Exception::Class](https://metacpan.org/pod/Exception::Class) and it is more
powerful than [Class::Throwable](https://metacpan.org/pod/Class::Throwable).
Also it
+does not use closures as [Error](https://metacpan.org/pod/Error) and does not
pollute namespace as
+[Exception::Class::TryCatch](https://metacpan.org/pod/Exception::Class::TryCatch).
It is also much faster than
+[Exception::Class::TryCatch](https://metacpan.org/pod/Exception::Class::TryCatch)
and [Error](https://metacpan.org/pod/Error) for success scenario.
The `Exception::Base` is compatible with syntax sugar modules like
-[TryCatch](http://search.cpan.org/perldoc?TryCatch) and
[Try::Tiny](http://search.cpan.org/perldoc?Try::Tiny).
+[TryCatch](https://metacpan.org/pod/TryCatch) and
[Try::Tiny](https://metacpan.org/pod/Try::Tiny).
The `Exception::Base` is also a base class for enhanced classes:
-- [Exception::System](http://search.cpan.org/perldoc?Exception::System)
+- [Exception::System](https://metacpan.org/pod/Exception::System)
The exception class for system or library calls which modifies `$!`
variable.
-- [Exception::Died](http://search.cpan.org/perldoc?Exception::Died)
+- [Exception::Died](https://metacpan.org/pod/Exception::Died)
- The exception class for eval blocks with simple ["die" in
perlfunc](http://search.cpan.org/perldoc?perlfunc#die). It can also
- handle [$SIG{\_\_DIE\_\_}](http://search.cpan.org/perldoc?perlvar#%SIG)
hook and convert simple ["die" in
perlfunc](http://search.cpan.org/perldoc?perlfunc#die)
+ The exception class for eval blocks with simple ["die" in
perlfunc](https://metacpan.org/pod/perlfunc#die). It can also
+ handle [$SIG{\_\_DIE\_\_}](https://metacpan.org/pod/perlvar#SIG) hook and
convert simple ["die" in perlfunc](https://metacpan.org/pod/perlfunc#die)
into an exception object.
-- [Exception::Warning](http://search.cpan.org/perldoc?Exception::Warning)
+- [Exception::Warning](https://metacpan.org/pod/Exception::Warning)
- The exception class which handle
[$SIG{\_\_WARN\_\_}](http://search.cpan.org/perldoc?pervar#%SIG) hook and
- convert simple ["warn" in
perlfunc](http://search.cpan.org/perldoc?perlfunc#warn) into an exception
object.
+ The exception class which handle
[$SIG{\_\_WARN\_\_}](https://metacpan.org/pod/pervar#SIG) hook and
+ convert simple ["warn" in
perlfunc](https://metacpan.org/pod/perlfunc#warn) into an exception object.
# EXAMPLES
## New exception classes
The `Exception::Base` module allows to create new exception classes easily.
-You can use ["import" in
perlfunc](http://search.cpan.org/perldoc?perlfunc#import) interface or
[base](http://search.cpan.org/perldoc?base) module to do it.
+You can use ["import" in perlfunc](https://metacpan.org/pod/perlfunc#import)
interface or [base](https://metacpan.org/pod/base) module to do it.
-The ["import" in perlfunc](http://search.cpan.org/perldoc?perlfunc#import)
interface allows to create new class with new
+The ["import" in perlfunc](https://metacpan.org/pod/perlfunc#import) interface
allows to create new class with new
read-write attributes.
package Exception::Simple;
@@ -971,15 +931,15 @@
# PERFORMANCE
-There are two scenarios for ["eval" in
perlfunc](http://search.cpan.org/perldoc?perlfunc#eval) block: success or
failure.
+There are two scenarios for ["eval" in
perlfunc](https://metacpan.org/pod/perlfunc#eval) block: success or failure.
Success scenario should have no penalty on speed. Failure scenario is usually
more complex to handle and can be significantly slower.
Any other code than simple `if ($@)` is really slow and shouldn't be used if
speed is important. It means that any module which provides try/catch syntax
-sugar should be avoided: [Error](http://search.cpan.org/perldoc?Error),
[Exception::Class::TryCatch](http://search.cpan.org/perldoc?Exception::Class::TryCatch),
[TryCatch](http://search.cpan.org/perldoc?TryCatch),
-[Try::Tiny](http://search.cpan.org/perldoc?Try::Tiny). Be careful because
simple `if ($@)` has many gotchas which are
-described in [Try::Tiny](http://search.cpan.org/perldoc?Try::Tiny)'s
documentation.
+sugar should be avoided: [Error](https://metacpan.org/pod/Error),
[Exception::Class::TryCatch](https://metacpan.org/pod/Exception::Class::TryCatch),
[TryCatch](https://metacpan.org/pod/TryCatch),
+[Try::Tiny](https://metacpan.org/pod/Try::Tiny). Be careful because simple
`if ($@)` has many gotchas which are
+described in [Try::Tiny](https://metacpan.org/pod/Try::Tiny)'s documentation.
The `Exception::Base` module was benchmarked with other implementations for
simple try/catch scenario. The results
@@ -1028,11 +988,11 @@
# AUTHOR
-Piotr Roszatycki <dex...@cpan.org>
+Piotr Roszatycki <dex...@cpan.org>
# LICENSE
-Copyright (c) 2007-2010, 2012-2013 Piotr Roszatycki <dex...@cpan.org>.
+Copyright (c) 2007-2015 Piotr Roszatycki <dex...@cpan.org>.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/SIGNATURE
new/Exception-Base-0.2501/SIGNATURE
--- old/Exception-Base-0.25/SIGNATURE 2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/SIGNATURE 2015-11-19 13:52:08.000000000 +0100
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.70.
+signed via the Module::Signature module, version 0.79.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -14,17 +14,17 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 d30eac7bff2bddce1db3da74b59d369cd384af88 Build.PL
-SHA1 0161b4212df9836c0f2f1199be5cf5ac4a6244a6 Changes
+SHA1 1fdc2e48a092970abc88cfc4aae5715bf467cef2 Build.PL
+SHA1 83eb7819e3483fcc885eecf76ffdcc64a1645f51 Changes
SHA1 9fc66bd603a4c3712c8a99ebc293a5b1fb93a558 Incompatibilities
-SHA1 a174928e84308ecca1e244fda30c56960b1e31e2 LICENSE
+SHA1 bb888bcf4bc13996926c9c2c11bfa2b0b551399e LICENSE
SHA1 3495a0b73bdf5710ea8cccb1f91c42ca5502a969 MANIFEST
-SHA1 86fb54c8932787c88ad623cf4792182853eeca85 MANIFEST.SKIP
-SHA1 c251ad62bfd3a0012fe2014c78c27dab2eecdf5b META.json
-SHA1 80c3d1c8117b60cbe14154dc7d3ac3c9878b1c1e META.yml
-SHA1 6b6a7bfe7b9c80dc2abcf1c5598555db17303d94 Makefile.PL
-SHA1 d97be63bb80d697e75b550ab6fd09d9c6e128f66 README
-SHA1 c52336749a8191c0f8532759a02fd4793e99ecc6 README.md
+SHA1 8db1be1ca479d3b130569f025fba70fbe7e7f075 MANIFEST.SKIP
+SHA1 f4e1a63b31ce8d1457bf7627d4298f53a170d921 META.json
+SHA1 d5f51d44b4822c1511b7ff3e4cf6fb45a88ff977 META.yml
+SHA1 6bf8c415b69d3597fe009933f79a232f645512ed Makefile.PL
+SHA1 388230b3c3e25a4b5622d47c71d9c2340166f2e2 README
+SHA1 4b05788cfb7815a239701876be81c37ac1639c7f README.md
SHA1 d7d40bb798451e792f15d35a982d3c825edbffaf examples/die_propagate.pl
SHA1 2c87f33181282c165edaf2d97f2d6860b36a7942
examples/eval_throw_given_when_default.pl
SHA1 236bf6dbe47a773121388fa1063e3b3376c71f3b
examples/eval_throw_if_elsif_else.pl
@@ -32,9 +32,9 @@
SHA1 92c82ef9cf175b34aa7b5358fea18310ca8a39de examples/ignore_package.pl
SHA1 2c87f33181282c165edaf2d97f2d6860b36a7942 examples/try_catch.pl
SHA1 ba8bd18d332c6059739006a11c8d683745432ca0
examples/try_tiny_try_catch_given_when.pl
-SHA1 3b9ef490f26d0dcc1e7e185bac1e02fc4ab06ff3
examples/trycatch_try_catch_given_when.pl
+SHA1 205d57b30662122a81471bdae528f2b37e34562f
examples/trycatch_try_catch_given_when.pl
SHA1 597999789e1945c3781bcb71b90b5d91b99b0844
examples/trycatch_try_catch_where.pl
-SHA1 16b7d6fa391eff4119a405a570be6c2c4d4b00ac lib/Exception/Base.pm
+SHA1 cedb17b1af72b590c62ab6450e566c5101f23ce7 lib/Exception/Base.pm
SHA1 c21578f4a722dbe8e302a27deaaa2ce5f68c5f9b t/all_tests.t
SHA1 7fd6e2397259525641d03b6c8199b4e4c0e2dda7 t/test.pl
SHA1 bde638afcba7cad2d37c937ece9bc958f1531b79 t/tlib/Exception/BaseTest.pm
@@ -42,7 +42,7 @@
SHA1 e1f0ce1a6f86fd8217e5bdb2a800dccf2258d60c
t/tlib/Exception/BaseTest/MissingVersion.pm
SHA1 b8f9777c0a7937d604a7c09651ccb535b47df1b4
t/tlib/Exception/BaseTest/PurePackage.pm
SHA1 f3dacb75c97eb51afc8f56bf3c159bbcdd37ecdf
t/tlib/Exception/BaseTest/SyntaxError.pm
-SHA1 607c42070c6148049dbfc37353be60a7aedaf0fc xt/benchmark.pl
+SHA1 4727a98aa719640558445bb31d4e1426a7c9b0c9 xt/benchmark.pl
SHA1 f871a7efeb59ed4790d35e9f84ec95c5a0951487 xt/benchmark_fail.pl
SHA1 f4caa505b58b645e503948c69f99a16b870f3d9d xt/benchmark_ok.pl
SHA1 90353a99ac0f719b6f3e58029804d8556cedc2ab xt/check_changes.t
@@ -58,19 +58,29 @@
SHA1 6e7f9dde7560793bcb40acc41561e07d163ad6d1 xt/minimumversion.t
SHA1 1a1cd76027c4cc73ec56beadaf56680bbac1fd4a xt/no_tabs.t
SHA1 e8daa0c73cfc304c240fad2d2c2b1b628175a89d xt/perlcritic.t
-SHA1 0b7354108fb0d5e5637aef789d5378d0a6ad30a0 xt/perlcriticrc
+SHA1 473f4190b7e0a7a0f648c9919512e4c5a46cfc55 xt/perlcriticrc
SHA1 2c579b58def8daec94f41b628ac81c256faaa2b1 xt/pod.t
SHA1 46aa111935ff192343c30b72d28da1a71ef4abf0 xt/pod_coverage.t
SHA1 bef7d46eb5cbc3e67956d4e823ec199f41ab9268 xt/pod_spell.t
SHA1 1f5c0289a9fb4a887572dd912c6fc5a629fbef41 xt/pod_spellrc
SHA1 87cb53d4ad0162a872d5c70013fc41719e030555 xt/pod_syntax.t
SHA1 f2dd15ffc2836703f46f2622702e1676891eed21 xt/portability_files.t
-SHA1 a79828d763b5aa2cc4bcf36ffb7d7879d3e9b7fd xt/profile_eval.pl
+SHA1 e46b18dc42d53b99bcd104ba100de1620b9fe7fd xt/profile_eval.pl
SHA1 a38994922fda6d64e2ee75198fadc464a221fea9 xt/signature.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.12 (GNU/Linux)
+Version: GnuPG v1
-iEYEARECAAYFAlGh0V0ACgkQhMHHe8CxCls25ACfX+V3GvJdKQZXF88d0MVbtQ/o
-fUwAoOS/LnZYT1AOhvWTNNB6fsiBTLRr
-=vbQu
+iQIcBAEBAgAGBQJWTcXxAAoJEFZiF/PEOVycWEIP/REdoK5dzgr3UcPutBpO6H05
+6qPiR0UCkzmzz7JNqeVJKHGv9WsrhqQFqG2dWqBqLJyeTtZpvu2xNH+pmYsl/hCF
+NpSPTj/vNsCRTjtJUwjush7hyqrD5niKVF6ZlJTCSebCQTSJi2/UYwDY59tYjXGf
+JQgejzNnTQsVkjy8o4bAhg6MIKbj48ZuXle70es6p5TaahIoPaJ/DM63sQcMCPZO
+k3RM+iARaD4GqyEPJ7fj75JNkkg4YKx3wFkOCLL4LajcDbFwCtjZfLSlWZBQ72k5
+6cpPe1DLhiiwuBulFMcYGYnqRKqcrpQ9PeVnEihiY422s9xb3e0DP5VtjYCdaVXT
+F9ZWnvtGbhfLo4gOOmfuJVQ93+q2p9jnVnUpN9dE9gVgSWIju17MluS4cXDu7087
+f5g8RT/j5/g4uqOpkdf3V4maEhnoEDkP+mhyp2rFg32nmMz56dUTw9dRjVL1Ddiv
+TJd3OE16T4qjnNfMsyaTBoaHozuRjuPa/i3o5mVJwcv3rvmeAyTWJSItBEsE2JMB
+L1cI/aTkRU1aG8LhIdoCx1LJy8qWo2PysyzcM9ajyyoyOe34MBZtuTVq8MZ5HIBE
+vdGIzdkktRiXhNe4fnezLGQzNB9yO5Z64IkEWokdOfKP19oLFZ6BLQDD9JeYSoiI
+5cgUPgIeYAiVJDWDw7Sr
+=4Cfi
-----END PGP SIGNATURE-----
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Exception-Base-0.25/examples/trycatch_try_catch_given_when.pl
new/Exception-Base-0.2501/examples/trycatch_try_catch_given_when.pl
--- old/Exception-Base-0.25/examples/trycatch_try_catch_given_when.pl
2013-05-26 11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/examples/trycatch_try_catch_given_when.pl
2015-11-19 13:52:01.000000000 +0100
@@ -7,6 +7,8 @@
use strict;
use warnings;
+use experimental 'switch';
+
use Exception::Base
'Exception::My';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/lib/Exception/Base.pm
new/Exception-Base-0.2501/lib/Exception/Base.pm
--- old/Exception-Base-0.25/lib/Exception/Base.pm 2013-05-26
11:09:49.000000000 +0200
+++ new/Exception-Base-0.2501/lib/Exception/Base.pm 2015-11-19
13:52:01.000000000 +0100
@@ -154,9 +154,8 @@
use strict;
use warnings;
-our $VERSION = '0.25';
+our $VERSION = '0.2501';
-## no critic qw(ProhibitConstantPragma RequireArgUnpacking RequireCarping
RequireCheckingReturnValueOfEval RequireInitializationForLocalVars)
# Safe operations on symbol stash
BEGIN {
@@ -1117,7 +1116,6 @@
}
else {
# Recover exception from $@ and clear it
- ## no critic qw(RequireLocalizedPunctuationVars)
$e = $@;
$@ = '';
};
@@ -1227,7 +1225,7 @@
=cut
# Smart matching.
-sub matches { ## no critic qw(ProhibitExcessComplexity)
+sub matches {
my ($self, $that) = @_;
my @args;
@@ -1320,7 +1318,6 @@
$key = $default_attribute;
};
- ## no critic qw(ProhibitCascadingIfElse)
if ($key eq '-isa') {
if (ref $val eq 'ARRAY') {
my $arrret = 0;
@@ -1362,7 +1359,7 @@
local $_ = ref $self->{$key} eq 'ARRAY'
? sprintf(
@{$self->{$key}}[0],
- @{$self->{$key}}[1..@{$self->{$key}}]
+ @{$self->{$key}}[1..$#{$self->{$key}}]
)
: $self->{$key};
if (ref $arrval eq 'CODE') {
@@ -1393,7 +1390,7 @@
local $_ = ref $self->{$key} eq 'ARRAY'
? sprintf(
@{$self->{$key}}[0],
- @{$self->{$key}}[1..@{$self->{$key}}]
+ @{$self->{$key}}[1..$#{$self->{$key}}]
)
: $self->{$key};
@@ -1613,7 +1610,7 @@
my ($self) = @_;
return map { ref $_ eq 'ARRAY'
- ? sprintf(@$_[0], @$_[1..@$_])
+ ? sprintf(@$_[0], @$_[1..$#$_])
: $_ }
grep { defined $_ and (ref $_ or $_ ne '') }
map { $self->{$_} }
@@ -1664,7 +1661,6 @@
my @caller_stack;
my $level = 1;
- ## no critic qw(ProhibitMultiplePackages ProhibitPackageVars)
while (my @c = do { package DB; caller($level++) }) {
# Skip own package
next if ! defined $Isa_Package{$c[0]} ? $Isa_Package{$c[0]} = do {
local $@; local $SIG{__DIE__}; eval { $c[0]->isa(__PACKAGE__) } } :
$Isa_Package{$c[0]};
@@ -1799,7 +1795,6 @@
$arg = "\"$arg\"" unless $arg =~ /^-?[\d.]+\z/;
- ## no critic qw(ProhibitNoWarnings)
no warnings 'once', 'utf8'; # can't disable critic for utf8...
if (not defined *utf8::is_utf{CODE} or utf8::is_utf8($arg)) {
$arg = join('', map { $_ > 255
@@ -1822,7 +1817,6 @@
my (undef, $str, $max) = @_;
$max = 0 unless defined $max;
if ($max > 2 and $max < length($str)) {
- ## no critic qw(ProhibitLvalueSubstr)
substr($str, $max - 3) = '...';
};
@@ -2101,7 +2095,6 @@
};
# Create the new package
- ## no critic qw(ProhibitCommaSeparatedStatements)
*{_qualify_to_ref("${package}::VERSION")} = \$version;
*{_qualify_to_ref("${package}::ISA")} = [ $isa ];
*{_qualify_to_ref("${package}::ATTRS")} = sub () {
@@ -2114,7 +2107,6 @@
# Module initialization
-## no critic qw(ProtectPrivateSubs)
BEGIN {
__PACKAGE__->_make_accessors;
__PACKAGE__->_make_caller_info_accessors;
@@ -2124,54 +2116,56 @@
1;
-=begin umlwiki
+=begin plantuml
-= Class Diagram =
-
-[ <<exception>>
- Exception::Base
- -----------------------------------------------------------------------------
- +ignore_class : ArrayRef {new}
- +ignore_level : Int = 0 {new}
- +ignore_package : ArrayRef {new}
- +max_arg_len : Int = 64 {new}
- +max_arg_nums : Int = 8 {new}
- +max_eval_len : Int = 0 {new}
- +message : Str|ArrayRef[Str] = "Unknown exception" {new}
- +value : Int = 0 {new}
- +verbosity : Int = 2 {new}
- +caller_stack : ArrayRef
- +egid : Int
- +euid : Int
- +gid : Int
- +pid : Int
- +propagated_stack : ArrayRef
- +tid : Int
- +time : Int
- +uid : Int
- #defaults : HashRef
- #default_attribute : Str = "message"
- #numeric_attribute : Str = "value"
- #eval_attribute : Str = "message"
- #string_attributes : ArrayRef[Str] = ["message"]
- -----------------------------------------------------------------------------
- <<create>> +new( args : Hash )
- <<create>> +throw( args : Hash = undef )
- <<create>> +throw( message : Str, args : Hash = undef )
- +catch() : Exception::Base
- +catch( variable : Any ) : Exception::Base
- +matches( that : Any ) : Bool {overload="~~"}
- +to_string() : Str {overload='""'}
- +to_number() : Num {overload="0+"}
- +to_bool() : Bool {overload="bool"}
- +get_caller_stacktrace() : Array[Str]|Str
- +PROPAGATE()
- #_collect_system_data()
- #_make_accessors() {init}
- #_make_caller_info_accessors() {init}
- <<constant>> +ATTRS() : HashRef ]
+class Exception::Base <<exception>> {
+ +ignore_class : ArrayRef = []
+ +ignore_level : Int = 0
+ +ignore_package : ArrayRef = []
+ +max_arg_len : Int = 64
+ +max_arg_nums : Int = 8
+ +max_eval_len : Int = 0
+ +message : Str|ArrayRef[Str] = "Unknown exception"
+ +value : Int = 0
+ +verbosity : Int = 2
+ ..
+ +caller_stack : ArrayRef
+ +egid : Int
+ +euid : Int
+ +gid : Int
+ +pid : Int
+ +propagated_stack : ArrayRef
+ +tid : Int
+ +time : Int
+ +uid : Int
+ ..
+ #defaults : HashRef
+ #default_attribute : Str = "message"
+ #numeric_attribute : Str = "value"
+ #eval_attribute : Str = "message"
+ #string_attributes : ArrayRef[Str] = ["message"]
+ ==
+ +new( args : Hash ) <<create>>
+ +throw( args : Hash = undef ) <<create>>
+ +throw( message : Str, args : Hash = undef ) <<create>>
+ ..
+ +catch() : Exception::Base
+ +catch( variable : Any ) : Exception::Base
+ +matches( that : Any ) : Bool {overload="~~"}
+ +to_string() : Str {overload='""'}
+ +to_number() : Num {overload="0+"}
+ +to_bool() : Bool {overload="bool"}
+ +get_caller_stacktrace() : Array[Str]|Str
+ +PROPAGATE()
+ ..
+ +ATTRS() : HashRef <<constant>>
+ ..
+ #_collect_system_data()
+ #_make_accessors() <<static>>
+ #_make_caller_info_accessors() <<static>>
+}
-=end umlwiki
+=end plantuml
=head1 SEE ALSO
@@ -2358,7 +2352,7 @@
=head1 LICENSE
-Copyright (c) 2007-2010, 2012-2013 Piotr Roszatycki <dex...@cpan.org>.
+Copyright (c) 2007-2015 Piotr Roszatycki <dex...@cpan.org>.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/xt/benchmark.pl
new/Exception-Base-0.2501/xt/benchmark.pl
--- old/Exception-Base-0.25/xt/benchmark.pl 2013-05-26 11:09:49.000000000
+0200
+++ new/Exception-Base-0.2501/xt/benchmark.pl 2015-11-19 13:52:01.000000000
+0100
@@ -33,7 +33,7 @@
'10_TryTiny' => { desc => 'Try::Tiny' },
);
-foreach my $scenario qw{ ok fail } {
+foreach my $scenario (qw{ ok fail }) {
open my $fh, '-|', "$^X xt/benchmark_$scenario.pl " . ($ARGV[0] || -1) or
die;
while ($_ = <$fh>) {
print;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/xt/perlcriticrc
new/Exception-Base-0.2501/xt/perlcriticrc
--- old/Exception-Base-0.25/xt/perlcriticrc 2013-05-26 11:09:49.000000000
+0200
+++ new/Exception-Base-0.2501/xt/perlcriticrc 2015-11-19 13:52:01.000000000
+0100
@@ -2,12 +2,19 @@
severity = 3
verbose = 4
+[-BuiltinFunctions::ProhibitLvalueSubstr]
+
[ControlStructures::ProhibitCascadingIfElse]
max_elsif = 5
+[-ErrorHandling::RequireCarping]
+[-ErrorHandling::RequireCheckingReturnValueOfEval]
+
[Modules::ProhibitExcessMainComplexity]
max_mccabe = 30
+[-Modules::ProhibitMultiplePackages]
+
[NamingConventions::ProhibitAmbiguousNames]
forbid = last set left right no abstract contract record second
@@ -18,12 +25,11 @@
minimum_regex_length_to_complain_about = 75
[Subroutines::ProhibitExcessComplexity]
-max_mccabe = 40
+max_mccabe = 100
[-Subroutines::ProhibitSubroutinePrototypes]
-[Subroutines::RequireArgUnpacking]
-short_subroutine_statements = 2
+[-Subroutines::RequireArgUnpacking]
[TestingAndDebugging::ProhibitNoStrict]
allow = vars subs refs
@@ -33,3 +39,12 @@
[TestingAndDebugging::ProhibitProlongedStrictureOverride]
statements = 12
+
+[-ValuesAndExpressions::ProhibitConstantPragma]
+
+[Variables::ProhibitPackageVars]
+packages = DB
+
+[-Variables::RequireInitializationForLocalVars]
+
+[-Variables::RequireLocalizedPunctuationVars]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Exception-Base-0.25/xt/profile_eval.pl
new/Exception-Base-0.2501/xt/profile_eval.pl
--- old/Exception-Base-0.25/xt/profile_eval.pl 2013-05-26 11:09:49.000000000
+0200
+++ new/Exception-Base-0.2501/xt/profile_eval.pl 2015-11-19
13:52:01.000000000 +0100
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -d:DProf
+#!/usr/bin/perl -d:NYTProf
use lib 'lib', '../lib';
use Exception::Base;
@@ -11,4 +11,4 @@
}
}
-print "tmon.out data collected. Call dprofpp\n";
+print "nytprof.out data collected. Call nytprofhtml --open\n";
++++++ cpanspec.yml ++++++
---
#description_paragraphs: 3
#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_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
