[p5sagit/Eval-WithLexicals.git] / lib / Eval / WithLexicals / Role / PreludeEachTime.pm

package Eval::WithLexicals::Role::PreludeEachTime;
use Moo::Role;

around setup_code => sub {
  my $orig = shift;
  my($self) = @_;
  ($self->prelude, $orig->(@_));
};

1;
Commit	Line	Data
148445b9	1	package Eval::WithLexicals::Role::PreludeEachTime;
	2	use Moo::Role;
	3
	4	around setup_code => sub {
	5	my $orig = shift;
	6	my($self) = @_;
	7	($self->prelude, $orig->(@_));
	8	};
	9
	10	1;