Catalyst-TraitFor-Controller-PermissionCheck

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Moose::Role" : 0,
            "Try::Tiny" : 0
         }
      },
      "test" : {
         "requires" : {
            "Catalyst" : 0,
            "Catalyst::Controller" : 0,
            "Catalyst::Test" : 0,
            "FindBin" : 0,
            "HTTP::Request::Common" : 0,
            "Moose" : 0,
            "Test::More" : 0
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "repository" : {
         "type" : "git",
         "url" : "https://github.com/jshirley/catalyst-traitfor-controller-permissioncheck"

META.yml  view on Meta::CPAN

---
abstract: 'Provides an opinionated method for verifying permissions on a per-action basis by inspecting the user.'
author:
  - 'J. Shirley <jshirley@cpan.org>'
build_requires:
  Catalyst: 0
  Catalyst::Controller: 0
  Catalyst::Test: 0
  FindBin: 0
  HTTP::Request::Common: 0
  Moose: 0
  Test::More: 0
configure_requires:
  ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.200007, CPAN::Meta::Converter version 2.110440'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4

Makefile.PL  view on Meta::CPAN

my %WriteMakefileArgs = (
  'ABSTRACT' => 'Provides an opinionated method for verifying permissions on a per-action basis by inspecting the user.',
  'AUTHOR' => 'J. Shirley <jshirley@cpan.org>',
  'BUILD_REQUIRES' => {
    'Catalyst' => '0',
    'Catalyst::Controller' => '0',
    'Catalyst::Test' => '0',
    'FindBin' => '0',
    'HTTP::Request::Common' => '0',
    'Moose' => '0',
    'Test::More' => '0'
  },
  'CONFIGURE_REQUIRES' => {
    'ExtUtils::MakeMaker' => '6.30'
  },
  'DISTNAME' => 'Catalyst-TraitFor-Controller-PermissionCheck',
  'EXE_FILES' => [],
  'LICENSE' => 'perl',
  'NAME' => 'Catalyst::TraitFor::Controller::PermissionCheck',

t/basic.t  view on Meta::CPAN

$content  = get('/open');
is( $content, 'open', 'correct body for open' );

# This will fail
$content  = get('/close');
is( $content, 'denied', 'correct body for close' );

$content = get('/submit');
is( $content, 'denied', 'correct body for submit GET' );

use HTTP::Request::Common;
$response = request PUT '/submit', [
    nonsense_value => 'This will not even be looked at by the application. How sad.'
];
is($response->content, 'denied', 'PUT gets denied');


$response = request POST '/submit', [
    return_value => 'This is a message from a POST',
    nonsense_value => 'This will not even be looked at by the application. How sad.'
];