Make this module work with roles in Moose 1.9900+

mendel · May 5, 2011 · 185e495 · 185e495
1 parent 25e35e7
commit 185e495
Showing 1 changed file with 11 additions and 15 deletions.
diff --git a/lib/DBIx/Class/MooseColumns.pm b/lib/DBIx/Class/MooseColumns.pm
@@ -6,23 +6,19 @@ use Moose::Util::MetaRole;
 
 use DBIx::Class::MooseColumns::Meta::Role::Attribute;
 
-Moose::Exporter->setup_import_methods();
-
-sub init_meta {
-  my ($class, %args) = (shift, @_);
-
-  Moose->init_meta(%args);
-
-  Moose::Util::MetaRole::apply_metaroles(
-    for             => $args{for_class},
-    class_metaroles => {
-      attribute => ['DBIx::Class::MooseColumns::Meta::Role::Attribute'],
-    },
-  );
-
-  return $args{for_class}->meta;
+my %metaroles = (
+  class_metaroles => {
+    attribute => ['DBIx::Class::MooseColumns::Meta::Role::Attribute'],
+  },
+);
+
+if ( $Moose::VERSION >= 1.9900 ) {
+  $metaroles{role_metaroles} = {
+    applied_attribute => ['DBIx::Class::MooseColumns::Meta::Role::Attribute'],
+  };
 }
 
+Moose::Exporter->setup_import_methods(%metaroles);
 
 =head1 NAME