From 2389782526e6c35589bb4d9bbadea78559ac1eda Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 26 Oct 2010 17:35:08 +0200
Subject: add role to trace

---
 lib/Net/HTTP/Spore/Meta/Class.pm        | 2 +-
 lib/Net/HTTP/Spore/Meta/Method/Spore.pm | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/Net/HTTP/Spore/Meta')

diff --git a/lib/Net/HTTP/Spore/Meta/Class.pm b/lib/Net/HTTP/Spore/Meta/Class.pm
index 4ddd5c6..7571305 100644
--- a/lib/Net/HTTP/Spore/Meta/Class.pm
+++ b/lib/Net/HTTP/Spore/Meta/Class.pm
@@ -4,7 +4,7 @@ package Net::HTTP::Spore::Meta::Class;
 
 use Moose::Role;
 
-with qw/Net::HTTP::Spore::Meta::Method::Spore/;
+with qw/Net::HTTP::Spore::Meta::Method::Spore Net::HTTP::Spore::Role::Debug/;
 
 1;
 
diff --git a/lib/Net/HTTP/Spore/Meta/Method/Spore.pm b/lib/Net/HTTP/Spore/Meta/Method/Spore.pm
index 1cea574..a616149 100644
--- a/lib/Net/HTTP/Spore/Meta/Method/Spore.pm
+++ b/lib/Net/HTTP/Spore/Meta/Method/Spore.pm
@@ -54,6 +54,12 @@ sub add_spore_method {
 
     my $code = delete $options{code};
 
+    $meta->_trace_msg( '-> attach ' 
+          . $name . ' ('
+          . $options{method} . ' => '
+          . $options{path}
+          . ')' );
+
     $meta->add_method(
         $name,
         Net::HTTP::Spore::Meta::Method->wrap(
-- 
cgit v1.2.3