Yet Another CPAN Grep

Mojolicious-Command-replget ( S/SA/SADAMS/Mojolicious-Command-replget-0.01.tar.gz, SADAMS, 2017; MetaCPAN )

Mojolicious-Command-replget/lib/Mojolicious/Command/replget.pm ( view source; MetaCPAN )

 = '0.01';
$VERSION = eval $VERSION;

use Mojo::DOM;
use Mojo::IOLoop;
use Mojo::JSON qw(encode_json j);
use Mojo::JSON::Pointer;
use Mojo::UserAgent;
use Mojo::Util qw(decode encode getopt);
use Scal

$method, $url, \%headers, $content));
    my $res = $tx->result;

    # JSON Pointer
    next unless defined $selector;
    _json($buffer, $selector) and next if !length $selector || $selector =~ m!^/

ld_start_line, $_[0]->headers->to_string, "\n\n" }

sub _json {
  return unless my $data = j(shift);
  return unless defined($data = Mojo::JSON::Pointer->new($data)->get(shift));
  return _say($data)