view Lib/IMPL/Web/TT/Control.pm @ 103:c289ed9662ca

Schema beta 2 More strict validation, support for inflating a simple nodes and properties
author wizard
date Fri, 07 May 2010 18:17:40 +0400
parents a5cb84374d40
children 0e72ad99eef7
line wrap: on
line source

package IMPL::Web::TT::Control;

use base qw(IMPL::DOM::Node);

use IMPL::Class::Property;

our %CTOR = (
	'IMPL::DOM::Node' => sub {
		#TODO: Pass arguments
	}
);

BEGIN {
	public property template => prop_all;
}

sub Render {
	my ($this) = @_;
	
	if ($this->document) {
		if ($this->template) {
			return $this->document->context->include($this->template,{ this => $this });
		} elsif ($this->document->presenter) {
			return $this->document->presenter->print($this);
		} else {
			return $this->toString();
		}
	}
}

1;