Mercurial > pub > Impl
view Lib/IMPL/Web/TT/Collection.pm @ 241:f48a1a9f4fa2
+Added ViewResult to allow implementation of the view environment.
*TTDocuments now storing creation parameters
*TTControls automatically propagating layout and title meta to their attributes
+Added UnauthorizaedException web exception
*minor fixes
author | sergey |
---|---|
date | Thu, 18 Oct 2012 04:49:55 +0400 |
parents | 4d0e1962161c |
children |
line wrap: on
line source
package IMPL::Web::TT::Collection; use strict; use parent qw(IMPL::DOM::Node); __PACKAGE__->PassThroughArgs; our $AUTOLOAD; sub AUTOLOAD { my $this = shift; my ($method) = ($AUTOLOAD =~ /(\w+)$/); return if $method eq 'DESTROY'; if ( @_ >= 1 ) { # set if ($method =~ /^add(\w+)/) { my ($name,$args) = @_; return $this->appendChild($this->document->CreateControl($name,$1,$args)); } # we can't assing a node, so this is a dynamic property return $this->nodeProperty($method,@_); } else { # get # try a dynamic property first if ( my $val = $this->nodeProperty($method) ) { return $val; } else { # and return a first child node as last opportunity my @result = $this->selectNodes($method); return $result[0] if @result; } } return; } 1;