X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Feval.t;h=13b2d7206a78837b2ad8fa2152722f65ced0b39b;hb=86964fb3f9ba6afc359b1ecb231fe44dae3665ef;hp=fbcc6caf3aa1cf32423f9fbfc50deadb4517fa7d;hpb=b7505981cfd3e784a33ddc92d98e674ebe68c1e5;p=p5sagit%2FDevel-Declare.git

diff --git a/t/eval.t b/t/eval.t
index fbcc6ca..13b2d72 100644
--- a/t/eval.t
+++ b/t/eval.t
@@ -15,6 +15,8 @@ sub handle_method {
 
 use Devel::Declare 'method' => \&handle_method;
 
+BEGIN { $^H{foo} = 'bar' }
+
 eval "method bar { 42 }";
 diag $@ if $@;