Mercurial > pub > Impl

comparison _test/Test/DOM/Node.pm @ 166:4267a2ac3d46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Class::Template, Rewritten SQL::Schema 'use parent' directive instead of 'use base'
author wizard
date Sat, 23 Apr 2011 23:12:06 +0400
parents e6447ad85cb4
children 029c9610528c
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package Test::DOM::Node; 1 package Test::DOM::Node;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::Test::Unit); 5 use parent qw(IMPL::Test::Unit);
6 use IMPL::Test qw(test shared failed cmparray); 6 use IMPL::Test qw(test shared failed cmparray);
7 use IMPL::Class::Property; 7 use IMPL::Class::Property;
8 8
9 require IMPL::DOM::Node; 9 require IMPL::DOM::Node;
10 10
225 225
226 failed "Got wrong list of props", @props unless cmparray(\@props,\@expected); 226 failed "Got wrong list of props", @props unless cmparray(\@props,\@expected);
227 }; 227 };
228 228
229 package Test::DOM::TypedNode; 229 package Test::DOM::TypedNode;
230 use base qw(IMPL::DOM::Node); 230 use parent qw(IMPL::DOM::Node);
231 use IMPL::Class::Property; 231 use IMPL::Class::Property;
232 use IMPL::DOM::Property qw(_dom); 232 use IMPL::DOM::Property qw(_dom);
233 233
234 __PACKAGE__->PassThroughArgs; 234 __PACKAGE__->PassThroughArgs;
235 235