Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Sub-HandlesVia for openSUSE:Factory checked in at 2022-10-06 07:41:27 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Sub-HandlesVia (Old) and /work/SRC/openSUSE:Factory/.perl-Sub-HandlesVia.new.2275 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Sub-HandlesVia" Thu Oct 6 07:41:27 2022 rev:7 rq:1007966 version:0.037 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Sub-HandlesVia/perl-Sub-HandlesVia.changes 2022-09-09 18:29:28.837260550 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Sub-HandlesVia.new.2275/perl-Sub-HandlesVia.changes 2022-10-06 07:41:36.412607531 +0200 @@ -1,0 +2,14 @@ +Tue Sep 27 03:08:13 UTC 2022 - Tina M??ller <timueller+p...@suse.de> + +- updated to 0.037 + see /usr/share/doc/packages/perl-Sub-HandlesVia/Changes + + 0.037 2022-09-26 + + [ Bug Fixes ] + - Fix test case broken by Type::Tiny v2. + Peter Mottram++ + - Hash:set shouldn't hardcode use of Carp::croak. Instead a CodeGenerator + should decide how to deal with error messages. + +------------------------------------------------------------------- Old: ---- Sub-HandlesVia-0.036.tar.gz New: ---- Sub-HandlesVia-0.037.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Sub-HandlesVia.spec ++++++ --- /var/tmp/diff_new_pack.VVouXT/_old 2022-10-06 07:41:36.916608653 +0200 +++ /var/tmp/diff_new_pack.VVouXT/_new 2022-10-06 07:41:36.920608662 +0200 @@ -18,7 +18,7 @@ %define cpan_name Sub-HandlesVia Name: perl-Sub-HandlesVia -Version: 0.036 +Version: 0.037 Release: 0 License: Artistic-1.0 OR GPL-1.0-or-later Summary: Alternative handles_via implementation ++++++ Sub-HandlesVia-0.036.tar.gz -> Sub-HandlesVia-0.037.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/COPYRIGHT new/Sub-HandlesVia-0.037/COPYRIGHT --- old/Sub-HandlesVia-0.036/COPYRIGHT 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/COPYRIGHT 2022-09-26 10:47:56.000000000 +0200 @@ -31,6 +31,7 @@ lib/Sub/HandlesVia/Toolkit/Mouse.pm.mite.pm lib/Sub/HandlesVia/Toolkit/Plain.pm lib/Sub/HandlesVia/Toolkit/Plain.pm.mite.pm + t/00begin.t t/02moo.t t/03moo_mxtt.t t/04moose.t @@ -93,8 +94,7 @@ Copyright: Copyright 2022 Toby Inkster. License: GPL-1.0+ or Artistic-1.0 -Files: t/00begin.t - t/02moo/role.t +Files: t/02moo/role.t t/02moo/trait_array.t t/02moo/trait_bool.t t/02moo/trait_code.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/CREDITS new/Sub-HandlesVia-0.037/CREDITS --- old/Sub-HandlesVia-0.036/CREDITS 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/CREDITS 2022-09-26 10:47:56.000000000 +0200 @@ -1,3 +1,6 @@ Maintainer: - Toby Inkster (TOBYINK) <toby...@cpan.org> +Thanks: +- Peter Mottram (SYSPETE) <sysp...@cpan.org> + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/Changes new/Sub-HandlesVia-0.037/Changes --- old/Sub-HandlesVia-0.036/Changes 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/Changes 2022-09-26 10:47:56.000000000 +0200 @@ -6,6 +6,14 @@ Bug tracker: <https://github.com/tobyink/p5-sub-handlesvia/issues> Maintainer: Toby Inkster (TOBYINK) <toby...@cpan.org> +0.037 2022-09-26 + + [ Bug Fixes ] + - Fix test case broken by Type::Tiny v2. + Peter Mottram++ + - Hash:set shouldn't hardcode use of Carp::croak. Instead a CodeGenerator + should decide how to deal with error messages. + 0.036 2022-08-26 [ Bug Fixes ] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/META.json new/Sub-HandlesVia-0.037/META.json --- old/Sub-HandlesVia-0.036/META.json 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/META.json 2022-09-26 10:47:56.000000000 +0200 @@ -72,102 +72,102 @@ "provides" : { "Sub::HandlesVia" : { "file" : "lib/Sub/HandlesVia.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::CodeGenerator" : { "file" : "lib/Sub/HandlesVia/CodeGenerator.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Handler" : { "file" : "lib/Sub/HandlesVia/Handler.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Handler::CodeRef" : { "file" : "lib/Sub/HandlesVia/Handler.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Handler::Traditional" : { "file" : "lib/Sub/HandlesVia/Handler.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary::Array" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary/Array.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary::Bool" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary/Bool.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary::Code" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary/Code.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary::Counter" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary/Counter.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary::Hash" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary/Hash.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary::Number" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary/Number.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary::Scalar" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::HandlerLibrary::String" : { "file" : "lib/Sub/HandlesVia/HandlerLibrary/String.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Mite" : { "file" : "lib/Sub/HandlesVia/Mite.pm" }, "Sub::HandlesVia::Toolkit" : { "file" : "lib/Sub/HandlesVia/Toolkit.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Mite" : { "file" : "lib/Sub/HandlesVia/Toolkit/Mite.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Moo" : { "file" : "lib/Sub/HandlesVia/Toolkit/Moo.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Moose" : { "file" : "lib/Sub/HandlesVia/Toolkit/Moose.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Moose::PackageTrait" : { "file" : "lib/Sub/HandlesVia/Toolkit/Moose.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Moose::RoleTrait" : { "file" : "lib/Sub/HandlesVia/Toolkit/Moose.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Mouse" : { "file" : "lib/Sub/HandlesVia/Toolkit/Mouse.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Mouse::PackageTrait" : { "file" : "lib/Sub/HandlesVia/Toolkit/Mouse.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Mouse::RoleTrait" : { "file" : "lib/Sub/HandlesVia/Toolkit/Mouse.pm", - "version" : "0.036" + "version" : "0.037" }, "Sub::HandlesVia::Toolkit::Plain" : { "file" : "lib/Sub/HandlesVia/Toolkit/Plain.pm", - "version" : "0.036" + "version" : "0.037" } }, "release_status" : "stable", @@ -186,6 +186,6 @@ }, "x_identifier" : "http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/project" }, - "version" : "0.036", + "version" : "0.037", "x_serialization_backend" : "JSON::PP version 4.09" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/META.yml new/Sub-HandlesVia-0.037/META.yml --- old/Sub-HandlesVia-0.036/META.yml 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/META.yml 2022-09-26 10:47:56.000000000 +0200 @@ -28,78 +28,78 @@ provides: Sub::HandlesVia: file: lib/Sub/HandlesVia.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::CodeGenerator: file: lib/Sub/HandlesVia/CodeGenerator.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Handler: file: lib/Sub/HandlesVia/Handler.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Handler::CodeRef: file: lib/Sub/HandlesVia/Handler.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Handler::Traditional: file: lib/Sub/HandlesVia/Handler.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary: file: lib/Sub/HandlesVia/HandlerLibrary.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary::Array: file: lib/Sub/HandlesVia/HandlerLibrary/Array.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary::Bool: file: lib/Sub/HandlesVia/HandlerLibrary/Bool.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary::Code: file: lib/Sub/HandlesVia/HandlerLibrary/Code.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary::Counter: file: lib/Sub/HandlesVia/HandlerLibrary/Counter.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary::Hash: file: lib/Sub/HandlesVia/HandlerLibrary/Hash.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary::Number: file: lib/Sub/HandlesVia/HandlerLibrary/Number.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary::Scalar: file: lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::HandlerLibrary::String: file: lib/Sub/HandlesVia/HandlerLibrary/String.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Mite: file: lib/Sub/HandlesVia/Mite.pm Sub::HandlesVia::Toolkit: file: lib/Sub/HandlesVia/Toolkit.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Mite: file: lib/Sub/HandlesVia/Toolkit/Mite.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Moo: file: lib/Sub/HandlesVia/Toolkit/Moo.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Moose: file: lib/Sub/HandlesVia/Toolkit/Moose.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Moose::PackageTrait: file: lib/Sub/HandlesVia/Toolkit/Moose.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Moose::RoleTrait: file: lib/Sub/HandlesVia/Toolkit/Moose.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Mouse: file: lib/Sub/HandlesVia/Toolkit/Mouse.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Mouse::PackageTrait: file: lib/Sub/HandlesVia/Toolkit/Mouse.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Mouse::RoleTrait: file: lib/Sub/HandlesVia/Toolkit/Mouse.pm - version: '0.036' + version: '0.037' Sub::HandlesVia::Toolkit::Plain: file: lib/Sub/HandlesVia/Toolkit/Plain.pm - version: '0.036' + version: '0.037' recommends: Sub::Util: '0' requires: @@ -116,5 +116,5 @@ homepage: https://metacpan.org/release/Sub-HandlesVia license: http://dev.perl.org/licenses/ repository: git://github.com/tobyink/p5-sub-handlesvia.git -version: '0.036' +version: '0.037' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/Makefile.PL new/Sub-HandlesVia-0.037/Makefile.PL --- old/Sub-HandlesVia-0.036/Makefile.PL 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/Makefile.PL 2022-09-26 10:47:56.000000000 +0200 @@ -52,55 +52,55 @@ }, }, "provides" => { - "Sub::HandlesVia" => { file => "lib/Sub/HandlesVia.pm", version => 0.036 }, - "Sub::HandlesVia::CodeGenerator" => { file => "lib/Sub/HandlesVia/CodeGenerator.pm", version => 0.036 }, - "Sub::HandlesVia::Handler" => { file => "lib/Sub/HandlesVia/Handler.pm", version => 0.036 }, - "Sub::HandlesVia::Handler::CodeRef" => { file => "lib/Sub/HandlesVia/Handler.pm", version => 0.036 }, - "Sub::HandlesVia::Handler::Traditional" => { file => "lib/Sub/HandlesVia/Handler.pm", version => 0.036 }, - "Sub::HandlesVia::HandlerLibrary" => { file => "lib/Sub/HandlesVia/HandlerLibrary.pm", version => 0.036 }, + "Sub::HandlesVia" => { file => "lib/Sub/HandlesVia.pm", version => 0.037 }, + "Sub::HandlesVia::CodeGenerator" => { file => "lib/Sub/HandlesVia/CodeGenerator.pm", version => 0.037 }, + "Sub::HandlesVia::Handler" => { file => "lib/Sub/HandlesVia/Handler.pm", version => 0.037 }, + "Sub::HandlesVia::Handler::CodeRef" => { file => "lib/Sub/HandlesVia/Handler.pm", version => 0.037 }, + "Sub::HandlesVia::Handler::Traditional" => { file => "lib/Sub/HandlesVia/Handler.pm", version => 0.037 }, + "Sub::HandlesVia::HandlerLibrary" => { file => "lib/Sub/HandlesVia/HandlerLibrary.pm", version => 0.037 }, "Sub::HandlesVia::HandlerLibrary::Array" => { file => "lib/Sub/HandlesVia/HandlerLibrary/Array.pm", - version => 0.036, + version => 0.037, }, "Sub::HandlesVia::HandlerLibrary::Bool" => { file => "lib/Sub/HandlesVia/HandlerLibrary/Bool.pm", - version => 0.036, + version => 0.037, }, "Sub::HandlesVia::HandlerLibrary::Code" => { file => "lib/Sub/HandlesVia/HandlerLibrary/Code.pm", - version => 0.036, + version => 0.037, }, "Sub::HandlesVia::HandlerLibrary::Counter" => { file => "lib/Sub/HandlesVia/HandlerLibrary/Counter.pm", - version => 0.036, + version => 0.037, }, "Sub::HandlesVia::HandlerLibrary::Hash" => { file => "lib/Sub/HandlesVia/HandlerLibrary/Hash.pm", - version => 0.036, + version => 0.037, }, "Sub::HandlesVia::HandlerLibrary::Number" => { file => "lib/Sub/HandlesVia/HandlerLibrary/Number.pm", - version => 0.036, + version => 0.037, }, "Sub::HandlesVia::HandlerLibrary::Scalar" => { file => "lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm", - version => 0.036, + version => 0.037, }, "Sub::HandlesVia::HandlerLibrary::String" => { file => "lib/Sub/HandlesVia/HandlerLibrary/String.pm", - version => 0.036, + version => 0.037, }, "Sub::HandlesVia::Mite" => { file => "lib/Sub/HandlesVia/Mite.pm" }, - "Sub::HandlesVia::Toolkit" => { file => "lib/Sub/HandlesVia/Toolkit.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Mite" => { file => "lib/Sub/HandlesVia/Toolkit/Mite.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Moo" => { file => "lib/Sub/HandlesVia/Toolkit/Moo.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Moose" => { file => "lib/Sub/HandlesVia/Toolkit/Moose.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Moose::PackageTrait" => { file => "lib/Sub/HandlesVia/Toolkit/Moose.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Moose::RoleTrait" => { file => "lib/Sub/HandlesVia/Toolkit/Moose.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Mouse" => { file => "lib/Sub/HandlesVia/Toolkit/Mouse.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Mouse::PackageTrait" => { file => "lib/Sub/HandlesVia/Toolkit/Mouse.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Mouse::RoleTrait" => { file => "lib/Sub/HandlesVia/Toolkit/Mouse.pm", version => 0.036 }, - "Sub::HandlesVia::Toolkit::Plain" => { file => "lib/Sub/HandlesVia/Toolkit/Plain.pm", version => 0.036 }, + "Sub::HandlesVia::Toolkit" => { file => "lib/Sub/HandlesVia/Toolkit.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Mite" => { file => "lib/Sub/HandlesVia/Toolkit/Mite.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Moo" => { file => "lib/Sub/HandlesVia/Toolkit/Moo.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Moose" => { file => "lib/Sub/HandlesVia/Toolkit/Moose.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Moose::PackageTrait" => { file => "lib/Sub/HandlesVia/Toolkit/Moose.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Moose::RoleTrait" => { file => "lib/Sub/HandlesVia/Toolkit/Moose.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Mouse" => { file => "lib/Sub/HandlesVia/Toolkit/Mouse.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Mouse::PackageTrait" => { file => "lib/Sub/HandlesVia/Toolkit/Mouse.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Mouse::RoleTrait" => { file => "lib/Sub/HandlesVia/Toolkit/Mouse.pm", version => 0.037 }, + "Sub::HandlesVia::Toolkit::Plain" => { file => "lib/Sub/HandlesVia/Toolkit/Plain.pm", version => 0.037 }, }, "release_status" => "stable", "resources" => { @@ -114,7 +114,7 @@ }, x_identifier => "http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/project", }, - "version" => 0.036, + "version" => 0.037, }; my %dynamic_config; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/SIGNATURE new/Sub-HandlesVia-0.037/SIGNATURE --- old/Sub-HandlesVia-0.036/SIGNATURE 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/SIGNATURE 2022-09-26 10:47:56.000000000 +0200 @@ -14,54 +14,54 @@ -----BEGIN PGP SIGNED MESSAGE----- Hash: RIPEMD160 -SHA256 ffc0ed068cf68e71a50d8db3713135d238f992597c4075c7421703b19478a21f COPYRIGHT -SHA256 7977c02e031153dc91d6db9d2e803671d586e59bca2c5c3dc6211f29c04d92d6 CREDITS -SHA256 77c37d805aa03b4a99d6a7eacebe3aad8ada85baa42d330725bf284cfbc3db81 Changes +SHA256 4edcf5812d8d67544313c5eb46c52512daa0173be22d2a91617ae6708c65f49d COPYRIGHT +SHA256 aff1ce328b7678c16781cf782e82b0602fe3f5b72884e99dff5452e8193e8563 CREDITS +SHA256 17cfc4e90ce2e31c2a704a1e715fd07c5f4c368d4cdb224b580dfbac6b6741ab Changes SHA256 35bc6e48ae9f06aba42a170044f623d625a4825b6c1d960959ee0e286d5e8732 INSTALL SHA256 a4f85c6f4d6e8bdd37b7ab08013e3e3bee1fe8e910e20f8f54d5025ffe40f384 LICENSE SHA256 d59f4fee598556e391b25d75db86ae231458b652395205cb1feca33160a54ebe MANIFEST -SHA256 833ed00e6bbae08c778efc1ff4c03031c2961058844100d2fa9f5116c9ee0123 META.json -SHA256 f2f4bbff5e8e2fd7ea9811722ec57e810e9dff648d2a0fc03c569cf2c59fd855 META.yml -SHA256 82dc2a3d19904a5290a1aad710fcf0bacc38a7ff07d475f6ca7d81a320fd0338 Makefile.PL +SHA256 179f2860d34a97f3ac9b0a8e22429cc550175139b2c59d12a6352378150d7ad9 META.json +SHA256 86b00dcb9906e5e182a8d9a2b4a972d435c1caf85008e91c2e317e8939f7be72 META.yml +SHA256 b85641d788157f51c1c130b45b3b3a211a5b66026679ac6aabd683797317046b Makefile.PL SHA256 6ea77e6c3c8ac3d99730ee9c3e06542d700cadabc30f2fc5ad34549f4bc5fece README SHA256 ba056c60f1cf17808ec8d0b21111edb072b7200d69927070f0a4172de9e6df89 dist.ini -SHA256 ce5baf3e168b8d31dec2c5cd3e78c55f2fd7fde7efff3d1238afbde459fac3c6 doap.ttl -SHA256 632556895c4617760a00c93869834e3634da6400cd81684e5757c2f49ee4a6ad lib/Sub/HandlesVia.pm -SHA256 445e3177727184e93bbf5dd1063c365e03a68c417f921eca937c5a6b0b0afd9d lib/Sub/HandlesVia/CodeGenerator.pm -SHA256 73c9d9dc139e64558b596fd775e580000de1ac713099e661c7924c49fe3028fa lib/Sub/HandlesVia/CodeGenerator.pm.mite.pm -SHA256 7603906dda677d779a7cf16d819abcd0afd2f5b5175849b71a7209e5e8f1e084 lib/Sub/HandlesVia/Handler.pm -SHA256 5f138956d004b03e4d9a8033add5dd19daec004281c2da6f60aedb55efff205b lib/Sub/HandlesVia/Handler.pm.mite.pm -SHA256 6a7e6c2c0e23dd696c85a652fd0d70660872f8bbee7bb2b8e922f9caa215fe6e lib/Sub/HandlesVia/HandlerLibrary.pm -SHA256 a5f67acbbe5df719104b25b618cd8d55c66251f86325345899e1d65fb98c5ece lib/Sub/HandlesVia/HandlerLibrary/Array.pm +SHA256 1cc2000bda4eb6dfa0480b4637d5ec14977903ea9bc15fabe665e68eb144422b doap.ttl +SHA256 c19730ab77256f62b048a288fbe5c50998aeb3fa4fd61940b7159c43e563a549 lib/Sub/HandlesVia.pm +SHA256 23bf5a32e0997446465a6dbd00a950617a99bdeed36a1f9bf2c73f5e6a9b4b05 lib/Sub/HandlesVia/CodeGenerator.pm +SHA256 78c0ad8f08479fe722832f67d454a47e12311f916010ce57d975e50e062658e7 lib/Sub/HandlesVia/CodeGenerator.pm.mite.pm +SHA256 eff8592a2b9e99b1acea202debe505c4daf77e98c113a228c7f5ab053ae91453 lib/Sub/HandlesVia/Handler.pm +SHA256 5729d4f13cbc70b5e5fccf5d541dd45827f0690784fdef2952158f22ba47bd79 lib/Sub/HandlesVia/Handler.pm.mite.pm +SHA256 9fda403a30663749d22225b4f43e2c5fd89870f503f3435cc0cdb288517b40ec lib/Sub/HandlesVia/HandlerLibrary.pm +SHA256 a3378a50956e485c78f8460fdf787b8ebf38a209c3f9e137fbd6e3c4d08bff2d lib/Sub/HandlesVia/HandlerLibrary/Array.pm SHA256 cf60a2aff9e5f3b1d1c6c15753de44228d17f68c202a48f6f3e0596859e1e500 lib/Sub/HandlesVia/HandlerLibrary/Array.pod -SHA256 203d17a545743dc84193487f74d5276e55311d2ccb66e9b29c5e3d89449dbc29 lib/Sub/HandlesVia/HandlerLibrary/Bool.pm +SHA256 bfb3fb1155cebd14082568fddbd3f80d301a2cc709d7028e730a38f003fe4d87 lib/Sub/HandlesVia/HandlerLibrary/Bool.pm SHA256 b364df1453e94807beab1bf7aa59ede52f6278b89467d7ef211a13eed91e1d6b lib/Sub/HandlesVia/HandlerLibrary/Bool.pod -SHA256 6a2535c56b551f887755b28a9ed1a33bfe701424a23196b343fc96badc06ec37 lib/Sub/HandlesVia/HandlerLibrary/Code.pm +SHA256 ee3c3fa77af1b578b1bb5747c9cb4bb11ba74a3aa2ea1dbefa6984db6610925b lib/Sub/HandlesVia/HandlerLibrary/Code.pm SHA256 1d2283849fef32fe2adee886e0ea97eda44a6610e28f6a6e35339d8cb4e5c239 lib/Sub/HandlesVia/HandlerLibrary/Code.pod -SHA256 a401a0639419a29f897ad63f2f1ac5db508bd734cb0a8b8c26848224a3b5d096 lib/Sub/HandlesVia/HandlerLibrary/Counter.pm +SHA256 f32a7c1fb5067feb2e66f97ef26adbd687a09231464d380f627c06355797fb39 lib/Sub/HandlesVia/HandlerLibrary/Counter.pm SHA256 0e4960e3e6bf46c6043da8d1dee8dc46c94b073bb997ef73195391bff9f8323f lib/Sub/HandlesVia/HandlerLibrary/Counter.pod -SHA256 a218aa43f3f6cb560c7596b6f775b75e8a4b251cba6cdd25f87d2af36726af3b lib/Sub/HandlesVia/HandlerLibrary/Hash.pm +SHA256 cbdaaaa4d1e374bcba278d3ed882327d8116d994ef1a3bbe0df22596258a4149 lib/Sub/HandlesVia/HandlerLibrary/Hash.pm SHA256 fd8fce36344aaff310895854a18d4200999723499665bc534b111d15ad4eaa74 lib/Sub/HandlesVia/HandlerLibrary/Hash.pod -SHA256 145dbcd289f29043164d4910c83e030f09fe5d48f1ab0e180b878daa960bd495 lib/Sub/HandlesVia/HandlerLibrary/Number.pm +SHA256 526e72dfe3d15d2a3cb73b5ee6c7331e305d793465de6c610d20d0c9eed7ca12 lib/Sub/HandlesVia/HandlerLibrary/Number.pm SHA256 63e76521c76c1d15cce086eebc636b408342afa20fa863f2f5d27e2c1b4aba91 lib/Sub/HandlesVia/HandlerLibrary/Number.pod -SHA256 9239ea5f3bcf6a9e12a0eb1c897f53ed31efc2afb8f8e083139ed963aa28d663 lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm +SHA256 56ae60adc50db9cc931532761c6692d620ae2aa8ef35265dfbdf6f1704500e93 lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm SHA256 f729f7562a305cbd9d566aa9dda983370d4ff64f284ac8b548ae2c1436a021ef lib/Sub/HandlesVia/HandlerLibrary/Scalar.pod -SHA256 8fb3cc1a236a3fa88f144d506e83a97dd11f609ea09c36c0df771f70c4c2813b lib/Sub/HandlesVia/HandlerLibrary/String.pm +SHA256 7bf6652075205f8668a689ae764f4ee138db75dff820f10b707ecec0ca47418d lib/Sub/HandlesVia/HandlerLibrary/String.pm SHA256 28f9a27d4d28931c5d4a395d4c068003b6c63c298d83dd765f56d40cfdc1defa lib/Sub/HandlesVia/HandlerLibrary/String.pod SHA256 4d98dcac52211ccdfe11c675c93ab0823bad2ff4dd85cfca3dd0c707f4785055 lib/Sub/HandlesVia/Mite.pm -SHA256 8b0b67313e789d7b0cb1c45d4b40a971ce2827f0da2f029ce50e025a613d1987 lib/Sub/HandlesVia/Toolkit.pm -SHA256 19cb93dfa3657c1c8cc8f07006f928bad3c2bb85e478b197e621d3a4fd011ef3 lib/Sub/HandlesVia/Toolkit.pm.mite.pm -SHA256 bd660d7dd5508ab7b7ab4ed960fc4e1a2f4cdf0fd8eff6b1d726d3435f430cd2 lib/Sub/HandlesVia/Toolkit/Mite.pm -SHA256 6f33ac3eaa17f6288c1c9e5e69d8e6325f71485b63f1979135341b6522eb59a1 lib/Sub/HandlesVia/Toolkit/Mite.pm.mite.pm -SHA256 868b4534bffa29f372a893e0ad7eb2397dec2581a5fe9a5285f7afcb6c28e6ac lib/Sub/HandlesVia/Toolkit/Moo.pm -SHA256 1de29a5acac7af3f6319268f75616b7073350207c41b215447f64f7766cf9da6 lib/Sub/HandlesVia/Toolkit/Moo.pm.mite.pm -SHA256 d32a048d794bfb3f48c85aa52a607436c89c26f288843fed5989fdcbff5d565b lib/Sub/HandlesVia/Toolkit/Moose.pm -SHA256 24d24ee501e3e90b8eeb645735e1649cd029885b7c7475173bbaa908d41c9847 lib/Sub/HandlesVia/Toolkit/Moose.pm.mite.pm -SHA256 d0cdfa0b7d6af95501e9d8765d9a8aac36eec79d14ed8189c797b855d3897e70 lib/Sub/HandlesVia/Toolkit/Mouse.pm -SHA256 fb6fd3bbeabbfb8bfe047b8809070b5f733857df0cdaec3c482231fec4effc2a lib/Sub/HandlesVia/Toolkit/Mouse.pm.mite.pm -SHA256 f13189733ed99299087d633674fbf550336cf2be15b1e44cd9129247d6eb6cac lib/Sub/HandlesVia/Toolkit/Plain.pm -SHA256 ba3926db4650abf403f7ecdd6963f73720e6f967239371903053167d36ace3e6 lib/Sub/HandlesVia/Toolkit/Plain.pm.mite.pm -SHA256 2078046dd5726576304630c6f0ff72da1b938007a1cb49429327b569e689f81c t/00begin.t +SHA256 334fda452525e5aa2093401d96494ad00a7840735e5d63f94e78ca28ab1fc1c8 lib/Sub/HandlesVia/Toolkit.pm +SHA256 5ece35b7b6e2fd7b2e98507672b1cf503deb6745979421936be7560930e50cef lib/Sub/HandlesVia/Toolkit.pm.mite.pm +SHA256 8ab67770d4f214c4579a0aa77786764efedab87ad2af368a171dc59668e06c10 lib/Sub/HandlesVia/Toolkit/Mite.pm +SHA256 9ddf6ca3232e362baf08163809a7767243333130b4d7626b7c60d62ee276ae4f lib/Sub/HandlesVia/Toolkit/Mite.pm.mite.pm +SHA256 8cf42ea8d9f86485d8bda2e58eccd3b225a00cc78508e7ab3d8a27834ccf602c lib/Sub/HandlesVia/Toolkit/Moo.pm +SHA256 e223ee49179cab394701f74de39c755e3ba0464c51becddf3d5de4ae952a0d4a lib/Sub/HandlesVia/Toolkit/Moo.pm.mite.pm +SHA256 334793b56480efa2004ed8f1689416a030f6a7009d2926a615f505564ba5fd4c lib/Sub/HandlesVia/Toolkit/Moose.pm +SHA256 3c3fcbef8eb6643890fa9874fdbfbee2c9bed87986fd131c6bbf8b695f6a34e7 lib/Sub/HandlesVia/Toolkit/Moose.pm.mite.pm +SHA256 2cf7a7f9d8ecd69828624bde5f5ff3181eb34a89578c140eee3269a1fcdf5df2 lib/Sub/HandlesVia/Toolkit/Mouse.pm +SHA256 7be51fadbdca6e740ff0ac7381d0abbe40861a0ca612956c10f04c2820e5ce39 lib/Sub/HandlesVia/Toolkit/Mouse.pm.mite.pm +SHA256 8ce87a3331ff8320b9d4db020b1f1a0b637e883fe4eff4f1bb23a42ae4f53e5d lib/Sub/HandlesVia/Toolkit/Plain.pm +SHA256 59e03f14f55a125cbafe56e124cb666e46a71c54c069031dea906501b9944e23 lib/Sub/HandlesVia/Toolkit/Plain.pm.mite.pm +SHA256 b2e9a673ff39da47abd0997dd246adb49f749027d513e0e4f260f67539ad740b t/00begin.t SHA256 5be3d6935e48a88ff74c38cd8a03e911b2f3d4f49ac639246e40b1e88e8fcb32 t/01basic.t SHA256 983043ae6118d9065777a811b6edc3b25d7b3b433d4817e033723fb8bb88332f t/02moo.t SHA256 02a8dc13c7451b68163d1701b4e8ca520a463c4adea8166189d15852aeaab5b5 t/02moo/role.t @@ -176,7 +176,7 @@ SHA256 e7ac6a8eb214f919ddb67cb5ec0810b0f80719f6fe09d3123dcbf19b1b0a742e t/99headtail.t -----BEGIN PGP SIGNATURE----- -iF0EAREDAB0WIQRVJKj/4+s6z4WzNujOv4Eoaip9OQUCYwjcpwAKCRDOv4Eoaip9 -OV6tAKC4AY0jn0G+YQX3jPs4fxlNRlE9YwCfWu+eU0mqUPP4mg61a42KQKWub4g= -=owTC +iF0EAREDAB0WIQRVJKj/4+s6z4WzNujOv4Eoaip9OQUCYzFnPAAKCRDOv4Eoaip9 +OQBLAKCSOHUXUUYwylu+N2KMJ6j9Lz3ZDgCggtjFdyAjZxIBSCfn5+Aq+29fvyg= +=aFeB -----END PGP SIGNATURE----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/doap.ttl new/Sub-HandlesVia-0.037/doap.ttl --- old/Sub-HandlesVia-0.036/doap.ttl 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/doap.ttl 2022-09-26 10:47:56.000000000 +0200 @@ -32,7 +32,7 @@ doap:maintainer <http://purl.org/NET/cpan-uri/person/tobyink>; doap:name "Sub-HandlesVia"; doap:programming-language "Perl"; - doap:release <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-001>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-002>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-003>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-004>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-005>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-006>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-007>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-008_000>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-008_001>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-008_002>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-008_003>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-009>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-010>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-011>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-012>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-013>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-014>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-015>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-016>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-017>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-018>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-019>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-020>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-021>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-022>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-023>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-024>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-025>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-026>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-027>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-028>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-029>, <http://purl.org/NET/cpan-uri/dist/S ub-HandlesVia/v_0-030>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-031>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-032>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-033>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-034>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-035>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-036>; + doap:release <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-001>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-002>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-003>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-004>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-005>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-006>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-007>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-008_000>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-008_001>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-008_002>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-008_003>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-009>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-010>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-011>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-012>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-013>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-014>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-015>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-016>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-017>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-018>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-019>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-020>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-021>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-022>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-023>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-024>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-025>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-026>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-027>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-028>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-029>, <http://purl.org/NET/cpan-uri/dist/S ub-HandlesVia/v_0-030>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-031>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-032>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-033>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-034>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-035>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-036>, <http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-037>; doap:repository [ a doap:GitRepository; doap:browse <https://github.com/tobyink/p5-sub-handlesvia>; @@ -713,6 +713,31 @@ doap:file-release <http://backpan.cpan.org/authors/id/T/TO/TOBYINK/Sub-HandlesVia-0.036.tar.gz>; doap:revision "0.036"^^xsd:string. +<http://purl.org/NET/cpan-uri/dist/Sub-HandlesVia/v_0-037> + a doap:Version; + dc:identifier "Sub-HandlesVia-0.037"^^xsd:string; + dc:issued "2022-09-26"^^xsd:date; + doap-changeset:changeset [ + doap-changeset:item [ + a doap-changeset:Bugfix; + rdfs:label "Hash:set shouldn't hardcode use of Carp::croak. Instead a CodeGenerator should decide how to deal with error messages."; + ], [ + a doap-changeset:Bugfix; + rdfs:label "Fix test case broken by Type::Tiny v2."; + doap-changeset:fixes <tdb:2013,https://github.com/tobyink/p5-sub-handlesvia/issues/2>; + doap-changeset:thanks <http://purl.org/NET/cpan-uri/person/syspete>; + ]; + ]; + doap-changeset:released-by <http://purl.org/NET/cpan-uri/person/tobyink>; + doap:file-release <http://backpan.cpan.org/authors/id/T/TO/TOBYINK/Sub-HandlesVia-0.037.tar.gz>; + doap:revision "0.037"^^xsd:string. + +<http://purl.org/NET/cpan-uri/person/syspete> + a foaf:Person; + foaf:name "Peter Mottram"; + foaf:nick "SYSPETE"; + foaf:page <https://github.com/SysPete>, <https://metacpan.org/author/SYSPETE>. + <http://purl.org/NET/cpan-uri/person/tobyink> a foaf:Person; foaf:mbox <mailto:toby...@cpan.org>; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/CodeGenerator.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/CodeGenerator.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/CodeGenerator.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/CodeGenerator.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::CodeGenerator; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite -all; @@ -155,6 +155,18 @@ default_is_trusted => true, ); +has generator_for_error => ( + is => ro, + isa => 'CodeRef', + builder => sub { + return sub { + my ( $gen, $error ) = @_; + sprintf 'do { require Carp; Carp::croak(%s) }', $error; + }; + }, + default_is_trusted => true, +); + has method_installer => ( is => rw, isa => 'CodeRef', @@ -199,7 +211,8 @@ $/x; my @generatable_things = qw( - slot get set default arg args argc currying usage_string self type_assertion + slot get set default arg args argc currying usage_string self + type_assertion error ); for my $thing ( @generatable_things ) { @@ -466,10 +479,10 @@ # What usage message do we want to print if wrong arity? # - my $usg = sprintf( - 'do { require Carp; Carp::croak("Wrong number of parameters; usage: ".%s) }', + my $usg = $self->generate_error( sprintf( + ' "Wrong number of parameters; usage: " . %s ', B::perlstring( $self->generate_usage_string( $method_name, $handler->usage ) ), - ); + ) ); # Insert the check into the code. # @@ -694,6 +707,7 @@ $template =~ s/\$ARG/$self->generate_arg(1)/eg; $template =~ s/\#ARG/$self->generate_argc()/eg; $template =~ s/\@ARG/$self->generate_args()/eg; + $template =~ s/???(.+?)???/$self->generate_error($1)/eg; $template =~ s/??(.+?)??/$self->generate_set($1)/eg; $template =~ s/\$DEFAULT/$self->generate_default($handler)/eg; $template =~ s/\$SELF/$self->generate_self()/eg; @@ -872,6 +886,11 @@ constraint, and a variable name. Generates code to assert that the variable value meets the type constraint, with coercion if appropriate. +=head2 C<generator_for_error> B<< CodeRef >> + +Called as a method and passed a Perl string which is an expression evaluating +to an error message. Generates code to throw the error. + =head2 C<get_is_lvalue> B<Bool> Indicates wheter the code generated by C<generator_for_get> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/CodeGenerator.pm.mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/CodeGenerator.pm.mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/CodeGenerator.pm.mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/CodeGenerator.pm.mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -390,8 +390,28 @@ $self->{"generator_for_type_assertion"} = $value; }; + # Attribute generator_for_error (type: CodeRef) + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 167 + do { + my $value = exists( $args->{"generator_for_error"} ) + ? ( + ( + do { + + package Sub::HandlesVia::Mite; + ref( $args->{"generator_for_error"} ) eq 'CODE'; + } + ) ? $args->{"generator_for_error"} : croak( + "Type check failed in constructor: %s should be %s", + "generator_for_error", "CodeRef" + ) + ) + : $self->_build_generator_for_error; + $self->{"generator_for_error"} = $value; + }; + # Attribute method_installer (type: CodeRef) - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 158 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 170 if ( exists $args->{"method_installer"} ) { do { @@ -404,26 +424,26 @@ } # Attribute is_method - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 168 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 180 $self->{"is_method"} = ( exists( $args->{"is_method"} ) ? $args->{"is_method"} : "1" ); # Attribute get_is_lvalue - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 173 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 185 $self->{"get_is_lvalue"} = ( exists( $args->{"get_is_lvalue"} ) ? $args->{"get_is_lvalue"} : "" ); # Attribute set_checks_isa - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 178 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 190 $self->{"set_checks_isa"} = ( exists( $args->{"set_checks_isa"} ) ? $args->{"set_checks_isa"} : "" ); # Attribute set_strictly - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 183 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 195 $self->{"set_strictly"} = ( exists( $args->{"set_strictly"} ) ? $args->{"set_strictly"} : "1" ); @@ -432,7 +452,7 @@ # Unrecognized parameters my @unknown = grep not( -/\A(?:attribute(?:_spec)?|coerce|env|ge(?:nerator_for_(?:arg[cs]?|currying|default|get|s(?:e(?:lf|t)|lot)|type_assertion|usage_string)|t_is_lvalue)|is(?:_method|a)|method_installer|s(?:andboxing_package|et_(?:checks_isa|strictly))|t(?:arget|oolkit))\z/ +/\A(?:attribute(?:_spec)?|coerce|env|ge(?:nerator_for_(?:arg[cs]?|currying|default|error|get|s(?:e(?:lf|t)|lot)|type_assertion|usage_string)|t_is_lvalue)|is(?:_method|a)|method_installer|s(?:andboxing_package|et_(?:checks_isa|strictly))|t(?:arget|oolkit))\z/ ), keys %{$args}; @unknown and croak( @@ -473,7 +493,7 @@ && eval { require Class::XSAccessor; Class::XSAccessor->VERSION("1.19") }; # Accessors for _override - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 163 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 175 if ($__XS) { Class::XSAccessor->import( chained => 1, @@ -640,6 +660,24 @@ }; } + # Accessors for generator_for_error + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 167 + if ($__XS) { + Class::XSAccessor->import( + chained => 1, + "getters" => { "generator_for_error" => "generator_for_error" }, + ); + } + else { + *generator_for_error = sub { + @_ == 1 + or croak( +'Reader "generator_for_error" usage: $self->generator_for_error()' + ); + $_[0]{"generator_for_error"}; + }; + } + # Accessors for generator_for_get # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 52 if ($__XS) { @@ -750,7 +788,7 @@ } # Accessors for get_is_lvalue - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 173 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 185 if ($__XS) { Class::XSAccessor->import( chained => 1, @@ -766,7 +804,7 @@ } # Accessors for is_method - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 168 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 180 if ($__XS) { Class::XSAccessor->import( chained => 1, @@ -796,7 +834,7 @@ } # Accessors for method_installer - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 158 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 170 sub method_installer { @_ > 1 ? do { @@ -828,7 +866,7 @@ } # Accessors for set_checks_isa - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 178 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 190 if ($__XS) { Class::XSAccessor->import( chained => 1, @@ -845,7 +883,7 @@ } # Accessors for set_strictly - # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 183 + # has declaration, file lib/Sub/HandlesVia/CodeGenerator.pm, line 195 if ($__XS) { Class::XSAccessor->import( chained => 1, @@ -896,6 +934,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Handler.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Handler.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Handler.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Handler.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::Handler; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite -all; @@ -273,7 +273,7 @@ package Sub::HandlesVia::Handler::Traditional; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite -all; extends 'Sub::HandlesVia::Handler'; @@ -294,7 +294,7 @@ package Sub::HandlesVia::Handler::CodeRef; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite -all; extends 'Sub::HandlesVia::Handler'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Handler.pm.mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Handler.pm.mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Handler.pm.mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Handler.pm.mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -914,6 +914,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } @@ -933,7 +938,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -1459,6 +1464,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } @@ -1478,7 +1488,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -2020,6 +2030,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Array.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Array.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Array.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Array.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary::Array; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::HandlerLibrary; our @ISA = 'Sub::HandlesVia::HandlerLibrary'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Bool.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Bool.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Bool.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Bool.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary::Bool; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::HandlerLibrary; our @ISA = 'Sub::HandlesVia::HandlerLibrary'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Code.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Code.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Code.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Code.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary::Code; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::HandlerLibrary; our @ISA = 'Sub::HandlesVia::HandlerLibrary'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Counter.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Counter.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Counter.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Counter.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary::Counter; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::HandlerLibrary; our @ISA = 'Sub::HandlesVia::HandlerLibrary'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Hash.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Hash.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Hash.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Hash.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary::Hash; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::HandlerLibrary; our @ISA = 'Sub::HandlesVia::HandlerLibrary'; @@ -325,19 +325,19 @@ prefer_shift_self => 1, template => ( 'my (@shv_params) = @ARG; ' . - 'scalar(@shv_params) % 2 and do { require Carp; Carp::croak("Wrong number of parameters; expected even-sized list of keys and values") };' . + 'scalar(@shv_params) % 2 and ???"Wrong number of parameters; expected even-sized list of keys and values"???;' . 'my (@shv_keys_idx) = grep(!($_ % 2), 0..$#shv_params); ' . 'my (@shv_values_idx) = grep(($_ % 2), 0..$#shv_params); ' . - 'grep(!defined, @shv_params[@shv_keys_idx]) and do { require Carp; Carp::croak("Undef did not pass type constraint; keys must be defined") };'. + 'grep(!defined, @shv_params[@shv_keys_idx]) and ???"Undef did not pass type constraint; keys must be defined"???;'. '"____VALIDATION_HERE____"; '. 'my %shv_tmp = %{$GET}; @shv_tmp{@shv_params[@shv_keys_idx]} = @shv_params[@shv_values_idx]; ??\\%shv_tmp??;' . 'wantarray ? @shv_tmp{@shv_params[@shv_keys_idx]} : $shv_tmp{$shv_params[$shv_keys_idx[0]]}' ), lvalue_template => ( 'my (@shv_params) = @ARG; ' . - 'scalar(@shv_params) % 2 and do { require Carp; Carp::croak("Wrong number of parameters; expected even-sized list of keys and values") };' . + 'scalar(@shv_params) % 2 and ???"Wrong number of parameters; expected even-sized list of keys and values"???;' . 'my (@shv_keys_idx) = grep(!($_ % 2), 0..$#shv_params); ' . 'my (@shv_values_idx) = grep(($_ % 2), 0..$#shv_params); ' . - 'grep(!defined, @shv_params[@shv_keys_idx]) and do { require Carp; Carp::croak("Undef did not pass type constraint; keys must be defined") };'. + 'grep(!defined, @shv_params[@shv_keys_idx]) and ???"Undef did not pass type constraint; keys must be defined"???;'. '"____VALIDATION_HERE____"; '. '@{$GET}{@shv_params[@shv_keys_idx]} = @shv_params[@shv_values_idx];' . 'wantarray ? @{$GET}{@shv_params[@shv_keys_idx]} : ($GET)->{$shv_params[$shv_keys_idx[0]]}' ), diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Number.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Number.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Number.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Number.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary::Number; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::HandlerLibrary; our @ISA = 'Sub::HandlesVia::HandlerLibrary'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/Scalar.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary::Scalar; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::HandlerLibrary; our @ISA = 'Sub::HandlesVia::HandlerLibrary'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/String.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/String.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary/String.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary/String.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary::String; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::HandlerLibrary; our @ISA = 'Sub::HandlesVia::HandlerLibrary'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/HandlerLibrary.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/HandlerLibrary.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::HandlerLibrary; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Types::Standard qw( Any Item ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::Toolkit::Mite; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite -all; extends 'Sub::HandlesVia::Toolkit'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Mite.pm.mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Mite.pm.mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Mite.pm.mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Mite.pm.mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -67,6 +67,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Moo.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Moo.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Moo.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Moo.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::Toolkit::Moo; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite; extends 'Sub::HandlesVia::Toolkit'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Moo.pm.mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Moo.pm.mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Moo.pm.mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Moo.pm.mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -44,6 +44,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Moose.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Moose.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Moose.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Moose.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::Toolkit::Moose; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite; extends 'Sub::HandlesVia::Toolkit'; @@ -156,7 +156,7 @@ package Sub::HandlesVia::Toolkit::Moose::PackageTrait; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Role::Tiny; @@ -194,7 +194,7 @@ package Sub::HandlesVia::Toolkit::Moose::RoleTrait; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Role::Tiny; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Moose.pm.mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Moose.pm.mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Moose.pm.mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Moose.pm.mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -44,6 +44,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Mouse.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Mouse.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Mouse.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Mouse.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::Toolkit::Mouse; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite; extends 'Sub::HandlesVia::Toolkit'; @@ -155,7 +155,7 @@ package Sub::HandlesVia::Toolkit::Mouse::PackageTrait; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Role::Tiny; @@ -193,7 +193,7 @@ package Sub::HandlesVia::Toolkit::Mouse::RoleTrait; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Role::Tiny; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Mouse.pm.mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Mouse.pm.mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Mouse.pm.mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Mouse.pm.mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -44,6 +44,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Plain.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Plain.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Plain.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Plain.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::Toolkit::Plain; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite; extends 'Sub::HandlesVia::Toolkit'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Plain.pm.mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Plain.pm.mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit/Plain.pm.mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit/Plain.pm.mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -44,6 +44,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit.pm 2022-09-26 10:47:56.000000000 +0200 @@ -5,7 +5,7 @@ package Sub::HandlesVia::Toolkit; our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; use Sub::HandlesVia::Mite; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit.pm.mite.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit.pm.mite.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia/Toolkit.pm.mite.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia/Toolkit.pm.mite.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ our $USES_MITE = "Mite::Class"; our $MITE_SHIM = "Sub::HandlesVia::Mite"; - our $MITE_VERSION = "0.010005"; + our $MITE_VERSION = "0.010008"; # Mite keywords BEGIN { @@ -117,6 +117,11 @@ our %DOES; return $DOES{$role} if exists $DOES{$role}; return 1 if $role eq __PACKAGE__; + if ( $INC{'Moose/Util.pm'} + and my $meta = Moose::Util::find_meta( ref $self or $self ) ) + { + $meta->can('does_role') and $meta->does_role($role) and return 1; + } return $self->SUPER::DOES($role); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia.pm new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia.pm --- old/Sub-HandlesVia-0.036/lib/Sub/HandlesVia.pm 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/lib/Sub/HandlesVia.pm 2022-09-26 10:47:56.000000000 +0200 @@ -7,7 +7,7 @@ use Exporter::Shiny qw( delegations ); our $AUTHORITY = 'cpan:TOBYINK'; -our $VERSION = '0.036'; +our $VERSION = '0.037'; sub _generate_delegations { my ($me, $name, $args, $globals) = (shift, @_); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Sub-HandlesVia-0.036/t/00begin.t new/Sub-HandlesVia-0.037/t/00begin.t --- old/Sub-HandlesVia-0.036/t/00begin.t 2022-08-26 16:46:00.000000000 +0200 +++ new/Sub-HandlesVia-0.037/t/00begin.t 2022-09-26 10:47:56.000000000 +0200 @@ -32,7 +32,6 @@ sub diag_env { require B; - require Devel::TypeTiny::Perl56Compat; my $var = shift; return diag sprintf(' $%-40s %s', $var, exists $ENV{$var} ? B::perlstring($ENV{$var}) : "undef"); }