FCGI::Engine::Types - Type constraints for FCGI::Engine

FCGI-Engine documentation Contained in the FCGI-Engine distribution.

Index

Code Index:

NAME

Top

FCGI::Engine::Types - Type constraints for FCGI::Engine

DESCRIPTION

Top

This is all the type constraints needed by the FCGI::Engine modules, no user serviceable parts inside (unless you are subclassing stuff).

BUGS

Top

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

AUTHOR

Top

Stevan Little <stevan@iinteractive.com>

COPYRIGHT AND LICENSE

Top

Copyright 2007-2010 by Infinity Interactive, Inc.

http://www.iinteractive.com

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

FCGI-Engine documentation Contained in the FCGI-Engine distribution. 
package FCGI::Engine::Types;
use Moose::Util::TypeConstraints;

use Declare::Constraints::Simple '-All';
use MooseX::Getopt::OptionTypeMap;
use MooseX::Types::Path::Class;

our $VERSION   = '0.18';
our $AUTHORITY = 'cpan:STEVAN';

## FCGI::Engine

subtype 'FCGI::Engine::ListenerPort'
    => as 'Str'
    => where { /\:(\d+)/ && $1 >= 1 && $1 <= 65535 };

subtype 'FCGI::Engine::Listener'
    => as 'FCGI::Engine::ListenerPort | Path::Class::File';

MooseX::Getopt::OptionTypeMap->add_option_type_to_map(
    'FCGI::Engine::Listener' => '=s',
);

## FCGI::Engine::Manager

# FIXME:
# this is ugly I know, but it is better
# then adding a backward incompatible
# change and forcing others to update
# their versions of Moose for this.
# - SL
if ($Moose::VERSION < 0.72) {
    subtype 'FCGI::Engine::Manager::Server::Config'
        => as 'HashRef'
        => And(
             IsHashRef,
             HasAllKeys(qw[scriptname pidfile socket]),
             OnHashKeys(
                 additional_args => IsArrayRef
             )
        );
}
else {
    subtype('FCGI::Engine::Manager::Server::Config',
        {
            as    => 'HashRef',
            where => And(
                 IsHashRef,
                 HasAllKeys(qw[scriptname pidfile socket]),
                 OnHashKeys(
                     additional_args => IsArrayRef
                 )
            )
        }
    );
}

subtype 'FCGI::Engine::Manager::Config'
    => as 'ArrayRef[FCGI::Engine::Manager::Server::Config]';

## FCGI::Engine::ProcManager

enum 'FCGI::Engine::ProcManager::Role' => qw[manager server];

1;

__END__