Fix test failures on old perls

[p5sagit/Devel-Declare.git] / t / early1_x.pm

diff --git a/t/early1_x.pm b/t/early1_x.pm
index 89dc1cb..12fb55f 100644 (file)
--- 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;
             },
         },
     });