Mercurial > pub > Impl

comparison Lib/IMPL/Class/Meta.pm @ 164:eb3e9861a761

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SQL traits in progress
author wizard
date Mon, 28 Mar 2011 01:36:24 +0400
parents 6ce1f052b90a
children 76515373dac0
comparison
equal deleted inserted replaced
163:6ce1f052b90a 164:eb3e9861a761
67 if (@_ > 1) { 67 if (@_ > 1) {
68 my $self = shift; 68 my $self = shift;
69 $self = ref $self || $self; 69 $self = ref $self || $self;
70 70
71 if ($class ne $self) { 71 if ($class ne $self) {
72 $self->class_data_accessor( $name => $_[0]); 72 $self->static_accessor( $name => $_[0]); # define own class data
73 } else { 73 } else {
74 $value = $_[0]; 74 $value = $_[0];
75 } 75 }
76 } else { 76 } else {
77 $value; 77 $value;