Yet Another CPAN Grep

Wurm ( P/PR/PRAVUS/Wurm-0.0.8.tar.gz, PRAVUS, 2017; MetaCPAN )

Wurm/lib/Wurm/Grub/REST.pm ( view source; MetaCPAN )

 {
  my ($self, $map) = @_;

  $map //= {
    'text/html'        => 'html',
    'application/json' => 'json',
    'text/xml'         => 'xml',
    'application/xml'  => 'xml',
  };

  die "invalid typ

rvices.

=head1 SYNOPSIS

  use Wurm qw(mob let);
  use Wurm::Grub::REST;
  use Data::UUID;
  use JSON::XS;
  use Tenjin;

  my $grub = Wurm::Grub::REST->new
  ->get(
    sub {
      my $meal = shift;

json}
        ? to_json($meal)
        : to_html($meal, 'item.html')
      ;
    },
    sub {
      my $meal = shift;

      $meal->grit->{items} = $meal->mind->{meld};
      return $meal->vent->{json