Yet Another CPAN Grep

GuacLite ( J/JB/JBERGER/GuacLite-0.02.tar.gz, JBERGER, 2021; MetaCPAN )

GuacLite/lib/GuacLite/Client/Web.pm ( view source; MetaCPAN )

package GuacLite::Client::Web;

use Mojo::Base 'Mojolicious';

use Mojo::File;
use Mojo::JSON;
use Mojo::URL;

use GuacLite::Client::Guacd;

use File::ShareDir;

has dist_dir => sub {
  my $cpanfile =

l)->name('tunnel');
}

sub _tunnel {
  my $c = shift;

  my $json = $c->req->params->pairs->[0];
  my $params = Mojo::JSON::from_json($json);
  my $target = Mojo::URL->new($params->{target});

  my $c