package Mason::MyDynHandler;

our @ISA = qw(HTML::Mason::ApacheHandler);

use HTML::Mason::ApacheHandler;

sub handler
{
	my($r) = @_;
	
	my $output = '% print STDERR "$m->session\n"; \n alert("foo");'; 
	my $ah = HTML::Mason::ApacheHandler->handler($r);
	my $mi = $ah->interp;

	my $c = $mi->make_component(comp_source => $output);
	my $realOutput = $mi->exec($c);
	
	print $realOutput; 
	
	return OK;	
	
}