use new Moose::Exporter features
Jesse Luehrs [Tue, 1 Dec 2009 21:53:46 +0000 (15:53 -0600)]
lib/MooseX/UndefTolerant.pm

index 419a7b4..e8662fd 100644 (file)
@@ -1,27 +1,15 @@
 package MooseX::UndefTolerant;
-use strict;
-use warnings;
 
 use Moose qw();
 use Moose::Exporter;
-use Moose::Util::MetaRole;
 
 use MooseX::UndefTolerant::Attribute;
 
 our $VERSION = '0.01';
 
-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 => [ 'MooseX::UndefTolerant::Attribute' ]
-    );
-}
+Moose::Exporter->setup_import_methods(
+    attribute_metaclass_roles => [ 'MooseX::UndefTolerant::Attribute' ]
+);
 
 1;