Catalyst-TraitFor-Request-ContentNegotiationHelpers

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'methods for your request object to assist in content negotiation'
author:
  - 'John Napiorkowski <jjnapiork@cpan.org>'
build_requires:
  Catalyst::Test: '0'
  HTTP::Request::Common: '0'
  Test::Most: '0.34'
configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 5.041, CPAN::Meta::Converter version 2.150005'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Catalyst-TraitFor-Request-ContentNegotiationHelpers

Makefile.PL  view on Meta::CPAN

  "LICENSE" => "perl",
  "NAME" => "Catalyst::TraitFor::Request::ContentNegotiationHelpers",
  "PREREQ_PM" => {
    "HTTP::Headers::ActionPack" => "0.09",
    "Moose" => "2.1403",
    "Plack::MIME" => 0,
    "Scalar::Util" => 0
  },
  "TEST_REQUIRES" => {
    "Catalyst::Test" => 0,
    "HTTP::Request::Common" => 0,
    "Test::Most" => "0.34"
  },
  "VERSION" => "0.006",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Catalyst::Test" => 0,
  "HTTP::Headers::ActionPack" => "0.09",
  "HTTP::Request::Common" => 0,
  "Moose" => "2.1403",
  "Plack::MIME" => 0,
  "Scalar::Util" => 0,
  "Test::Most" => "0.34"
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};

dist.ini  view on Meta::CPAN

[Prereqs]
Moose = 2.1403
HTTP::Headers::ActionPack = 0.09
Plack::MIME = 0
Scalar::Util = 0

[Prereqs / TestRequires]
Test::Most = 0.34
Catalyst::Test = 0
HTTP::Request::Common = 0

t/basic.t  view on Meta::CPAN

  $INC{'MyApp/Controller/Root.pm'} = __FILE__;

  package MyApp;
  use Catalyst;
  
  MyApp->request_class_traits(['Catalyst::TraitFor::Request::ContentNegotiationHelpers']);
  MyApp->setup;
}

use HTTP::Request::Common;
use Catalyst::Test 'MyApp';

{
  ok my $res = request GET '/root/choose_media_type', Accept => 'application/json';
  is $res->content, 'json';
}

{
  ok my ($res, $c) = ctx_request('/root/test');
}