Mercurial > pub > Impl
diff lib/IMPL/Class/Meta.pm @ 411:ee36115f6a34 ref20150831
sync
author | cin |
---|---|
date | Mon, 21 Sep 2015 00:53:10 +0300 |
parents | c6e90e02dd17 |
children |
line wrap: on
line diff
--- a/lib/IMPL/Class/Meta.pm Mon Sep 14 01:11:53 2015 +0300 +++ b/lib/IMPL/Class/Meta.pm Mon Sep 21 00:53:10 2015 +0300 @@ -92,13 +92,13 @@ if (@_ > 0) { if ($class ne $self) { - $self->static_accessor_clone( $name => $_[0] ); # define own class data + static_accessor_clone($self, $name => $_[0] ); # define own class data } else { $value = $_[0]; } } else { return $self ne $class - ? $self->static_accessor_clone($name => clone($value)) + ? static_accessor_clone($self, $name => clone($value)) : $value; } }; @@ -117,7 +117,7 @@ $self = ref $self || $self; if ($class ne $self) { - $self->static_accessor_inherit( $name => $_[0] ); # define own class data + static_accessor_inherit($self, $name => $_[0] ); # define own class data } else { $value = $_[0]; } @@ -139,7 +139,7 @@ if ($class ne $self) { if (@_ > 0) { - $self->static_accessor_own( $name => $_[0] ); # define own class data + static_accessor_own($self, $name => $_[0] ); # define own class data } else { return; }