Mercurial > pub > Impl

comparison _test/Test/Class/Meta.pm @ 165:76515373dac0

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:06:48 +0400
parents dc1da0389db7
children 4d0e1962161c
comparison
equal deleted inserted replaced
164:eb3e9861a761 165:76515373dac0
1 use strict; 1 use strict;
2 2
3 package Test::Class::Meta; 3 package Test::Class::Meta;
4 use base qw(IMPL::Test::Unit); 4 use parent qw(IMPL::Test::Unit);
5 5
6 __PACKAGE__->PassThroughArgs; 6 __PACKAGE__->PassThroughArgs;
7 7
8 use IMPL::Test qw(test failed); 8 use IMPL::Test qw(test failed);
9 9
44 }; 44 };
45 45
46 46
47 47
48 package Foo; 48 package Foo;
49 use base qw(IMPL::Class::Meta); 49 use parent qw(IMPL::Class::Meta);
50 50
51 package Bar; 51 package Bar;
52 use base qw(Foo); 52 use parent qw(-norequire Foo);
53 53
54 package Baz; 54 package Baz;
55 use base qw(Foo); 55 use parent qw(-norequire Foo);
56 56
57 1; 57 1;