Mercurial > pub > Impl
comparison Lib/IMPL/Class/Meta.pm @ 263:0f59b2de72af
*fixed IMPL::DOM::Schema circular module references
*modified IMPL::Object::Singleton, added auto-activation
*code cleanups, docs
| author | sergey |
|---|---|
| date | Wed, 09 Jan 2013 05:17:44 +0400 |
| parents | 6d8092d8ce1b |
| children | af8af4b8337e |
comparison
equal
deleted
inserted
replaced
| 262:4ac39b9e2ca4 | 263:0f59b2de72af |
|---|---|
| 132 | 132 |
| 133 no strict 'refs'; | 133 no strict 'refs'; |
| 134 | 134 |
| 135 *{"${class}::$name"} = sub { | 135 *{"${class}::$name"} = sub { |
| 136 my $self = shift; | 136 my $self = shift; |
| 137 $self = ref $self || $self; | |
| 137 | 138 |
| 138 if ($class ne $self) { | 139 if ($class ne $self) { |
| 139 if (@_ > 0) { | 140 if (@_ > 0) { |
| 140 $self->static_accessor_own( $name => $_[0] ); # define own class data | 141 $self->static_accessor_own( $name => $_[0] ); # define own class data |
| 141 } else { | 142 } else { |