Mercurial > pub > Impl
diff Lib/IMPL/DOM/Document.pm @ 315:77df11605d3a
code cleanup
author | cin |
---|---|
date | Tue, 07 May 2013 02:19:24 +0400 |
parents | c6d0f889ef87 |
children | 010ceafd0c5a |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Document.pm Thu May 02 10:43:49 2013 +0400 +++ b/Lib/IMPL/DOM/Document.pm Tue May 07 02:19:24 2013 +0400 @@ -3,9 +3,14 @@ use warnings; use IMPL::lang; -use parent qw(IMPL::DOM::Node); - -__PACKAGE__->PassThroughArgs; +use IMPL::declare { + require => { + DOMNode => 'IMPL::DOM::Node' + }, + base => [ + DOMNode => '@_' + ] +}; sub document { return $_[0]; @@ -19,7 +24,7 @@ $class = undef; } - $class ||= typeof IMPL::DOM::Node; + $class ||= DOMNode; $refProps ||= {}; delete $refProps->{nodeName};