adding metaclass alias

diff --git a/lib/MooseX/Storage.pm b/lib/MooseX/Storage.pm
index 549b15a..07bc85f 100644 (file)
--- a/lib/MooseX/Storage.pm
+++ b/lib/MooseX/Storage.pm
@@ -2,6 +2,8 @@
 package MooseX::Storage;
 use Moose qw(confess);
 
+use MooseX::Storage::Meta::Attribute::DoNotSerialize;
+
 sub import {
     my $pkg = caller();
     

diff --git a/lib/MooseX/Storage/Meta/Attribute/DoNotSerialize.pm b/lib/MooseX/Storage/Meta/Attribute/DoNotSerialize.pm
index e7b3ad3..7856ad5 100644 (file)
--- a/lib/MooseX/Storage/Meta/Attribute/DoNotSerialize.pm
+++ b/lib/MooseX/Storage/Meta/Attribute/DoNotSerialize.pm
@@ -4,6 +4,10 @@ use Moose;
 
 extends 'Moose::Meta::Attribute';
 
+# register this alias ...
+package Moose::Meta::Attribute::Custom::DoNotSerialize;
+sub register_implementation { 'MooseX::Storage::Meta::Attribute::DoNotSerialize' }
+
 1;
 
 __END__

diff --git a/t/004_w_cycles.t b/t/004_w_cycles.t
index 3cb3a0b..cca0e22 100644 (file)
--- a/t/004_w_cycles.t
+++ b/t/004_w_cycles.t
@@ -70,7 +70,7 @@ This test demonstrates two things:
     );
     
     has 'parent' => (
-        metaclass => 'MooseX::Storage::Meta::Attribute::DoNotSerialize',
+        metaclass => 'DoNotSerialize',
         is        => 'rw', 
         isa       => 'Tree',
     );