view release on metacpan or  search on metacpan

t/test.t  view on Meta::CPAN

use Hook::LexWrap;
print "1..54\n";

sub ok   { print "ok $_[0]\n" }
sub fail(&) { print "not " if $_[0]->() }

sub actual { ok $_[0]; }


actual 1;

{ 
	my $lexical = wrap actual =>
			pre  => sub { ok 2 },
			post => sub { ok 4 };