Caller is <% mc_caller %>.
The full component stack is <% join(",",mc_comp_stack) %>.

% foreach my $comp (qw(mc_various_test /perl foobar /support)) {
%   if (mc_comp_exists($comp)) {
%     my $content = mc_file(mc_comp_source($comp));
%     if (length($content) > 20) {
Component <% $comp %> exists and has content.
%     } else {
Component <% $comp %> exists but has no content!!!
%     }
%   } else {
Component <% $comp %> does not exist.
%   }
% }

<%perl>
my $t1 = mc_time();
sleep(2);
my $t2 = mc_time();
my $diff = $t2-$t1;
</%perl>
% if ($diff >= 1 and $diff <= 3) {
Time difference is approximately 2 seconds.
% } else {
Time difference is <% $diff %> seconds!
% }
</%perl>
