Use Try::Tiny in test rather than Test::Fatal.

Author: oalders

META.json

@@ -66,6 +66,7 @@
             "PerlIO::encoding" : "0",
             "Test::More" : "0.88",
             "Time::Local" : "0",
+            "Try::Tiny" : "0",
             "perl" : "5.008001"
          }
       }

Makefile.PL

@@ -42,7 +42,8 @@ my %WriteMakefileArgs = (
   "TEST_REQUIRES" => {
     "PerlIO::encoding" => 0,
     "Test::More" => "0.88",
-    "Time::Local" => 0
+    "Time::Local" => 0,
+    "Try::Tiny" => 0
   },
   "VERSION" => "6.12",
   "test" => {
@@ -72,6 +73,7 @@ my %FallbackPrereqs = (
   "Storable" => 0,
   "Test::More" => "0.88",
   "Time::Local" => 0,
+  "Try::Tiny" => 0,
   "URI" => "1.10",
   "base" => 0,
   "strict" => 0,

cpanfile

@@ -25,6 +25,7 @@ on 'test' => sub {
   requires "PerlIO::encoding" => "0";
   requires "Test::More" => "0.88";
   requires "Time::Local" => "0";
+  requires "Try::Tiny" => "0";
   requires "perl" => "5.008001";
 };
 

t/request.t

@@ -5,33 +5,34 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Fatal qw( dies_ok lives_ok );
 plan tests => 15;
 
 use HTTP::Request;
+use Try::Tiny qw( catch try );
 
-my $req = HTTP::Request->new(GET => "http://www.example.com");
+my $req = HTTP::Request->new( GET => "http://www.example.com" );
 $req->accept_decodable;
 
-is($req->method, "GET");
-is($req->uri, "http://www.example.com");
-like($req->header("Accept-Encoding"), qr/\bgzip\b/);  # assuming IO::Uncompress::Gunzip is there
+is( $req->method, "GET" );
+is( $req->uri,    "http://www.example.com" );
+like( $req->header("Accept-Encoding"), qr/\bgzip\b/ )
+    ;    # assuming IO::Uncompress::Gunzip is there
 
-$req->dump(prefix => "# ");
+$req->dump( prefix => "# " );
 
-is($req->method("DELETE"), "GET");
-is($req->method, "DELETE");
+is( $req->method("DELETE"), "GET" );
+is( $req->method,           "DELETE" );
 
-is($req->uri("http:"), "http://www.example.com");
-is($req->uri, "http:");
+is( $req->uri("http:"), "http://www.example.com" );
+is( $req->uri,          "http:" );
 
 $req->protocol("HTTP/1.1");
 
-my $r2 = HTTP::Request->parse($req->as_string);
-is($r2->method, "DELETE");
-is($r2->uri, "http:");
-is($r2->protocol, "HTTP/1.1");
-is($r2->header("Accept-Encoding"), $req->header("Accept-Encoding"));
+my $r2 = HTTP::Request->parse( $req->as_string );
+is( $r2->method,                    "DELETE" );
+is( $r2->uri,                       "http:" );
+is( $r2->protocol,                  "HTTP/1.1" );
+is( $r2->header("Accept-Encoding"), $req->header("Accept-Encoding") );
 
 # Test objects which are accepted as URI-like
 {
@@ -57,16 +58,31 @@ is($r2->header("Accept-Encoding"), $req->header("Accept-Encoding"));
 
     package main;
 
-    ok( Foo::URI->new->can( 'scheme' ), 'Object can scheme()' );
-    dies_ok(
-        sub { HTTP::Request->new( GET => Foo::URI->new ) },
+    ok( Foo::URI->new->can('scheme'), 'Object can scheme()' );
+    ok(
+        !do {
+            try {
+                HTTP::Request->new( GET => Foo::URI->new );
+                return 1;
+            }
+            catch { return 0 };
+        },
         'Object without canonical method triggers an exception'
     );
 
-    ok( Foo::URI::WithCanonical->new->can( 'canonical' ),
-        'Object can canonical()' );
-    lives_ok(
-        sub { HTTP::Request->new( GET => Foo::URI::WithCanonical->new ) },
+    ok(
+        Foo::URI::WithCanonical->new->can('canonical'),
+        'Object can canonical()'
+    );
+
+    ok(
+        do {
+            try {
+                HTTP::Request->new( GET => Foo::URI::WithCanonical->new );
+                return 1;
+            }
+            catch { return 0 };
+        },
         'Object with canonical method does not trigger an exception'
     );
 }