summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP/Console
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net/HTTP/Console')
-rw-r--r--lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm30
-rw-r--r--lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm37
-rw-r--r--lib/Net/HTTP/Console/Dispatcher/Headers.pm49
-rw-r--r--lib/Net/HTTP/Console/Dispatcher/LoadLib.pm7
-rw-r--r--lib/Net/HTTP/Console/Role/APILib.pm26
-rw-r--r--lib/Net/HTTP/Console/Role/DefaultMethod.pm20
-rw-r--r--lib/Net/HTTP/Console/Role/HTTP.pm3
-rw-r--r--lib/Net/HTTP/Console/Role/Headers.pm19
8 files changed, 130 insertions, 61 deletions
diff --git a/lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm b/lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm
index 08536f3..12a66e4 100644
--- a/lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm
+++ b/lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm
@@ -1,31 +1,25 @@
package Net::HTTP::Console::Dispatcher::ExecuteMethod;
use Moose;
-with qw/
- Net::HTTP::Console::Dispatcher
- Net::HTTP::Console::Role::HTTP
- /;
+with qw/Net::HTTP::Console::Dispatcher/;
sub dispatch {
my ($self, $input) = @_;
- $input =~ /^(\w+)\s(.*)$/;
- my $method = $1;
- my $args = $2;
- my $o = $self->lib->new();
- my ($content, $response) = $o->$method(%{JSON::decode_json($args)});
- $self->_set_and_show($content, $response);
+ (my $method, my $args) = $input =~ /^(\w+)\s(.*)$/;
+ my ($content, $response) =
+ $self->application->api_object->$method(%{JSON::decode_json($args)});
+ $self->application->_set_and_show($content, $response);
+ 1;
}
sub pattern {
my ($self, $input) = @_;
- $input =~ /^(\w+)/;
- my $method = $1;
- # find_api_method_by_name ?
- if ($self->application->lib->meta->find_method_by_name($method)) {
- return 1;
- }else{
- return 0;
- }
+ (my $method) = $input =~ /^(\w+)/;
+
+ # XXX find_api_method_by_name ?
+ $self->application->api_object->meta->find_method_by_name($method)
+ ? return $input
+ : return 0;
}
1;
diff --git a/lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm b/lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm
index fd429b4..ec8892f 100644
--- a/lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm
+++ b/lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm
@@ -3,10 +3,7 @@ package Net::HTTP::Console::Dispatcher::HTTPRequest;
use Moose;
use Try::Tiny;
-with qw/
- Net::HTTP::Console::Dispatcher
- Net::HTTP::Console::Role::HTTP
- /;
+with qw/ Net::HTTP::Console::Dispatcher /;
sub _clean_http_lib {
my $self = shift;
@@ -27,11 +24,12 @@ sub dispatch {
elsif ($input =~ /^(POST|PUT)\s(.*)(?:\s(.*))$/) {
$self->_do_request_with_body($1, $2, $3);
}
- elsif($input =~ /^show\s(headers|content)$/) {
+ elsif ($input =~ /^show\s(headers|content)$/) {
my $method = "_show_last_$1";
- $self->$method;
+ $self->application->$method;
}
else {
+
# XXX unsupporter method
}
return 1;
@@ -39,30 +37,39 @@ sub dispatch {
sub pattern {
my ($self, $input) = @_;
- $input =~ /^(?:GET|POST|PUT|DELETE|HEAD|show)/ ? return $input : return 0;
+ $input =~ /^(?:GET|POST|PUT|DELETE|HEAD|show)\s/ ? return $input : return 0;
}
sub _do_request {
my ($self, $http_method, $path) = @_;
- my $http_console = $self->application->new_lib($http_method, $path);
+ $self->application->new_anonymous_method($http_method, $path);
try {
- my ($content, $result) = $http_console->anonymous;
- $self->_set_and_show($content, $result);
+ my ($content, $result) = $self->application->api_object->anonymous;
+ $self->application->_set_and_show($content, $result);
+ }catch{
+ warn $_;
};
}
sub _do_request_with_body {
my ($self, $http_method, $path, $body) = @_;
- my $http_console = $self->application->new_lib($http_method, $path);
- $http_console->api_useragent->add_handler(
+ $self->application->new_anonymous_method($http_method, $path);
+
+ # XXX clean handlers
+ $self->application->api_object->api_useragent->add_handler(
request_prepare => sub {
my $request = shift;
- $request->content($body);
+ $request->header('Content-Type' => 'application/json');
+ $request->content('{"foof":"bar"}');
}
);
try {
- my ($content, $result) = $http_console->anonymous;
- $self->_set_and_show($content, $result);
+ my ($content, $result) = $self->application->api_object->anonymous;
+ $self->application->_set_and_show($content, $result);
+ }catch{
+ warn $_;
+ use YAML::Syck;
+ warn Dump $_->http_error;
};
}
diff --git a/lib/Net/HTTP/Console/Dispatcher/Headers.pm b/lib/Net/HTTP/Console/Dispatcher/Headers.pm
new file mode 100644
index 0000000..4c29098
--- /dev/null
+++ b/lib/Net/HTTP/Console/Dispatcher/Headers.pm
@@ -0,0 +1,49 @@
+package Net::HTTP::Console::Dispatcher::Headers;
+
+use Moose;
+with qw/Net::HTTP::Console::Dispatcher/;
+
+sub dispatch {
+ my ($self, $input) = @_;
+
+ (my $command, my $header, my $value) =
+ $input =~ /^([\w_]+)(?:\s([\w-]+))?(?:\s(.*))?$/;
+
+ if ($command eq 'unset_header') {
+ $self->_unset_header($header);
+ }
+ elsif ($command eq 'set_header') {
+ $self->_set_header($header, $value);
+ }
+ elsif ($command eq 'show_defined_headers') {
+ $self->_show_defined_headers();
+ }
+}
+
+sub pattern {
+ my ($self, $input) = @_;
+ $input =~ /(un)?set_header|show_defined_headers/
+ ? return $input
+ : return 0;
+}
+
+sub _unset_header {
+ my ($self, $header) = @_;
+ $self->application->delete_header($header);
+ print "header $header unset\n";
+}
+
+sub _set_header {
+ my ($self, $header, $value) = @_;
+ $self->application->set_header($header, $value);
+ print "header $header set to $value\n";
+}
+
+sub _show_defined_headers{
+ my $self = shift;
+ foreach ($self->application->all_headers) {
+ print $_->[0].": ".$_->[1]."\n";
+ }
+}
+
+1;
diff --git a/lib/Net/HTTP/Console/Dispatcher/LoadLib.pm b/lib/Net/HTTP/Console/Dispatcher/LoadLib.pm
index 7aac18f..d5e97cc 100644
--- a/lib/Net/HTTP/Console/Dispatcher/LoadLib.pm
+++ b/lib/Net/HTTP/Console/Dispatcher/LoadLib.pm
@@ -7,12 +7,7 @@ with qw/Net::HTTP::Console::Dispatcher/;
sub dispatch {
my ($self, $input) = @_;
- if (Class::MOP::load_class($input)) {
- print "loaded ".$input."\n";
- $self->application->lib($input);
- return 1;
- }
- # XXX error confess & co
+ $self->application->load_api_lib($input);
}
sub pattern {
diff --git a/lib/Net/HTTP/Console/Role/APILib.pm b/lib/Net/HTTP/Console/Role/APILib.pm
new file mode 100644
index 0000000..5f5aff1
--- /dev/null
+++ b/lib/Net/HTTP/Console/Role/APILib.pm
@@ -0,0 +1,26 @@
+package Net::HTTP::Console::Role::APILib;
+
+use Moose::Role;
+
+has lib => (isa => 'Str', is => 'rw', default => 'Net::HTTP::Console::Dummy');
+has api_object => (
+ isa => 'Object',
+ is => 'rw',
+ lazy => 1,
+ default => sub {
+ my $self = shift;
+ $self->load_api_lib($self->lib);
+ },
+);
+
+sub load_api_lib {
+ my ($self, $lib) = @_;
+ Class::MOP::load_class($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;
+}
+
+1;
diff --git a/lib/Net/HTTP/Console/Role/DefaultMethod.pm b/lib/Net/HTTP/Console/Role/DefaultMethod.pm
deleted file mode 100644
index c8f858e..0000000
--- a/lib/Net/HTTP/Console/Role/DefaultMethod.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-package Net::HTTP::Console::Role::DefaultMethod;
-
-use Moose::Role;
-use JSON;
-use Method::Signatures::Simple;
-use namespace::autoclean;
-
-with qw/Net::HTTP::Console::Role::HTTP/;
-
-method from_lib {
- my $input = shift;
- $input =~ /^(\w+)\s(.*)$/;
- my $method = $1;
- my $args = $2;
- my $o = $self->lib->new();
- my ($content, $response) = $o->$method(%{JSON::decode_json($args)});
- $self->_set_and_show($content, $response);
-}
-
-1;
diff --git a/lib/Net/HTTP/Console/Role/HTTP.pm b/lib/Net/HTTP/Console/Role/HTTP.pm
index d0bd2c8..292de40 100644
--- a/lib/Net/HTTP/Console/Role/HTTP.pm
+++ b/lib/Net/HTTP/Console/Role/HTTP.pm
@@ -33,8 +33,7 @@ sub _show_last_headers {
sub _set_and_show {
my ($self, $content, $response) = @_;
- my $json = $self->_json->pretty->encode($content);
- $self->_last_http_content($json);
+ $self->_last_http_content($self->_json->pretty->encode($content));
$self->_last_http_response($response);
$self->_show_last_content;
}
diff --git a/lib/Net/HTTP/Console/Role/Headers.pm b/lib/Net/HTTP/Console/Role/Headers.pm
new file mode 100644
index 0000000..d694d85
--- /dev/null
+++ b/lib/Net/HTTP/Console/Role/Headers.pm
@@ -0,0 +1,19 @@
+package Net::HTTP::Console::Role::Headers;
+
+use Moose::Role;
+
+has custom_headers => (
+ traits => ['Hash'],
+ is => 'ro',
+ isa => 'HashRef[Str]',
+ default => sub { {} },
+ handles => {
+ set_header => 'set',
+ get_header => 'get',
+ has_no_headers => 'is_empty',
+ delete_header => 'delete',
+ all_headers => 'kv',
+ },
+);
+
+1;
generated by cgit v1.2.3 (git 2.25.1) at 2025-12-06 17:25:34 +0000