The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#------------------------------------------------------------------------------- 
# 
# File: embed.pm
# Version: 0.1
# Author: Jeremy Wall
# Definition: allows us to embed code in the containing template
#
#--------------------------------------------------------------------------
package Bricklayer::Templater::Handler::util::embed;
use Bricklayer::Templater::Handler;
use base qw(Bricklayer::Templater::Handler);

=head1 embedded code tag handler

Will run and coderef passed into it and return the results for placement in the template.

=cut

sub run {
	my ($self, $embed) = @_;
	
	if (ref($embed) eq 'CODE') {
		return &$embed();
	} else {
		return $embed;
	}
	return;
}

return 1;