Mercurial > pub > Impl

comparison _test/Test/Resources/Format.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 16ada169ca75
children
comparison
equal deleted inserted replaced
165:76515373dac0 166:4267a2ac3d46
1 package Test::Resources::Format; 1 package Test::Resources::Format;
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 failed); 6 use IMPL::Test qw(test failed);
7 use IMPL::Resources::Format qw(FormatMessage); 7 use IMPL::Resources::Format qw(FormatMessage);
8 8
9 __PACKAGE__->PassThroughArgs; 9 __PACKAGE__->PassThroughArgs;
10 10
11 { 11 {
12 package Args; 12 package Args;
13 use base qw(IMPL::Object); 13 use parent qw(IMPL::Object);
14 14
15 sub foo { 15 sub foo {
16 return { name => 'Args::foo', value => 'some value'} 16 return { name => 'Args::foo', value => 'some value'}
17 } 17 }
18 } 18 }