Mercurial > pub > Impl

comparison Lib/IMPL/Class/Meta.pm @ 111:6c25ea91c985

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ControllerUnit concept
author wizard
date Tue, 18 May 2010 01:33:37 +0400
parents dc1da0389db7
children 44977efed303
comparison
equal deleted inserted replaced
110:c13a215508ca 111:6c25ea91c985
198 __PACKAGE__->class_data( info => { version => 1 } ); # will be default for all subclasses 198 __PACKAGE__->class_data( info => { version => 1 } ); # will be default for all subclasses
199 199
200 sub say_version { 200 sub say_version {
201 my ($self) = @_; 201 my ($self) = @_;
202 202
203 print $self->class_data(info)->{version}; 203 print $self->class_data('info')->{version};
204 } 204 }
205 205
206 package Bar; 206 package Bar;
207 use base qw(Foo); 207 use base qw(Foo);
208 208