Mercurial > pub > Impl
comparison _test/Test/Class/Meta.pm @ 165:76515373dac0
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; |