From 9877be34968be4bcd831c28d09a96887acc715b9 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 29 Apr 2010 14:07:28 +0200
Subject: parameterized role for private and protected trait

---
 lib/MooseX/Privacy/Trait/Private.pm | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'lib/MooseX/Privacy/Trait/Private.pm')

diff --git a/lib/MooseX/Privacy/Trait/Private.pm b/lib/MooseX/Privacy/Trait/Private.pm
index 8fca8b9..9f5eeb9 100644
--- a/lib/MooseX/Privacy/Trait/Private.pm
+++ b/lib/MooseX/Privacy/Trait/Private.pm
@@ -1,16 +1,7 @@
 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;
-};
+with 'MooseX::Privacy::Trait::Role' => {name => 'private'};
 
 1;
 
-- 
cgit v1.2.3