Catalyst-Plugin-HTML-Scrubber

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'Catalyst plugin for scrubbing/sanitizing incoming parameters'
author:
  - 'David Precious <davidp@preshweb.co.uk>'
build_requires:
  Catalyst: '0'
  Catalyst::Controller: '0'
  Catalyst::Controller::REST: '0'
  Catalyst::Test: '0'
  FindBin: '0'
  HTTP::Request::Common: '0'
  HTTP::Status: '0'
  Test::More: '0'
  lib: '0'
  strict: '0'
configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.025, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:

Makefile.PL  view on Meta::CPAN

    "Moose" => 0,
    "namespace::autoclean" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Catalyst" => 0,
    "Catalyst::Controller" => 0,
    "Catalyst::Controller::REST" => 0,
    "Catalyst::Test" => 0,
    "FindBin" => 0,
    "HTTP::Request::Common" => 0,
    "HTTP::Status" => 0,
    "Test::More" => 0,
    "lib" => 0,
    "strict" => 0
  },
  "VERSION" => "0.07",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Catalyst" => 0,
  "Catalyst::ClassData" => 0,
  "Catalyst::Controller" => 0,
  "Catalyst::Controller::REST" => 0,
  "Catalyst::Test" => 0,
  "FindBin" => 0,
  "HTML::Scrubber" => 0,
  "HTTP::Request::Common" => 0,
  "HTTP::Status" => 0,
  "MRO::Compat" => 0,
  "Moose" => 0,
  "Test::More" => 0,
  "lib" => 0,
  "namespace::autoclean" => 0,
  "strict" => 0,
  "warnings" => 0
);

t/02_basic.t  view on Meta::CPAN

use strict;
use warnings;

use FindBin qw($Bin);
use lib "$Bin/lib";

use Catalyst::Test 'MyApp02';
use HTTP::Request::Common;
use HTTP::Status;
use Test::More;

{
    my $req = GET('/');
    my ($res, $c) = ctx_request($req);
    ok($res->code == RC_OK, 'response ok');
    is($res->content, 'index', 'content ok');
}
{

t/03_params.t  view on Meta::CPAN

use strict;
use warnings;

use FindBin qw($Bin);
use lib "$Bin/lib";

use Catalyst::Test 'MyApp03';
use HTTP::Request::Common;
use HTTP::Status;
use Test::More;

{
    my $req = GET('/');
    my ($res, $c) = ctx_request($req);
    is($res->code, RC_OK, 'response ok');
    is($res->content, 'index', 'content ok');
}
{

t/04_manual.t  view on Meta::CPAN

use strict;
use warnings;

use FindBin qw($Bin);
use lib "$Bin/lib";

use Catalyst::Test 'MyApp04';
use HTTP::Request::Common;
use HTTP::Status;
use Test::More;

{
    my $req = GET('/');
    my ($res, $c) = ctx_request($req);
    ok($res->code == RC_OK, 'response ok');
    is($res->content, 'index', 'content ok');
}

t/05_rest.t  view on Meta::CPAN

use FindBin qw($Bin);
use lib "$Bin/lib";

use Test::More;


eval 'use Catalyst::Controller::REST';
plan skip_all => 'Catalyst::Controller::REST not available, skip REST tests' if $@;

use Catalyst::Test 'MyApp05';
use HTTP::Request::Common;
use HTTP::Status;

{
    # Test that data in a JSON body POSTed gets scrubbed too
    my $json_body = <<JSON;
{
    "foo": "Top-level <img src=foo.jpg title=fun>", 
    "baz":{
        "one":"Second-level <img src=test.jpg>"
    },