This is no longer a TODO, but given the experimental nature not ready to be documented

https://metacpan.org/module/SHAY/perl-5.17.3/pod/perldelta.pod#given-now-aliases-the-global-_

diff --git a/lib/Try/Tiny.pm b/lib/Try/Tiny.pm
index 229c3c8..db18b3e 100644 (file)
--- a/lib/Try/Tiny.pm
+++ b/lib/Try/Tiny.pm
@@ -533,6 +533,12 @@ confusing behavior:
     }
   }
 
+Note that this behavior was changed once again in L<Perl5 version 18
+|https://metacpan.org/module/perldelta#given-now-aliases-the-global-_>.
+However, since the entirety of lexical C<$_> is now L<considired experimental
+|https://metacpan.org/module/perldelta#Lexical-_-is-now-experimental>, it
+is unclear whether the new version 18 behavior is final.
+
 =back
 
 =head1 SEE ALSO

diff --git a/t/given_when.t b/t/given_when.t
index 49e11ac..edd8a4e 100644 (file)
--- a/t/given_when.t
+++ b/t/given_when.t
@@ -30,7 +30,8 @@ given ("foo") {
 is( $error, "blah\n", "error caught" );
 
 {
-  local $TODO = "perhaps a workaround can be found";
+  local $TODO = "perhaps a workaround can be found"
+    if $] < 5.017003;
   is( $topic, $error, 'error is also in $_' );
 }