Attempting to modernize MooseX::Accessors::ReadWritePrivate.

[Elliot Shank]

Following Dave's example in MooseX::FollowPBP, I'm attempting to update MooseX::Accessors::ReadWritePrivate.  When I do this, the "before _process_options()" in MooseX::Accessors::ReadWritePrivate::Role::Attribute is not being called as if the role isn't being applied.  (Moose: 1.08, Class::MOP: 1.03, perl 5.12.1)   

Diff from theMooseX::Accessors::ReadWritePrivate currently on CPAN:
 use version; our $VERSION = qv('v1.2.1');
 
-use Moose 0.56 qw< >;
+use Moose 0.94 qw< >;
 use Moose::Exporter;
 use Moose::Util::MetaRole;
 
 use MooseX::Accessors::ReadWritePrivate::Role::Attribute;
 
 
-Moose::Exporter->setup_import_methods();
-
-
-sub init_meta {
-    my (undef, %options) = @_;
-
-    Moose->init_meta(%options);
-
-    return
-        Moose::Util::MetaRole::apply_metaclass_roles(
-            for_class                 => $options{for_class},
-            attribute_metaclass_roles => [
-                qw< MooseX::Accessors::ReadWritePrivate::Role::Attribute >
-            ],
-        );
-} # end init_meta()
+Moose::Exporter->setup_import_methods(
+    class_metaroles => {
+        attribute => [
+            qw< MooseX::Accessors::ReadWritePrivate::Role::Attribute >
+        ],
+    },
+);
 
 
 1;