package call_when_scope_is_compiled;

use Sub::ScopeFinalizer qw( scope_finalizer );

sub import {
   my ($class, $sub) = @_;
   $^H{__PACKAGE__ . '::'} =
      scope_finalizer { $sub->() };
}

1;

##</code><code>##

$ perl -E'
   say "post";
   use call_when_scope_is_compiled \&foo;
   sub foo { say "foo!" }
   BEGIN { say "pre"; }
'
pre
foo!
post

##</code><code>##

$ perl -E'
   {
      use call_when_scope_is_compiled \&foo;
      sub foo { say "foo!" }
      BEGIN { say "pre"; }
   }
   BEGIN { say "post"; }
'
pre
foo!
post