From: Karen Etheridge <ether@cpan.org>
Date: Tue, 2 Nov 2010 16:40:03 +0000 (-0700)
Subject: one last Test::Exception->Test::Fatal conversion
X-Git-Tag: 1.19~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c745cd9685c21c238a9ffb2055b002370464851;p=gitmo%2FMoose.git

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
--- 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;