Mercurial > pub > Impl

comparison Lib/IMPL/Test/Unit.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 f8de52d3c112
children 2184fa28b49e
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package IMPL::Test::Unit; 1 package IMPL::Test::Unit;
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 4
5 use base qw(IMPL::Object); 5 use parent qw(IMPL::Object);
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 7
8 use Time::HiRes qw(gettimeofday tv_interval); 8 use Time::HiRes qw(gettimeofday tv_interval);
9 9
10 use Error qw(:try); 10 use Error qw(:try);
108 ); 108 );
109 } 109 }
110 } 110 }
111 111
112 package IMPL::Test::Unit::TestInfo; 112 package IMPL::Test::Unit::TestInfo;
113 use base qw(IMPL::Object::Meta); 113 use parent qw(IMPL::Object::Meta);
114 use IMPL::Class::Property; 114 use IMPL::Class::Property;
115 115
116 require IMPL::Exception; 116 require IMPL::Exception;
117 117
118 BEGIN { 118 BEGIN {
126 $this->Name($name); 126 $this->Name($name);
127 $this->Code($code) or die new IMPL::InvalidArgumentException("The Code is a required parameter"); 127 $this->Code($code) or die new IMPL::InvalidArgumentException("The Code is a required parameter");
128 } 128 }
129 129
130 package IMPL::Test::Unit::SharedData; 130 package IMPL::Test::Unit::SharedData;
131 use base qw(IMPL::Object::Meta); 131 use parent qw(IMPL::Object::Meta);
132 use IMPL::Class::Property; 132 use IMPL::Class::Property;
133 133
134 BEGIN { 134 BEGIN {
135 public property DataList => prop_all | prop_list; 135 public property DataList => prop_all | prop_list;
136 } 136 }