view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'Dispatch actions based on HTTP Accept Header'
author:
  - 'John Napiorkowski L<email:jjnapiork@cpan.org>'
build_requires:
  Catalyst: 0
  Catalyst::Controller::ActionRole: 0
  Catalyst::Test: 0
  ExtUtils::MakeMaker: 6.59
  HTTP::Request::Common: 0
  Moose: 0
  Test::More: '0.96'
configure_requires:
  ExtUtils::MakeMaker: 6.59
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.16'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html

Makefile.PL  view on Meta::CPAN

requires 'Moose';
requires 'Perl6::Junction';
requires 'namespace::autoclean';
requires 'HTTP::Headers::Util';

test_requires 'Test::More' => '0.96';
test_requires 'Moose';
test_requires 'Catalyst';
test_requires 'Catalyst::Test';
test_requires 'Catalyst::Controller::ActionRole';
test_requires 'HTTP::Request::Common';

require 'maint/Makefile.PL.include'
  unless -e 'META.yml';

WriteAll;

t/basic.t  view on Meta::CPAN

use strict;
use warnings FATAL =>'all';

use FindBin;
use Test::More;
use HTTP::Request::Common qw/GET/;

use lib "$FindBin::Bin/lib";
use Catalyst::Test 'TestApp';

SKIP: {
  skip 'Catalyst Not in Debug Mode', 4 unless TestApp->debug;
  is request(GET '/foo?http-accept=text/plain')->content, 'text_plain';
  is request(GET '/foo?http-accept=text/html')->content, 'text_html';
  is request(GET '/foo?http-accept=application/json')->content, 'json';
  is request(GET '/text_plain_and_html?http-accept=text/html&http-accept=text/plain')->content, 'text_plain_and_html';