use strict;
use warnings;

use HTML::Mason;


my $componentSource = <<END;
<& simpleDef &>

<%def simpleDef>
simple def called
</%def>
END


my $interp = HTML::Mason::Interp->new();

my $comp = $interp->make_component(
				   comp_source => $componentSource,
				   );

my $params = [];
$interp->exec($comp, @{$params});

1;