Deprecate shellwords.pl with a warning

[p5sagit/p5-mst-13.2.git] / lib / autodie / exception.pm

diff --git a/lib/autodie/exception.pm b/lib/autodie/exception.pm
index b04c82a..8646099 100644 (file)
--- a/lib/autodie/exception.pm
+++ b/lib/autodie/exception.pm
@@ -14,7 +14,7 @@ use overload
 
 use if ($] >= 5.010), overload => '~~'  => "matches";
 
-our $VERSION = '2.05';
+our $VERSION = '2.06_01';
 
 my $PACKAGE = __PACKAGE__;  # Useful to have a scalar for hash keys.
 
@@ -170,6 +170,18 @@ set on failure.
 
 sub errno       { return $_[0]->{$PACKAGE}{errno}; }
 
+=head3 eval_error
+
+    my $old_eval_error = $E->eval_error;
+
+The contents of C<$@> immediately after autodie triggered an
+exception.  This may be useful when dealing with modules such
+as L<Text::Balanced> that set (but do not throw) C<$@> on error.
+
+=cut
+
+sub eval_error { return $_[0]->{$PACKAGE}{eval_error}; }
+
 =head3 matches
 
     if ( $e->matches('open') ) { ... }
@@ -698,6 +710,7 @@ sub _init {
 
     $this->{$PACKAGE}{context} = $args{context};
     $this->{$PACKAGE}{return}  = $args{return};
+    $this->{$PACKAGE}{eval_error}  = $args{eval_error};
 
     $this->{$PACKAGE}{args}    = $args{args} || [];
     $this->{$PACKAGE}{function}= $args{function} or