X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=blobdiff_plain;f=t%2Fearly1_x.pm;h=12fb55f3efc52cd855875bbee07e0177f623f786;hp=89dc1cb6d7be9f63285094e58d4b94b3b22ef4b7;hb=8392ec1a1821bf10d237af4caab750c24c25120d;hpb=39217f75634518ca8b21e8ae21e731ef5de7b17b

diff --git a/t/early1_x.pm b/t/early1_x.pm
index 89dc1cb..12fb55f 100644
--- a/t/early1_x.pm
+++ b/t/early1_x.pm
@@ -4,6 +4,8 @@ use warnings;
 sub import {
     require Devel::Declare;
     my $caller = caller();
+    no strict 'refs';
+    *{ "${caller}::class" } = sub (&) { $_[0]->() };
     Devel::Declare->setup_for($caller, {
         class => {
             const => sub {
@@ -14,9 +16,6 @@ sub import {
                 my $l = Devel::Declare::get_linestr();
                 substr $l, $off + 1, 0, 'pass q[injected];' . (';' x 1000);
                 Devel::Declare::set_linestr($l);
-                my $class = sub (&) { $_[0]->() };
-                no strict 'refs';
-                *{ "${caller}::$kw" } = $class;
             },
         },
     });