Fix Grabber to inherit Test::More's $TODO functionality

See Test-More/test-more#862

Changes

@@ -1,5 +1,7 @@
 {{$NEXT}}
 
+    - Fix the grabber tool to inherit Test::Builder $TODO functionality
+
 0.000130  2020-05-30 11:11:54-07:00 America/Los_Angeles
 
     - Many documentation fixes

dist.ini

@@ -27,7 +27,7 @@ repository.type = git
 
 [Prereqs]
 perl          = 5.008001
-Test2::API    = 1.302158
+Test2::API    = 1.302175
 Importer      = 0.024
 Term::Table   = 0.013
 Sub::Info     = 0.002

lib/Test2/Tools/Grab.pm

@@ -5,11 +5,12 @@ use warnings;
 our $VERSION = '0.000131';
 
 use Test2::Util::Grabber;
+use Test2::EventFacet::Trace();
 
 our @EXPORT = qw/grab/;
 use base 'Exporter';
 
-sub grab { Test2::Util::Grabber->new() }
+sub grab { Test2::Util::Grabber->new(trace => Test2::EventFacet::Trace->new(frame => [caller(0)]) ) }
 
 1;
 

lib/Test2/Util/Grabber.pm

@@ -5,11 +5,11 @@ use warnings;
 our $VERSION = '0.000131';
 
 use Test2::Hub::Interceptor();
-use Test2::Util::Trace();
+use Test2::EventFacet::Trace();
 
 use Test2::API qw/test2_stack test2_ipc/;
 
-use Test2::Util::HashBase qw/hub finished _events term_size/;
+use Test2::Util::HashBase qw/hub finished _events term_size <state <trace/;
 
 sub init {
     my $self = shift;
@@ -32,6 +32,12 @@ sub init {
 
     $self->{+TERM_SIZE} = $ENV{TS_TERM_SIZE};
     $ENV{TS_TERM_SIZE} = 80;
+
+    my $trace = $self->{+TRACE} ||= Test2::EventFacet::Trace->new(frame => [caller(1)]);
+    my $state = $self->{+STATE} ||= {};
+    $hub->clean_inherited(trace => $trace, state => $state);
+
+    return;
 }
 
 sub flush {
@@ -63,7 +69,11 @@ sub finish {
     $self->{+FINISHED} = 1;
     test2_stack()->pop($hub);
 
-    my $dbg = Test2::Util::Trace->new(
+    my $trace = $self->{+TRACE} ||= Test2::EventFacet::Trace->new(frame => [caller(1)]);
+    my $state = $self->{+STATE} ||= {};
+    $hub->clean_inherited(trace => $trace, state => $state);
+
+    my $dbg = Test2::EventFacet::Trace->new(
         frame => [caller(0)],
     );
     $hub->finalize($dbg, 1)