Yet Another CPAN Grep

Web-MREST-CLI ( S/SM/SMITHFARM/Web-MREST-CLI-0.284.tar.gz, SMITHFARM, 2022; MetaCPAN )

Web-MREST-CLI/lib/Web/MREST/CLI.pm ( view source; MetaCPAN )

pec was first released with perl 5.00405
use HTTP::Request::Common qw( GET PUT POST DELETE );
use JSON;
use Log::Any::Adapter;
use LWP::UserAgent;
use LWP::Protocol::https;
#print "LWP::UserAgent: ".L

  GET => \&GET,
    PUT => \&PUT,
    POST => \&POST,
    DELETE => \&DELETE,
);

my %sh;
our $JSON = JSON->new->allow_nonref->convert_blessed->utf8->pretty;




=head1 FUNCTIONS


=head2 init_cli_cli

>cookie_jar };


=head2 send_req

Send a request to the server, get the response, convert it from JSON, and
return it to caller. Die on unexpected errors.

=cut

sub send_req {
    no strict 'refs';

Web-MREST-CLI ( S/SM/SMITHFARM/Web-MREST-CLI-0.284.tar.gz, SMITHFARM, 2022; MetaCPAN )

Web-MREST-CLI/lib/Web/MREST/CLI/Parser.pm ( view source; MetaCPAN )

tml = shift @tokens;
                my $json = join( ' ', @tokens );
                if ( $json ) {
                    $json = '"' . $json . '"' unless $json =~ m/^".*"$/;
                    if ( $

die send_req( $method, 'docu/pod', $json );
                    } elsif ( $pod_html =~ m/^htm/i ) {
                        die send_req( $method, 'docu/html', $json );
                    } elsif ( $

pod_html =~ m/^tex/i ) {
                        die send_req( $method, 'docu/text', $json );
                    } 
                } else {
                    print "You should specify a resource\n