defer string evals from startup to JIT/lazy. on my machine cuts startup by 9% and...

[gitmo/Moose.git] / t / immutable / inline_close_over.t

diff --git a/t/immutable/inline_close_over.t b/t/immutable/inline_close_over.t
index 107258c..44a1edc 100644 (file)
--- a/t/immutable/inline_close_over.t
+++ b/t/immutable/inline_close_over.t
@@ -46,6 +46,7 @@ my $can_partialdump = try {
     sub _is_okay_to_close_over {
         my $self = shift;
         my ($thing) = @_;
+        return 1 if ref($thing) eq 'RuNNeR';
 
         match_on_type $thing => (
             'RegexpRef'  => sub { 1 },
@@ -62,6 +63,7 @@ sub close_over_ok {
     my ($package, $method) = @_;
     my $visitor = Test::Visitor->new;
     my $code = $package->meta->find_method_by_name($method)->body;
+    $code = $code->(undef, $code) if ref($code) eq 'RuNNeR';
     $visitor->visit($code);
     if ($visitor->pass) {
         pass("${package}::${method} didn't close over anything complicated");