summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-06-02 11:35:13 +0200
committerfranck cuny <franck@lumberjaph.net>2010-06-02 11:35:13 +0200
commit31baf7b70e2f7c63476685afe18fc7c4697274d4 (patch)
tree90ef8cedb304f4c384a936c0ffe7d58be3de94d4
parentuse JSON, add POD (diff)
downloadmoosex-net-api-31baf7b70e2f7c63476685afe18fc7c4697274d4.tar.gz
meta class with role
-rw-r--r--lib/MooseX/Net/API/Meta/Class.pm23
1 files changed, 4 insertions, 19 deletions
diff --git a/lib/MooseX/Net/API/Meta/Class.pm b/lib/MooseX/Net/API/Meta/Class.pm
index e4bed0c..376578d 100644
--- a/lib/MooseX/Net/API/Meta/Class.pm
+++ b/lib/MooseX/Net/API/Meta/Class.pm
@@ -1,25 +1,10 @@
 package MooseX::Net::API::Meta::Class;
 
 use Moose::Role;
-use Moose::Meta::Class;
-use MooseX::Types::Moose qw(Str ArrayRef ClassName Object);
 
-has local_api_methods => (
-    traits     => ['Array'],
-    is         => 'ro',
-    isa        => ArrayRef [Str],
-    required   => 1,
-    default    => sub { [] },
-    auto_deref => 1,
-    handles    => { '_add_api_method' => 'push' },
-);
-
-sub _build_meta_class {
-    my $self = shift;
-    return Moose::Meta::Class->create_anon_class(
-        superclasses => [ $self->method_metaclass ],
-        cache        => 1,
-    );
-}
+with qw/
+    MooseX::Net::API::Meta::Method::APIMethod
+    MooseX::Net::API::Meta::Method::APIDeclare
+    /;
 
 1;