Mercurial > pub > Impl

diff Lib/IMPL/DOM/Node.pm @ 1:3b418b134d8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ORM in progress
author Sergey
date Fri, 17 Jul 2009 13:30:46 +0400
parents 03e58a454b20
children e59f44f75f20
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Node.pm	Tue Jul 14 12:54:37 2009 +0400
+++ b/Lib/IMPL/DOM/Node.pm	Fri Jul 17 13:30:46 2009 +0400
@@ -8,6 +8,8 @@
 use IMPL::Class::Property::Direct;
 use Scalar::Util qw(weaken);
 
+use IMPL::Exception;
+
 __PACKAGE__->PassThroughArgs;
 
 BEGIN {
@@ -20,8 +22,9 @@
 }
 
 sub CTOR {
-    my $this = @_;
+    my ($this,$name) = @_;
     
+    $this->nodeName($name) or die new IMPL::InvalidArgumentException("A name is required");
     $this->_propertyMap({});
 }