CGI-Snapp

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "CGI::Simple" : "1.113",
            "Capture::Tiny" : "0.44",
            "Carp" : "1.2",
            "Class::ISA" : "0.36",
            "Data::Dumper::Concise" : "2.02",
            "File::Spec" : "3.4",
            "IO::Pipe" : "1.15",
            "Log::Handler" : "0.88",
            "Moo" : "2.002004",
            "Proc::Fork" : "0.804",
            "Try::Tiny" : "0.27",
            "lib" : "0",
            "parent" : "0.234",
            "strict" : "0",
            "vars" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Test::Deep" : "1.12",

META.yml  view on Meta::CPAN

  CGI::Simple: '1.113'
  Capture::Tiny: '0.44'
  Carp: '1.2'
  Class::ISA: '0.36'
  Data::Dumper::Concise: '2.02'
  File::Spec: '3.4'
  IO::Pipe: '1.15'
  Log::Handler: '0.88'
  Moo: '2.002004'
  Proc::Fork: '0.804'
  Try::Tiny: '0.27'
  lib: '0'
  parent: '0.234'
  strict: '0'
  vars: '0'
  warnings: '0'
resources:
  license: http://dev.perl.org/licenses/
  repository: https://github.com/ronsavage/CGI-Snapp.git
version: '2.01'
x_serialization_backend: 'CPAN::Meta::YAML version 0.012'

Makefile.PL  view on Meta::CPAN

		'Class::ISA'			=> 0.36,
		'Data::Dumper::Concise'	=> 2.020,
		'File::Spec'			=> 3.40,
		'IO::Pipe'				=> 1.15,
		'lib'					=> 0,
		'Log::Handler'			=> 0.88,
		'Moo'					=> 2.002004,
		'parent'				=> 0.234,
		'Proc::Fork'			=> 0.804,
		'strict'				=> 0,
		'Try::Tiny'				=> 0.27,
		'vars'					=> 0,
		'warnings'				=> 0,
	},
	TEST_REQUIRES =>
	{
		'Test::Deep'	=> 1.120,
		'Test::More'	=> 1.302052,
		'Test::Pod'		=> 1.48,
	},
	VERSION_FROM => 'lib/CGI/Snapp.pm',

lib/CGI/Snapp.pm  view on Meta::CPAN

use warnings;

use Carp;

use Class::ISA;

use Log::Handler;

use Moo;

use Try::Tiny;

has _current_run_mode =>
(
	is       => 'rw',
	default  => sub{return ''},
	required => 0,
);

has _error_mode =>
(

lib/CGI/Snapp.pm  view on Meta::CPAN

=back

See below for details.

=head3 Enchanced features

=over 4

=item o Use of utf8::downgrade() to turn off utf8 bit on headers

=item o Use of Try::Tiny rather than eval

Ideally, this won't be detectable, and hence won't matter.

=item o call_hook(...) returns a hashref - keys are 'class' and 'object' - of counts of hooks actually called

=item o delete_header(A list)

See L</delete_header(@keys)> for how to delete any number of HTTP headers.

=item o Calling the error_mode() method

This call is protected by Try::Tiny.

=item o Calling mode_param([...])

mode_param() can be called with an arrayref, as in $self -> mode_param([qw/path_info -2/]). See t/run.modes.pl for details.

=item o Calling param([...])

param() can be called with an arrayref, as in $self -> param([qw/six 6 seven 7/]). See t/params.pl for details.

=back

t/run.modes.pl  view on Meta::CPAN

use CGI;

use CGI::Snapp::RunModes;

use Log::Handler;

use Test::Deep;
use Test::More tests => 11;

use Try::Tiny;

# ------------------------------------------------

sub test_1
{
	# Test 1. Various.

	my($logger) = Log::Handler -> new;

	$logger -> add