From bc141e8af09fe7696e500ea08dda0934cddcdd9e Mon Sep 17 00:00:00 2001
From: Chad Granum <exodist7@gmail.com>
Date: Fri, 28 Apr 2023 01:52:47 -0700
Subject: [PATCH 1/3] Add DataLine plugin

---
 Changes | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Changes b/Changes
index 79cb62ea..5285cb1a 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 {{$NEXT}}
 
+    - Add Test2::Plugin::DataLine
+
 0.000153  2023-04-27 15:27:32-07:00 America/Los_Angeles
 
     - Fix broken call to plugins

From 397e0039414cafd9a9965754b058066b32a5c3f7 Mon Sep 17 00:00:00 2001
From: Chad Granum <exodist7@gmail.com>
Date: Fri, 28 Apr 2023 05:12:04 -0700
Subject: [PATCH 2/3] Add Test2::Plugin::DebugOnFail

---
 Changes                         |  2 +-
 lib/Test2/Plugin/DebugOnFail.pm | 86 +++++++++++++++++++++++++++++++++
 t/modules/Plugin/DebugOnFail.t  | 23 +++++++++
 3 files changed, 110 insertions(+), 1 deletion(-)
 create mode 100644 lib/Test2/Plugin/DebugOnFail.pm
 create mode 100644 t/modules/Plugin/DebugOnFail.t

diff --git a/Changes b/Changes
index 5285cb1a..418e74ab 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,6 @@
 {{$NEXT}}
 
-    - Add Test2::Plugin::DataLine
+    - Add Test2::Plugin::DebugOnFail
 
 0.000153  2023-04-27 15:27:32-07:00 America/Los_Angeles
 
diff --git a/lib/Test2/Plugin/DebugOnFail.pm b/lib/Test2/Plugin/DebugOnFail.pm
new file mode 100644
index 00000000..0f4bc63b
--- /dev/null
+++ b/lib/Test2/Plugin/DebugOnFail.pm
@@ -0,0 +1,86 @@
+package Test2::Plugin::DebugOnFail;
+use strict;
+use warnings;
+
+our $VERSION = '0.000154';
+
+use B();
+
+use Test2::API qw{
+    test2_add_callback_post_load
+    test2_stack
+};
+
+sub import {
+    my $class = shift;
+
+    test2_add_callback_post_load(sub {
+        my $hub = test2_stack()->top;
+
+        $hub->pre_filter(
+            sub {
+                my ($hub, $event) = @_;
+
+                if ($event->causes_fail) {
+                    warn "Test failure detected, stopping debugger...\n";
+                    $DB::single = 1;
+                }
+
+                return $event;
+            },
+            inherit => 1,
+        );
+    });
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Test2::Plugin::DebugOnFail - Set "$DB::single = 1" on test failure.
+
+=head1 DESCRIPTION
+
+This will set C<$DB::single = 1> on any failure in the test suite.
+
+=head1 SYNOPSIS
+
+    use Test2::Plugin::DebugOnFail;
+
+=head1 SOURCE
+
+The source code repository for Test2-Suite can be found at
+F<https://github.com/Test-More/Test2-Suite/>.
+
+=head1 MAINTAINERS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=head1 AUTHORS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright 2018 Chad Granum E<lt>exodist@cpan.orgE<gt>.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See F<http://dev.perl.org/licenses/>
+
+=cut
diff --git a/t/modules/Plugin/DebugOnFail.t b/t/modules/Plugin/DebugOnFail.t
new file mode 100644
index 00000000..00784ce7
--- /dev/null
+++ b/t/modules/Plugin/DebugOnFail.t
@@ -0,0 +1,23 @@
+use Test2::V0;
+use Test2::API qw/intercept/;
+
+my ($start, $second, $third);
+my $events = intercept {
+    require Test2::Plugin::DebugOnFail;
+    Test2::Plugin::DebugOnFail->import;
+
+    my $warn;
+    local $SIG{__WARN__} = sub { ($warn) = @_ };
+
+    $start = $warn;
+    ok(1);
+    $second = $warn;
+    ok(0);
+    $third = $warn;
+};
+
+is($start, undef, "Not set initially");
+is($second, undef, "Not set after pass");
+is($third, "Test failure detected, stopping debugger...\n", "Is set after pass");
+
+done_testing;

From 0ecaf08e8bf1150e77fa4ec781701fa596b35f82 Mon Sep 17 00:00:00 2001
From: Chad Granum <exodist7@gmail.com>
Date: Fri, 28 Apr 2023 05:15:27 -0700
Subject: [PATCH 3/3] --amend

---
 lib/Test2/Plugin/DebugOnFail.pm | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lib/Test2/Plugin/DebugOnFail.pm b/lib/Test2/Plugin/DebugOnFail.pm
index 0f4bc63b..51289580 100644
--- a/lib/Test2/Plugin/DebugOnFail.pm
+++ b/lib/Test2/Plugin/DebugOnFail.pm
@@ -4,8 +4,6 @@ use warnings;
 
 our $VERSION = '0.000154';
 
-use B();
-
 use Test2::API qw{
     test2_add_callback_post_load
     test2_stack