X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEval%2FWithLexicals%2FRole%2FPreludeEachTime.pm;fp=lib%2FEval%2FWithLexicals%2FRole%2FPreludeEachTime.pm;h=4f5981eba99e42c84b06347f79468a30ddb0bf4b;hb=148445b9606e76f0bc86d2f5bfd5d2f8588ceb0f;hp=0000000000000000000000000000000000000000;hpb=ce313355b83f08636deaa1dd24477924e7793490;p=p5sagit%2FEval-WithLexicals.git

diff --git a/lib/Eval/WithLexicals/Role/PreludeEachTime.pm b/lib/Eval/WithLexicals/Role/PreludeEachTime.pm
new file mode 100644
index 0000000..4f5981e
--- /dev/null
+++ b/lib/Eval/WithLexicals/Role/PreludeEachTime.pm
@@ -0,0 +1,10 @@
+package Eval::WithLexicals::Role::PreludeEachTime;
+use Moo::Role;
+
+around setup_code => sub {
+  my $orig = shift;
+  my($self) = @_;
+  ($self->prelude, $orig->(@_));
+};
+
+1;