view release on metacpan or  search on metacpan

lib/DB/Hooks.pm  view on Meta::CPAN

	});
}



## Evaluation in usercontext
# We put code here to execute it only once
my $usercontext; BEGIN {
($usercontext =  <<'CODE') =~ s#^\t##gm;
	BEGIN {
		( $^H, ${^WARNING_BITS}, my $hr ) =  @{ DB::state( 'context' )->[0] }[8..10];
		%^H =  %$hr   if $hr;
	}
	# $@ is cleared when compiller enters *eval* or *BEGIN* block
	$@ =  (DB::state( 'context' ))[2];
CODE
}
sub eval {
	my $expr =  shift // return;

	DB::state( last_eval => $expr );