diff Lib/IMPL/Web/TT/Document.pm @ 109:ddf0f037d460

IMPL::DOM::Node updated to support TT, (added childNodesRef and selectNodesRef for using from TT) Some fixes to the web document model. (beta version)
author wizard
date Mon, 17 May 2010 05:12:08 +0400
parents c6fb6964de4c
children 0475eb382085
line wrap: on
line diff
--- a/Lib/IMPL/Web/TT/Document.pm	Fri May 14 16:06:06 2010 +0400
+++ b/Lib/IMPL/Web/TT/Document.pm	Mon May 17 05:12:08 2010 +0400
@@ -10,6 +10,7 @@
 use Scalar::Util qw(blessed);
 use IMPL::Web::TT::Collection;
 use IMPL::Web::TT::Control;
+use Carp;
 
 BEGIN {
     private property _provider => prop_all;
@@ -100,6 +101,11 @@
 	};
 }
 
+sub isControlClass {
+	my ($this,$name) = @_;
+	return $this->_controlClassMap->{$name} ? 1 : 0;
+}
+
 sub _getControls {
 	my ($this) = @_;
 	
@@ -190,6 +196,7 @@
 	my @result = $this->selectNodes($method);
 	
 	return $result[0] if @result;
+	carp "Looks like you have a mistake, document doesn't have a such property or child: $method";
 	return;
 }