Mercurial > pub > Impl
view Lib/IMPL/Web/TT/Control.pm @ 100:df6b4f054957
Schema in progress
Added simple mailer
author | wizard |
---|---|
date | Thu, 06 May 2010 00:54:17 +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;