one last Test::Exception->Test::Fatal conversion

diff --git a/lib/Moose/Cookbook/Meta/Recipe6.pod b/lib/Moose/Cookbook/Meta/Recipe6.pod
index 91eaac3..638e9ce 100644 (file)
--- a/lib/Moose/Cookbook/Meta/Recipe6.pod
+++ b/lib/Moose/Cookbook/Meta/Recipe6.pod
@@ -149,13 +149,13 @@ it under the same terms as Perl itself.
 
 package main;
 
-use Test::Exception;
+use Test::Fatal;
 
 my $user = MyApp::User->new( password => 'foo!' );
 
-throws_ok { $user->_reset_password }
+like( exception { $user->_reset_password },
 qr/The MyApp::User::_reset_password method is private/,
-    '_reset_password method dies if called outside MyApp::User class';
+    '_reset_password method dies if called outside MyApp::User class');
 
 {
     package MyApp::User;