diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-10-26 17:35:08 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-10-26 17:35:08 +0200 |
| commit | 2389782526e6c35589bb4d9bbadea78559ac1eda (patch) | |
| tree | 89ab004cc9edfb2a76ec60ebd14f1c973b6e0c5b /lib/Net/HTTP/Spore/Meta | |
| parent | add expected_status to top level (diff) | |
| download | net-http-spore-2389782526e6c35589bb4d9bbadea78559ac1eda.tar.gz | |
add role to trace
Diffstat (limited to 'lib/Net/HTTP/Spore/Meta')
| -rw-r--r-- | lib/Net/HTTP/Spore/Meta/Class.pm | 2 | ||||
| -rw-r--r-- | lib/Net/HTTP/Spore/Meta/Method/Spore.pm | 6 |
2 files changed, 7 insertions, 1 deletions
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( |