diff options
author | franck cuny <franck@lumberjaph.net> | 2010-04-29 14:07:28 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-04-29 14:07:28 +0200 |
commit | 9877be34968be4bcd831c28d09a96887acc715b9 (patch) | |
tree | ce7017ec3c01890164eddfb3923778059bab2085 /lib/MooseX/Privacy/Trait/Protected.pm | |
parent | update makefile (diff) | |
download | moosex-privacy-9877be34968be4bcd831c28d09a96887acc715b9.tar.gz |
parameterized role for private and protected trait
Diffstat (limited to 'lib/MooseX/Privacy/Trait/Protected.pm')
-rw-r--r-- | lib/MooseX/Privacy/Trait/Protected.pm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lib/MooseX/Privacy/Trait/Protected.pm b/lib/MooseX/Privacy/Trait/Protected.pm index eaaf10b..0c49719 100644 --- a/lib/MooseX/Privacy/Trait/Protected.pm +++ b/lib/MooseX/Privacy/Trait/Protected.pm @@ -1,16 +1,7 @@ package MooseX::Privacy::Trait::Protected; use Moose::Role; - -around accessor_metaclass => sub { - my ( $orig, $self, @rest ) = @_; - - return Moose::Meta::Class->create_anon_class( - superclasses => [ $self->$orig(@_) ], - roles => ['MooseX::Privacy::Meta::Attribute::Protected'], - cache => 1 - )->name; -}; +with 'MooseX::Privacy::Trait::Role' => {name => 'protected'}; 1; |