Mercurial > pub > Impl
diff Lib/IMPL/Object/Meta.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 03e58a454b20 |
children | 76b878ad6596 |
line wrap: on
line diff
--- a/Lib/IMPL/Object/Meta.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/IMPL/Object/Meta.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,23 +1,23 @@ -package IMPL::Object::Meta; -use strict; -use warnings; - -use base qw(IMPL::Object); -use IMPL::Class::Property; -use IMPL::Class::Property::Direct; - -BEGIN { - public _direct property Container => prop_get; -} - -sub meta { - my $class = shift; - my $caller = caller; - my $meta = $class->surrogate(); - $meta->{$Container} = $caller; - $meta->callCTOR(@_); - $caller->set_meta($meta); -} - - -1; +package IMPL::Object::Meta; +use strict; +use warnings; + +use base qw(IMPL::Object); +use IMPL::Class::Property; +use IMPL::Class::Property::Direct; + +BEGIN { + public _direct property Container => prop_get; +} + +sub meta { + my $class = shift; + my $caller = caller; + my $meta = $class->surrogate(); + $meta->{$Container} = $caller; + $meta->callCTOR(@_); + $caller->set_meta($meta); +} + + +1;