RequestNegotiation.pm

package Mojolicious::Plugin::RequestNegotiation;

use Mojo::Base 'Mojolicious::Plugin';

use Carp ();

sub register {
  my ($plugin, $app, $conf) = @_;
  $app->helper(sent => \&_sent);
  $app->helper(when_sent => \&_when_sent);
}

sub _sent {
  my $c = shift;
  my $got = $c->req->headers->content_type;
  my @exts = @{$c->app->types->detect($got, 1)};
  return \@exts unless @_;

  # Find best representation
  for my $ext (@exts) { $ext eq $_ and return $ext for @_ }
  return @exts ? undef : shift;
}

sub _when_sent {
  my ($c, $actions) = (shift, ref $_[0] ? $_[0] : {@_});

  for my $type (@{_sent($c)}, 'any') {
    if (my $action = $actions->{$type}) {
      return $c->$action();
    }
  }
  Carp::croak 'No handler was found, perhaps you want to include "any"?';
}

1;

=head1 NAME

Mojolicious::Plugin::RequestNegotiation - Like content negotiation but for the request

=head1 SYNOPSIS

=head1 DESCRIPTION