diff options
author | franck cuny <franck@lumberjaph.net> | 2010-06-08 17:30:55 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-06-08 17:33:00 +0200 |
commit | 2bb154b2b3bbe819c98a01d9d43f2183e6389401 (patch) | |
tree | 1a304667863e5feb12c543dfbb72a579e88901c9 /lib/Net/HTTP/Console/Role | |
parent | move code to appropriate role (diff) | |
download | net-http-console-2bb154b2b3bbe819c98a01d9d43f2183e6389401.tar.gz |
add dispatcher for viewing content; update help
Diffstat (limited to '')
-rw-r--r-- | lib/Net/HTTP/Console/Role/API.pm | 34 | ||||
-rw-r--r-- | lib/Net/HTTP/Console/Role/Plugins.pm | 4 |
2 files changed, 24 insertions, 14 deletions
diff --git a/lib/Net/HTTP/Console/Role/API.pm b/lib/Net/HTTP/Console/Role/API.pm index 0b99796..c6ea1f2 100644 --- a/lib/Net/HTTP/Console/Role/API.pm +++ b/lib/Net/HTTP/Console/Role/API.pm @@ -4,6 +4,8 @@ use MooseX::Declare; role Net::HTTP::Console::Role::API { + use Try::Tiny; + has api_lib => ( isa => 'Str', is => 'rw', @@ -21,21 +23,29 @@ role Net::HTTP::Console::Role::API { ); method load_api_lib($lib) { - Class::MOP::load_class($lib); - $self->api_lib($lib); - my $o = $lib->new(); - $o->api_base_url($self->url) if $self->has_url; - $o->api_format($self->format) if $self->has_format; - $o->api_format_mode($self->format_mode) if $self->has_format_mode; - $o; + try { + Class::MOP::load_class($lib); + $self->api_lib($lib); + my $o = $lib->new(); + $o->api_base_url($self->url) if $self->has_url; + $o->api_format($self->format) if $self->has_format; + $o->api_format_mode($self->format_mode) if $self->has_format_mode; + $o; + }catch{ + # XXX ERROR + } } method new_anonymous_method ($http_method, $path) { - $self->api_object->meta->add_net_api_method( - 'anonymous', - method => $http_method, - path => $path, - ); + try { + $self->api_object->meta->add_net_api_method( + 'anonymous', + method => $http_method, + path => $path, + ); + }catch { + # XXX ERROR + } } } diff --git a/lib/Net/HTTP/Console/Role/Plugins.pm b/lib/Net/HTTP/Console/Role/Plugins.pm index d7bf7b5..2bddccd 100644 --- a/lib/Net/HTTP/Console/Role/Plugins.pm +++ b/lib/Net/HTTP/Console/Role/Plugins.pm @@ -5,7 +5,7 @@ use MooseX::Declare; role Net::HTTP::Console::Role::Plugins { use Try::Tiny; - + has dispatchers => ( is => 'rw', isa => 'ArrayRef[Str]', @@ -13,7 +13,7 @@ role Net::HTTP::Console::Role::Plugins { lazy => 1, auto_deref => 1, default => sub { - [qw/Load HTTP Help Method Set/], + [qw/Load HTTP Help Method Set View/], } ); |