view Lib/IMPL/Web/TT/Collection.pm @ 186:6c0fee769b0c

IMPL::Web::View::TTControl tests, fixes
author cin
date Fri, 30 Mar 2012 16:40:34 +0400
parents d1676be8afcc
children 4d0e1962161c
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;