From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 6 May 2011 23:25:29 +0000 (-0500)
Subject: use Try::Tiny in this example
X-Git-Tag: 2.0100~157
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ba649a58a506755b9a4b380d56eb974c475786f;p=gitmo%2FMoose.git

use Try::Tiny in this example
---

diff --git a/lib/Moose/Cookbook/Snack/Types.pod b/lib/Moose/Cookbook/Snack/Types.pod
index 5da470e..2b6670b 100644
--- a/lib/Moose/Cookbook/Snack/Types.pod
+++ b/lib/Moose/Cookbook/Snack/Types.pod
@@ -16,12 +16,14 @@ __END__
   has 'y' => ( isa => 'Int', is => 'rw' );
 
   package main;
+  use Try::Tiny;
 
-  my $point = eval { Point->new( x => 'fifty', y => 'forty' ); };
-
-  if ($@) {
-      print "Oops: $@";
+  my $point = try {
+      Point->new( x => 'fifty', y => 'forty' );
   }
+  catch {
+      print "Oops: $_";
+  };
 
   my $point;
   my $xval             = 'forty-two';
@@ -45,7 +47,7 @@ Moose will die with an explicit error message. The error will include
 the attribute name, as well as the type constraint name and the value
 which failed the constraint check.
 
-We use C<eval> to catch this error message in C<$@>.
+We use L<Try::Tiny> to catch this error message.
 
 Later, we get the L<Moose::Meta::TypeConstraint> object from a
 L<Moose::Meta::Attribute> and use the L<Moose::Meta::TypeConstraint>