@@ -169,6 +169,7 @@ my $NO_PACKAGE = "no $PACKAGE"; # Used to detect 'no autodie' sub import { my $class = shift(@_); + my @original_args = @_; my $void = 0; my $lexical = 0; my $insist_hints = 0; @@ -307,6 +308,16 @@ sub import { $class->_install_subs($pkg, \%unload_later); })); + # To allow others to determine when autodie was in scope, + # and with what arguments, we also set a %^H hint which + # is how we were called. + + # This feature should be considered EXPERIMENTAL, and + # may change without notice. Please e-mail pjf@cpan.org + # if you're actually using it. + + $^H{autodie} = "$PACKAGE @original_args"; + } return; lib/Fatal.pm 3f90b0d72c8a189688c1668cd6c5512bcd09f44c Paul Fenwick pjf@perltraining.com.au http://github.com/pfenwick/autodie/commit/d8a7b2423d411f4646cd2836f22c88af826ee538 d8a7b2423d411f4646cd2836f22c88af826ee538 2009-09-03T14:00:23-07:00 2009-09-03T14:00:23-07:00 EXPERIMENTAL: Trivial support for detecting when autodie is in scope. 821b2930eedf3aa3cb8edaae5e80259a6f2c41b0 Paul Fenwick pjf@perltraining.com.au