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/Role.pm | |
parent | update makefile (diff) | |
download | moosex-privacy-9877be34968be4bcd831c28d09a96887acc715b9.tar.gz |
parameterized role for private and protected trait
Diffstat (limited to '')
-rw-r--r-- | lib/MooseX/Privacy/Trait/Role.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/MooseX/Privacy/Trait/Role.pm b/lib/MooseX/Privacy/Trait/Role.pm new file mode 100644 index 0000000..9d8c274 --- /dev/null +++ b/lib/MooseX/Privacy/Trait/Role.pm @@ -0,0 +1,22 @@ +package MooseX::Privacy::Trait::Role; + +use MooseX::Role::Parameterized; + +parameter name => ( isa => 'Str', required => 1, ); + +role { + my $p = shift; + my $role_name = "MooseX::Privacy::Meta::Attribute::" . ucfirst($p->name); + + around accessor_metaclass => sub { + my ( $orig, $self, @rest ) = @_; + + return Moose::Meta::Class->create_anon_class( + superclasses => [ $self->$orig(@_) ], + roles => [$role_name], + cache => 1 + )->name; + }; +}; + +1; |