diff options
Diffstat (limited to '')
-rw-r--r-- | lib/MooseX/Privacy/Trait/Private.pm | 15 | ||||
-rw-r--r-- | lib/MooseX/Privacy/Trait/Protected.pm | 15 |
2 files changed, 30 insertions, 0 deletions
diff --git a/lib/MooseX/Privacy/Trait/Private.pm b/lib/MooseX/Privacy/Trait/Private.pm new file mode 100644 index 0000000..c588032 --- /dev/null +++ b/lib/MooseX/Privacy/Trait/Private.pm @@ -0,0 +1,15 @@ +package MooseX::Privacy::Trait::Private; + +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::Private'], + cache => 1 + )->name; +}; + +1; diff --git a/lib/MooseX/Privacy/Trait/Protected.pm b/lib/MooseX/Privacy/Trait/Protected.pm new file mode 100644 index 0000000..7a8037c --- /dev/null +++ b/lib/MooseX/Privacy/Trait/Protected.pm @@ -0,0 +1,15 @@ +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; +}; + +1; |