Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-Moo for openSUSE:Factory checked in at 2023-02-01 16:38:43 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Moo (Old) and /work/SRC/openSUSE:Factory/.perl-Moo.new.32243 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Moo" Wed Feb 1 16:38:43 2023 rev:28 rq:1062254 version:2.005005 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Moo/perl-Moo.changes 2021-04-12 12:39:37.105526480 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Moo.new.32243/perl-Moo.changes 2023-02-01 16:50:03.325462757 +0100 @@ -1,0 +2,9 @@ +Fri Jan 6 03:08:26 UTC 2023 - Tina Müller <timueller+p...@suse.de> + +- updated to 2.005005 + see /usr/share/doc/packages/perl-Moo/Changes + + 2.005005 - 2023-01-05 + - drop dependency on Test::Fatal + +------------------------------------------------------------------- Old: ---- Moo-2.005004.tar.gz New: ---- Moo-2.005005.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Moo.spec ++++++ --- /var/tmp/diff_new_pack.OG31rT/_old 2023-02-01 16:50:04.237462563 +0100 +++ /var/tmp/diff_new_pack.OG31rT/_new 2023-02-01 16:50:04.285462553 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Moo # -# Copyright (c) 2021 SUSE LLC +# Copyright (c) 2023 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,10 +18,10 @@ %define cpan_name Moo Name: perl-Moo -Version: 2.005004 +Version: 2.005005 Release: 0 -Summary: Minimalist Object Orientation (with Moose compatibility) License: Artistic-1.0 OR GPL-1.0-or-later +Summary: Minimalist Object Orientation (with Moose compatibility) URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/H/HA/HAARG/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml @@ -32,7 +32,6 @@ BuildRequires: perl(Role::Tiny) >= 2.002003 BuildRequires: perl(Sub::Defer) >= 2.006006 BuildRequires: perl(Sub::Quote) >= 2.006006 -BuildRequires: perl(Test::Fatal) >= 0.003 BuildRequires: perl(Test::More) >= 0.94 Requires: perl(Class::Method::Modifiers) >= 1.10 Requires: perl(Role::Tiny) >= 2.002003 ++++++ Moo-2.005004.tar.gz -> Moo-2.005005.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/Changes new/Moo-2.005005/Changes --- old/Moo-2.005004/Changes 2021-03-29 08:40:30.000000000 +0200 +++ new/Moo-2.005005/Changes 2023-01-05 21:55:53.000000000 +0100 @@ -1,5 +1,8 @@ Revision history for Moo +2.005005 - 2023-01-05 + - drop dependency on Test::Fatal + 2.005004 - 2021-03-29 - fix file set in %INC in create_class_with_roles (RT#134845) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/LICENSE new/Moo-2.005005/LICENSE --- old/Moo-2.005004/LICENSE 2021-03-29 08:41:57.000000000 +0200 +++ new/Moo-2.005005/LICENSE 2023-01-05 21:56:15.000000000 +0100 @@ -7,7 +7,7 @@ --- The GNU General Public License, Version 1, February 1989 --- -This software is Copyright (c) 2021 by mst - Matt S. Trout (cpan:MSTROUT) <m...@shadowcat.co.uk>. +This software is Copyright (c) 2023 by mst - Matt S. Trout (cpan:MSTROUT) <m...@shadowcat.co.uk>. This is free software, licensed under: @@ -267,7 +267,7 @@ --- The Artistic License 1.0 --- -This software is Copyright (c) 2021 by mst - Matt S. Trout (cpan:MSTROUT) <m...@shadowcat.co.uk>. +This software is Copyright (c) 2023 by mst - Matt S. Trout (cpan:MSTROUT) <m...@shadowcat.co.uk>. This is free software, licensed under: @@ -287,21 +287,21 @@ - "Package" refers to the collection of files distributed by the Copyright Holder, and derivatives of that collection of files created through - textual modification. + textual modification. - "Standard Version" refers to such a Package if it has not been modified, or has been modified in accordance with the wishes of the Copyright - Holder. + Holder. - "Copyright Holder" is whoever is named in the copyright or copyrights for - the package. + the package. - "You" is you, if you're thinking about copying or distributing this Package. - "Reasonable copying fee" is whatever you can justify on the basis of media cost, duplication charges, time of people involved, and so on. (You will not be required to justify it to the Copyright Holder, but only to the - computing community at large as a market that must bear the fee.) + computing community at large as a market that must bear the fee.) - "Freely Available" means that no fee is charged for the item itself, though there may be fees involved in handling the item. It also means that recipients of the item may redistribute it under the same conditions they - received it. + received it. 1. You may make and give away verbatim copies of the source form of the Standard Version of this Package without restriction, provided that you @@ -368,7 +368,7 @@ 9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF -MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. The End diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/MANIFEST new/Moo-2.005005/MANIFEST --- old/Moo-2.005004/MANIFEST 2021-03-29 08:41:57.000000000 +0200 +++ new/Moo-2.005005/MANIFEST 2023-01-05 21:56:15.000000000 +0100 @@ -56,6 +56,7 @@ t/init-arg.t t/isa-interfere.t t/lazy_isa.t +t/lib/CaptureException.pm t/lib/ErrorLocation.pm t/lib/InlineModule.pm t/lib/TestEnv.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/META.json new/Moo-2.005005/META.json --- old/Moo-2.005004/META.json 2021-03-29 08:41:55.000000000 +0200 +++ new/Moo-2.005005/META.json 2023-01-05 21:56:15.000000000 +0100 @@ -4,7 +4,7 @@ "mst - Matt S. Trout (cpan:MSTROUT) <m...@shadowcat.co.uk>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.58, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -60,7 +60,6 @@ "Parse::CPAN::Meta" : "1.4200" }, "requires" : { - "Test::Fatal" : "0.003", "Test::More" : "0.94" } } @@ -81,7 +80,7 @@ }, "x_IRC" : "irc://irc.perl.org/#moose" }, - "version" : "2.005004", + "version" : "2.005005", "x_authority" : "cpan:MSTROUT", "x_breaks" : { "App::Commando" : "<= 0.012", @@ -91,5 +90,5 @@ "MySQL::Workbench::Parser" : "<= 0.05", "WebService::Shutterstock" : "<= 0.006" }, - "x_serialization_backend" : "JSON::PP version 4.04" + "x_serialization_backend" : "JSON::PP version 4.07" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/META.yml new/Moo-2.005005/META.yml --- old/Moo-2.005004/META.yml 2021-03-29 08:41:53.000000000 +0200 +++ new/Moo-2.005005/META.yml 2023-01-05 21:56:14.000000000 +0100 @@ -3,12 +3,11 @@ author: - 'mst - Matt S. Trout (cpan:MSTROUT) <m...@shadowcat.co.uk>' build_requires: - Test::Fatal: '0.003' Test::More: '0.94' configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.58, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -35,7 +34,7 @@ bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=Moo license: https://dev.perl.org/licenses/ repository: https://github.com/moose/Moo.git -version: '2.005004' +version: '2.005005' x_authority: cpan:MSTROUT x_breaks: App::Commando: '<= 0.012' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/Makefile.PL new/Moo-2.005005/Makefile.PL --- old/Moo-2.005004/Makefile.PL 2021-02-21 14:40:00.000000000 +0100 +++ new/Moo-2.005005/Makefile.PL 2023-01-05 21:29:11.000000000 +0100 @@ -14,7 +14,6 @@ test => { requires => { 'Test::More' => '0.94', - 'Test::Fatal' => '0.003', }, recommends => { 'Parse::CPAN::Meta' => '1.4200', diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/README new/Moo-2.005005/README --- old/Moo-2.005004/README 2021-03-29 08:41:56.000000000 +0200 +++ new/Moo-2.005005/README 2023-01-05 21:56:15.000000000 +0100 @@ -73,9 +73,11 @@ what Moo provides. "Moo" is ideal for some situations where deployment or startup time precludes using Moose and Mouse: - a command line or CGI script where fast startup is essential - code designed to be deployed as a single file via App::FatPacker - a CPAN module that may be used by others in the above situations + * A command line or CGI script where fast startup is essential + + * code designed to be deployed as a single file via App::FatPacker + + * A CPAN module that may be used by others in the above situations "Moo" maintains transparent compatibility with Moose so if you install and load Moose you can use Moo classes and roles in Moose code without diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/lib/Method/Generate/Accessor.pm new/Moo-2.005005/lib/Method/Generate/Accessor.pm --- old/Moo-2.005004/lib/Method/Generate/Accessor.pm 2021-01-11 23:27:23.000000000 +0100 +++ new/Moo-2.005005/lib/Method/Generate/Accessor.pm 2022-04-06 11:34:13.000000000 +0200 @@ -50,23 +50,34 @@ package => 'Method::Generate::Accessor::_Generated', %{ $quote_opts||{} }, }; - $spec->{allow_overwrite}++ if $name =~ s/^\+//; - croak "Must have an is" unless my $is = $spec->{is}; - if ($is eq 'ro') { + + $spec->{allow_overwrite}++ + if $name =~ s/^\+//; + + my $is = $spec->{is}; + if (!$is) { + croak "Must have an is"; + } + elsif ($is eq 'ro') { $spec->{reader} = $name unless exists $spec->{reader}; - } elsif ($is eq 'rw') { + } + elsif ($is eq 'rw') { $spec->{accessor} = $name unless exists $spec->{accessor} or ( $spec->{reader} and $spec->{writer} ); - } elsif ($is eq 'lazy') { + } + elsif ($is eq 'lazy') { $spec->{reader} = $name unless exists $spec->{reader}; $spec->{lazy} = 1; $spec->{builder} ||= '_build_'.$name unless exists $spec->{default}; - } elsif ($is eq 'rwp') { + } + elsif ($is eq 'rwp') { $spec->{reader} = $name unless exists $spec->{reader}; $spec->{writer} = "_set_${name}" unless exists $spec->{writer}; - } elsif ($is ne 'bare') { + } + elsif ($is ne 'bare') { croak "Unknown is ${is}"; } + if (exists $spec->{builder}) { if(ref $spec->{builder}) { $self->_validate_codulatable('builder', $spec->{builder}, @@ -78,28 +89,35 @@ croak "Invalid builder for $into->$name - not a valid method name" if $spec->{builder} !~ _module_name_rx; } + if (($spec->{predicate}||0) eq 1) { $spec->{predicate} = $name =~ /^_/ ? "_has${name}" : "has_${name}"; } + if (($spec->{clearer}||0) eq 1) { $spec->{clearer} = $name =~ /^_/ ? "_clear${name}" : "clear_${name}"; } + if (($spec->{trigger}||0) eq 1) { $spec->{trigger} = quote_sub('shift->_trigger_'.$name.'(@_)'); } + if (($spec->{coerce}||0) eq 1) { my $isa = $spec->{isa}; if (blessed $isa and $isa->can('coercion')) { $spec->{coerce} = $isa->coercion; - } elsif (blessed $isa and $isa->can('coerce')) { + } + elsif (blessed $isa and $isa->can('coerce')) { $spec->{coerce} = sub { $isa->coerce(@_) }; - } else { + } + else { croak "Invalid coercion for $into->$name - no appropriate type constraint"; } } foreach my $setting (qw( isa coerce )) { - next if !exists $spec->{$setting}; + next + if !exists $spec->{$setting}; $self->_validate_codulatable($setting, $spec->{$setting}, "$into->$name"); } @@ -128,7 +146,8 @@ $methods{$reader} = $self->_generate_xs( getters => $into, $reader, $name, $spec ); - } else { + } + else { $self->{captures} = {}; $methods{$reader} = quote_sub "${into}::${reader}" @@ -139,6 +158,7 @@ ; } } + if (my $accessor = $spec->{accessor}) { _die_overwrite($into, $accessor, 'an accessor') if !$spec->{allow_overwrite} && defined &{"${into}::${accessor}"}; @@ -150,7 +170,8 @@ $methods{$accessor} = $self->_generate_xs( accessors => $into, $accessor, $name, $spec ); - } else { + } + else { $self->{captures} = {}; $methods{$accessor} = quote_sub "${into}::${accessor}" @@ -160,6 +181,7 @@ ; } } + if (my $writer = $spec->{writer}) { _die_overwrite($into, $writer, 'a writer') if !$spec->{allow_overwrite} && defined &{"${into}::${writer}"}; @@ -170,7 +192,8 @@ $methods{$writer} = $self->_generate_xs( setters => $into, $writer, $name, $spec ); - } else { + } + else { $self->{captures} = {}; $methods{$writer} = quote_sub "${into}::${writer}" @@ -187,7 +210,8 @@ $methods{$pred} = $self->_generate_xs( exists_predicates => $into, $pred, $name, $spec ); - } else { + } + else { $self->{captures} = {}; $methods{$pred} = quote_sub "${into}::${pred}" @@ -197,9 +221,11 @@ ; } } + if (my $builder = delete $spec->{builder_sub}) { _install_coderef( "${into}::$spec->{builder}" => $builder ); } + if (my $cl = $spec->{clearer}) { _die_overwrite($into, $cl, 'a clearer') if !$spec->{allow_overwrite} && defined &{"${into}::${cl}"}; @@ -211,21 +237,23 @@ => $quote_opts ; } + if (my $hspec = $spec->{handles}) { my $asserter = $spec->{asserter} ||= '_assert_'.$name; - my @specs = do { - if (ref($hspec) eq 'ARRAY') { - map [ $_ => $_ ], @$hspec; - } elsif (ref($hspec) eq 'HASH') { + my @specs = + ref $hspec eq 'ARRAY' ? ( + map [ $_ => $_ ], @$hspec + ) + : ref $hspec eq 'HASH' ? ( map [ $_ => ref($hspec->{$_}) ? @{$hspec->{$_}} : $hspec->{$_} ], - keys %$hspec; - } elsif (!ref($hspec)) { + keys %$hspec + ) + : !ref $hspec ? do { require Moo::Role; map [ $_ => $_ ], Moo::Role->methods_provided_by($hspec) - } else { - croak "You gave me a handles of ${hspec} and I have no idea why"; } - }; + : croak "You gave me a handles of ${hspec} and I have no idea why"; + foreach my $delegation_spec (@specs) { my ($proxy, $target, @args) = @$delegation_spec; _die_overwrite($into, $proxy, 'a delegation') @@ -239,6 +267,7 @@ ; } } + if (my $asserter = $spec->{asserter}) { _die_overwrite($into, $asserter, 'an asserter') if !$spec->{allow_overwrite} && defined &{"${into}::${asserter}"}; @@ -250,6 +279,7 @@ => $quote_opts ; } + \%methods; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/lib/Method/Generate/Constructor.pm new/Moo-2.005005/lib/Method/Generate/Constructor.pm --- old/Moo-2.005004/lib/Method/Generate/Constructor.pm 2021-01-12 18:15:57.000000000 +0100 +++ new/Moo-2.005005/lib/Method/Generate/Constructor.pm 2022-01-19 23:50:37.000000000 +0100 @@ -22,8 +22,8 @@ my $ag = $self->accessor_generator; while (my ($name, $new_spec) = splice @new_specs, 0, 2) { if ($name =~ s/^\+//) { - croak "has '+${name}' given but no ${name} attribute already exists" - unless my $old_spec = $specs->{$name}; + my $old_spec = $specs->{$name} + or croak "has '+${name}' given but no ${name} attribute already exists"; $ag->merge_specs($new_spec, $old_spec); } if ($new_spec->{required} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/lib/Moo/Role.pm new/Moo-2.005005/lib/Moo/Role.pm --- old/Moo-2.005004/lib/Moo/Role.pm 2021-03-29 08:40:25.000000000 +0200 +++ new/Moo-2.005005/lib/Moo/Role.pm 2023-01-05 21:54:56.000000000 +0100 @@ -27,7 +27,7 @@ ); } -our $VERSION = '2.005004'; +our $VERSION = '2.005005'; $VERSION =~ tr/_//d; require Moo::sification; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/lib/Moo.pm new/Moo-2.005005/lib/Moo.pm --- old/Moo-2.005004/lib/Moo.pm 2021-03-29 08:40:25.000000000 +0200 +++ new/Moo-2.005005/lib/Moo.pm 2023-01-05 21:54:56.000000000 +0100 @@ -26,7 +26,7 @@ ); } -our $VERSION = '2.005004'; +our $VERSION = '2.005005'; $VERSION =~ tr/_//d; require Moo::sification; @@ -378,11 +378,11 @@ =over 2 -=item a command line or CGI script where fast startup is essential +=item * A command line or CGI script where fast startup is essential -=item code designed to be deployed as a single file via L<App::FatPacker> +=item * code designed to be deployed as a single file via L<App::FatPacker> -=item a CPAN module that may be used by others in the above situations +=item * A CPAN module that may be used by others in the above situations =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-coerce.t new/Moo-2.005005/t/accessor-coerce.t --- old/Moo-2.005004/t/accessor-coerce.t 2021-01-11 23:27:23.000000000 +0100 +++ new/Moo-2.005005/t/accessor-coerce.t 2023-01-05 21:26:24.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; sub run_for { my $class = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-default.t new/Moo-2.005005/t/accessor-default.t --- old/Moo-2.005004/t/accessor-default.t 2021-01-11 23:27:23.000000000 +0100 +++ new/Moo-2.005005/t/accessor-default.t 2023-01-05 21:26:31.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; my $c_ran; { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-generator-extension.t new/Moo-2.005005/t/accessor-generator-extension.t --- old/Moo-2.005004/t/accessor-generator-extension.t 2021-01-12 18:15:57.000000000 +0100 +++ new/Moo-2.005005/t/accessor-generator-extension.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moo::_Utils qw(_linear_isa); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-handles.t new/Moo-2.005005/t/accessor-handles.t --- old/Moo-2.005004/t/accessor-handles.t 2021-01-11 23:27:23.000000000 +0100 +++ new/Moo-2.005005/t/accessor-handles.t 2023-01-05 21:26:55.000000000 +0100 @@ -1,9 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; -use lib 't/lib'; +use CaptureException; { package Baz; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-isa.t new/Moo-2.005005/t/accessor-isa.t --- old/Moo-2.005004/t/accessor-isa.t 2021-01-11 23:27:23.000000000 +0100 +++ new/Moo-2.005005/t/accessor-isa.t 2023-01-05 21:27:04.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; sub run_for { my $class = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-mixed.t new/Moo-2.005005/t/accessor-mixed.t --- old/Moo-2.005004/t/accessor-mixed.t 2021-01-11 23:27:23.000000000 +0100 +++ new/Moo-2.005005/t/accessor-mixed.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; my @result; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-reader-writer.t new/Moo-2.005005/t/accessor-reader-writer.t --- old/Moo-2.005004/t/accessor-reader-writer.t 2021-01-11 23:27:23.000000000 +0100 +++ new/Moo-2.005005/t/accessor-reader-writer.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; my @result; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-roles.t new/Moo-2.005005/t/accessor-roles.t --- old/Moo-2.005004/t/accessor-roles.t 2021-01-11 23:27:23.000000000 +0100 +++ new/Moo-2.005005/t/accessor-roles.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Sub::Quote; { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-shortcuts.t new/Moo-2.005005/t/accessor-shortcuts.t --- old/Moo-2.005004/t/accessor-shortcuts.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/accessor-shortcuts.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; my $test = "test"; my $lazy_default = "lazy_default"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/accessor-trigger.t new/Moo-2.005005/t/accessor-trigger.t --- old/Moo-2.005004/t/accessor-trigger.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/accessor-trigger.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; our @tr; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/buildargs-error.t new/Moo-2.005005/t/buildargs-error.t --- old/Moo-2.005004/t/buildargs-error.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/buildargs-error.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/coerce-1.t new/Moo-2.005005/t/coerce-1.t --- old/Moo-2.005004/t/coerce-1.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/coerce-1.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package IntConstraint; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/compose-conflicts.t new/Moo-2.005005/t/compose-conflicts.t --- old/Moo-2.005004/t/compose-conflicts.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/compose-conflicts.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package MethodRole; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/compose-non-role.t new/Moo-2.005005/t/compose-non-role.t --- old/Moo-2.005004/t/compose-non-role.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/compose-non-role.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; $INC{'MyRole.pm'} = __FILE__; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/compose-roles.t new/Moo-2.005005/t/compose-roles.t --- old/Moo-2.005004/t/compose-roles.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/compose-roles.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package One; use Moo::Role; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/constructor-modify.t new/Moo-2.005005/t/constructor-modify.t --- old/Moo-2.005004/t/constructor-modify.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/constructor-modify.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package ClassBakedNew; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/croak-locations.t new/Moo-2.005005/t/croak-locations.t --- old/Moo-2.005004/t/croak-locations.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/croak-locations.t 2023-01-05 21:20:47.000000000 +0100 @@ -1,10 +1,10 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; use Carp qw(croak); no Moo::sification; -use lib 't/lib'; use ErrorLocation; location_ok <<'END_CODE', 'Moo::_Util::_load_module'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/demolish-basics.t new/Moo-2.005005/t/demolish-basics.t --- old/Moo-2.005004/t/demolish-basics.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/demolish-basics.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; our @demolished; package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/demolish-bugs-eats_exceptions.t new/Moo-2.005005/t/demolish-bugs-eats_exceptions.t --- old/Moo-2.005004/t/demolish-bugs-eats_exceptions.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/demolish-bugs-eats_exceptions.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,7 +1,8 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; my $FilePath = sub { die "does not pass the type constraint" if $_[0] eq '/' }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/demolish-bugs-eats_mini.t new/Moo-2.005005/t/demolish-bugs-eats_mini.t --- old/Moo-2.005004/t/demolish-bugs-eats_mini.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/demolish-bugs-eats_mini.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/demolish-global_destruction.t new/Moo-2.005005/t/demolish-global_destruction.t --- old/Moo-2.005004/t/demolish-global_destruction.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/demolish-global_destruction.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use File::Basename qw(dirname); BEGIN { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/demolish-throw.t new/Moo-2.005005/t/demolish-throw.t --- old/Moo-2.005004/t/demolish-throw.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/demolish-throw.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/extend-constructor.t new/Moo-2.005005/t/extend-constructor.t --- old/Moo-2.005004/t/extend-constructor.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/extend-constructor.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package Role::For::Constructor; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/extends-non-moo.t new/Moo-2.005005/t/extends-non-moo.t --- old/Moo-2.005004/t/extends-non-moo.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/extends-non-moo.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package NonMooClass; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/extends-role.t new/Moo-2.005005/t/extends-role.t --- old/Moo-2.005004/t/extends-role.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/extends-role.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package MyRole; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/global_underscore.t new/Moo-2.005005/t/global_underscore.t --- old/Moo-2.005004/t/global_underscore.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/global_underscore.t 2023-01-05 21:19:37.000000000 +0100 @@ -1,8 +1,8 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use lib 't/lib'; use InlineModule ( 'UnderscoreClass' => q{ package UnderscoreClass; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/has-array.t new/Moo-2.005005/t/has-array.t --- old/Moo-2.005004/t/has-array.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/has-array.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; is(exception { package Local::Test::Role1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/has-plus.t new/Moo-2.005005/t/has-plus.t --- old/Moo-2.005004/t/has-plus.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/has-plus.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package RollyRole; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/init-arg.t new/Moo-2.005005/t/init-arg.t --- old/Moo-2.005004/t/init-arg.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/init-arg.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/isa-interfere.t new/Moo-2.005005/t/isa-interfere.t --- old/Moo-2.005004/t/isa-interfere.t 2021-01-12 18:15:57.000000000 +0100 +++ new/Moo-2.005005/t/isa-interfere.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moo (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/lazy_isa.t new/Moo-2.005005/t/lazy_isa.t --- old/Moo-2.005004/t/lazy_isa.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/lazy_isa.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; my $isa_called = 0; { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/lib/CaptureException.pm new/Moo-2.005005/t/lib/CaptureException.pm --- old/Moo-2.005004/t/lib/CaptureException.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Moo-2.005005/t/lib/CaptureException.pm 2023-01-05 21:54:09.000000000 +0100 @@ -0,0 +1,28 @@ +package CaptureException; +use strict; +use warnings; +use lib 't/lib'; + +use Exporter (); BEGIN { *import = \&Exporter::import } +use Carp (); + +our @EXPORT = qw(exception); + +sub exception (&) { + my $cb = shift; + eval { + local $Test::Builder::Level = $Test::Builder::Level + 3; + $cb->(); + 1; + } or do { + return $@ + if $@; + Carp::confess( + (defined $@ ? 'false' : 'undef') + . " exception caught by CaptureException::exception" + ); + }; + return undef; +} + +1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/load_module.t new/Moo-2.005005/t/load_module.t --- old/Moo-2.005004/t/load_module.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/load_module.t 2023-01-05 21:20:30.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; - use lib 't/lib'; + use Test::More; # this test is replicated to t/load_module_role_tiny.t for Role::Tiny diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/load_module_error.t new/Moo-2.005005/t/load_module_error.t --- old/Moo-2.005004/t/load_module_error.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/load_module_error.t 2023-01-05 21:27:53.000000000 +0100 @@ -1,9 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; -use lib 't/lib'; +use CaptureException; use InlineModule ( 'BrokenExtends' => qq{ package BrokenExtends; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/load_module_role_tiny.t new/Moo-2.005005/t/load_module_role_tiny.t --- old/Moo-2.005004/t/load_module_role_tiny.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/load_module_role_tiny.t 2023-01-05 21:20:34.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; - use lib 't/lib'; + use Test::More; # this test is replicated to t/load_module.t for Moo::_Utils diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/long-package-name.t new/Moo-2.005005/t/long-package-name.t --- old/Moo-2.005004/t/long-package-name.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/long-package-name.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package Some::Class; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/method-generate-accessor.t new/Moo-2.005005/t/method-generate-accessor.t --- old/Moo-2.005004/t/method-generate-accessor.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/method-generate-accessor.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Method::Generate::Accessor; use Sub::Quote 'quote_sub'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/method-generate-constructor.t new/Moo-2.005005/t/method-generate-constructor.t --- old/Moo-2.005004/t/method-generate-constructor.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/method-generate-constructor.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Method::Generate::Constructor; use Method::Generate::Accessor; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/moo-object.t new/Moo-2.005005/t/moo-object.t --- old/Moo-2.005004/t/moo-object.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/moo-object.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package MyClass; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/moo-utils-_subname-Sub-Name.t new/Moo-2.005005/t/moo-utils-_subname-Sub-Name.t --- old/Moo-2.005004/t/moo-utils-_subname-Sub-Name.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/moo-utils-_subname-Sub-Name.t 2023-01-05 21:20:40.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; - use lib 't/lib'; + use InlineModule 'Sub::Name' => <<'END_SN', package Sub::Name; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/moo-utils-_subname.t new/Moo-2.005005/t/moo-utils-_subname.t --- old/Moo-2.005004/t/moo-utils-_subname.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/moo-utils-_subname.t 2023-01-05 21:20:26.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; - use lib 't/lib'; + use InlineModule 'Sub::Name' => undef, 'Sub::Util' => undef, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/moo-utils.t new/Moo-2.005005/t/moo-utils.t --- old/Moo-2.005004/t/moo-utils.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/moo-utils.t 2023-01-05 21:28:14.000000000 +0100 @@ -1,12 +1,12 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moo::_Utils qw( _maybe_load_module ); -use lib 't/lib'; use InlineModule ( 'Broken::Class' => q{ use strict; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/moo.t new/Moo-2.005005/t/moo.t --- old/Moo-2.005004/t/moo.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/moo.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package MyClass0; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/mutual-requires.t new/Moo-2.005005/t/mutual-requires.t --- old/Moo-2.005004/t/mutual-requires.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/mutual-requires.t 2023-01-05 21:28:25.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; is exception { package RoleA; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/not-both.t new/Moo-2.005005/t/not-both.t --- old/Moo-2.005004/t/not-both.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/not-both.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moo (); use Moo::Role (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/overridden-core-funcs.t new/Moo-2.005005/t/overridden-core-funcs.t --- old/Moo-2.005004/t/overridden-core-funcs.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/overridden-core-funcs.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package AddOverrides; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/t/role-conflicts-moox.t new/Moo-2.005005/t/role-conflicts-moox.t --- old/Moo-2.005004/t/role-conflicts-moox.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/t/role-conflicts-moox.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package MooX::ExtendHas; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/bless-override.t new/Moo-2.005005/xt/bless-override.t --- old/Moo-2.005004/xt/bless-override.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/bless-override.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,5 +1,6 @@ use strict; use warnings; +use lib 't/lib'; BEGIN { *CORE::GLOBAL::bless = sub { @@ -11,7 +12,7 @@ }; } use Test::More; -use Test::Fatal; +use CaptureException; use Moose (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/fakemetaclass.t new/Moo-2.005005/xt/fakemetaclass.t --- old/Moo-2.005004/xt/fakemetaclass.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/fakemetaclass.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moo::HandleMoose::FakeMetaClass; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/handle_moose.t new/Moo-2.005005/xt/handle_moose.t --- old/Moo-2.005004/xt/handle_moose.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/handle_moose.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Sub::Quote qw(quote_sub); { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/has-after-meta.t new/Moo-2.005005/xt/has-after-meta.t --- old/Moo-2.005004/xt/has-after-meta.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/has-after-meta.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moose (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/inflate-our-classes.t new/Moo-2.005005/xt/inflate-our-classes.t --- old/Moo-2.005004/xt/inflate-our-classes.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/inflate-our-classes.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moo::HandleMoose; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-does-moose-role.t new/Moo-2.005005/xt/moo-does-moose-role.t --- old/Moo-2.005004/xt/moo-does-moose-role.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moo-does-moose-role.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package Ker; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-does-mouse-role.t new/Moo-2.005005/xt/moo-does-mouse-role.t --- old/Moo-2.005004/xt/moo-does-mouse-role.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moo-does-mouse-role.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,10 +1,11 @@ use strict; use warnings; +use lib 't/lib'; use Test::More "$]" < 5.008009 ? (skip_all => 'Mouse is broken on perl <= 5.8.8') : (); -use Test::Fatal; +use CaptureException; BEGIN { package Ker; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-extend-moose.t new/Moo-2.005005/xt/moo-extend-moose.t --- old/Moo-2.005004/xt/moo-extend-moose.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moo-extend-moose.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package MooseRole; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-inflate.t new/Moo-2.005005/xt/moo-inflate.t --- old/Moo-2.005004/xt/moo-inflate.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moo-inflate.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package MooClass; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-object-meta-can.t new/Moo-2.005005/xt/moo-object-meta-can.t --- old/Moo-2.005004/xt/moo-object-meta-can.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moo-object-meta-can.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moo::Object; # See RT#84615 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-role-types.t new/Moo-2.005005/xt/moo-role-types.t --- old/Moo-2.005004/xt/moo-role-types.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moo-role-types.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package TestClientClass; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-roles-into-moose-class.t new/Moo-2.005005/xt/moo-roles-into-moose-class.t --- old/Moo-2.005004/xt/moo-roles-into-moose-class.t 2021-01-12 00:25:29.000000000 +0100 +++ new/Moo-2.005005/xt/moo-roles-into-moose-class.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-sification-handlemoose.t new/Moo-2.005005/xt/moo-sification-handlemoose.t --- old/Moo-2.005004/xt/moo-sification-handlemoose.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moo-sification-handlemoose.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moo-sification-meta.t new/Moo-2.005005/xt/moo-sification-meta.t --- old/Moo-2.005004/xt/moo-sification-meta.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moo-sification-meta.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moose-accessor-isa.t new/Moo-2.005005/xt/moose-accessor-isa.t --- old/Moo-2.005004/xt/moose-accessor-isa.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moose-accessor-isa.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package FrewWithIsa; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moose-does-moo-role.t new/Moo-2.005005/xt/moose-does-moo-role.t --- old/Moo-2.005004/xt/moose-does-moo-role.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moose-does-moo-role.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package MooParentRole; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moose-extend-moo.t new/Moo-2.005005/xt/moose-extend-moo.t --- old/Moo-2.005004/xt/moose-extend-moo.t 2021-01-12 00:25:29.000000000 +0100 +++ new/Moo-2.005005/xt/moose-extend-moo.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; BEGIN { package MooParent; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moose-handles-moo-class.t new/Moo-2.005005/xt/moose-handles-moo-class.t --- old/Moo-2.005004/xt/moose-handles-moo-class.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moose-handles-moo-class.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package Foo; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moose-inflate-error-recurse.t new/Moo-2.005005/xt/moose-inflate-error-recurse.t --- old/Moo-2.005004/xt/moose-inflate-error-recurse.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moose-inflate-error-recurse.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; use Moose (); BEGIN { @@ -54,7 +55,7 @@ has ftw => (is => 'ro', traits => [ 'WTF' ]); } -# avoiding Test::Fatal, because it checks exceptions for truth and that can +# avoiding CaptureException, because it checks exceptions for truth and that can # cause more exceptions in this case. Prefer to trigger stringification # manually here. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moose-override-attribute-from-moo-role.t new/Moo-2.005005/xt/moose-override-attribute-from-moo-role.t --- old/Moo-2.005004/xt/moose-override-attribute-from-moo-role.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moose-override-attribute-from-moo-role.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package MyRole; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/moose-override-attribute-with-plus-syntax.t new/Moo-2.005005/xt/moose-override-attribute-with-plus-syntax.t --- old/Moo-2.005004/xt/moose-override-attribute-with-plus-syntax.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/moose-override-attribute-with-plus-syntax.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package MooParent; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/type-inflate-coercion.t new/Moo-2.005005/xt/type-inflate-coercion.t --- old/Moo-2.005004/xt/type-inflate-coercion.t 2021-01-11 23:27:24.000000000 +0100 +++ new/Moo-2.005005/xt/type-inflate-coercion.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; sub ArrayRef { my $type = sub { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Moo-2.005004/xt/withautoclean.t new/Moo-2.005005/xt/withautoclean.t --- old/Moo-2.005004/xt/withautoclean.t 2021-01-12 18:15:57.000000000 +0100 +++ new/Moo-2.005005/xt/withautoclean.t 2023-01-05 21:26:08.000000000 +0100 @@ -1,8 +1,9 @@ use strict; use warnings; +use lib 't/lib'; use Test::More; -use Test::Fatal; +use CaptureException; { package withautoclean::Role;