From 54b15b8276e20b2ce6863ed65f6abf4963ccc363 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 2 Jun 2010 11:36:25 +0200
Subject: remove code, let the wrapper do the work

---
 lib/MooseX/Net/API/Meta/Method/APIMethod.pm | 59 +++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 lib/MooseX/Net/API/Meta/Method/APIMethod.pm

(limited to 'lib/MooseX/Net/API/Meta/Method/APIMethod.pm')

diff --git a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm
new file mode 100644
index 0000000..b1d0777
--- /dev/null
+++ b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm
@@ -0,0 +1,59 @@
+package MooseX::Net::API::Meta::Method::APIMethod;
+
+use Moose::Role;
+use MooseX::Net::API::Error;
+use MooseX::Net::API::Meta::Method;
+use MooseX::Types::Moose qw/Str ArrayRef/;
+
+has local_api_methods => (
+    traits     => ['Array'],
+    is         => 'ro',
+    isa        => ArrayRef [Str],
+    required   => 1,
+    default    => sub { [] },
+    auto_deref => 1,
+    handles    => {
+        _get_api_method  => 'grep',
+        _add_api_method  => 'push',
+        _all_api_methods => 'elements',
+    },
+);
+
+before add_net_api_method => sub {
+    my ($meta, $name) = @_;
+    if (my @method = $meta->_get_api_method(sub {/^$name$/})) {
+        die MooseX::Net::API::Error->new(
+            reason => "method '$name' is already declared in " . $meta->name);
+    }
+};
+
+sub add_net_api_method {
+    my ($meta, $name, %options) = @_;
+
+    my $code = delete $options{code};
+    $meta->add_method(
+        $name,
+        MooseX::Net::API::Meta::Method->wrap(
+            name         => $name,
+            package_name => $meta->name,
+            body         => $code,
+            %options
+        ),
+    );
+    $meta->_add_api_method($name);
+}
+
+after add_net_api_method => sub {
+    my ($meta, $name, %options) = @_;
+    $meta->add_before_method_modifier(
+        $name,
+        sub {
+            my $self = shift;
+            die MooseX::Net::API::Error->new(
+                reason => "'api_base_url' have not been defined")
+              unless $self->api_base_url;
+        }
+    );
+};
+
+1;
-- 
cgit v1.2.3


From fdb180a73f97d5a1456d5ac3d0a5a844e22d0ea9 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 3 Jun 2010 08:34:13 +0200
Subject: http-console: a simple http console to do REST query (like
 http://github.com/cloudhead/http-console)

---
 lib/MooseX/Net/API/Meta/Method/APIMethod.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/MooseX/Net/API/Meta/Method/APIMethod.pm')

diff --git a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm
index b1d0777..8185522 100644
--- a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm
+++ b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm
@@ -30,6 +30,7 @@ before add_net_api_method => sub {
 sub add_net_api_method {
     my ($meta, $name, %options) = @_;
 
+    # accept blessed method
     my $code = delete $options{code};
     $meta->add_method(
         $name,
-- 
cgit v1.2.3


From b62c50ed3c9b48d7d964134de5f4ef0fd36a6112 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 3 Jun 2010 09:50:39 +0200
Subject: update POD

---
 lib/MooseX/Net/API/Meta/Method/APIMethod.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'lib/MooseX/Net/API/Meta/Method/APIMethod.pm')

diff --git a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm
index 8185522..d55fe82 100644
--- a/lib/MooseX/Net/API/Meta/Method/APIMethod.pm
+++ b/lib/MooseX/Net/API/Meta/Method/APIMethod.pm
@@ -58,3 +58,29 @@ after add_net_api_method => sub {
 };
 
 1;
+__END__
+
+=head1 NAME
+
+MooseX::Net::API::Meta::Class::Method::APIMethod
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+=head1 AUTHOR
+
+franck cuny E<lt>franck@lumberjaph.netE<gt>
+
+=head1 SEE ALSO
+
+=head1 LICENSE
+
+Copyright 2009, 2010 by Linkfluence
+
+http://linkfluence.net
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
-- 
cgit v1.2.3