view release on metacpan or  search on metacpan

lib/Apache/Session/Wrapper.pm  view on Meta::CPAN

        );

    $class->_SetValidParams();
}

sub new
{
    my $class = shift;
    my %p = @_;

    my $self = $class->SUPER::new(%p);

    $self->_check_session_params;
    $self->_set_session_params;

    if ( $self->{use_cookie} && ! ( $ENV{MOD_PERL} || $self->{header_object} ) )
    {
        param_error
            "The header_object parameter is required in order to use cookies outside of mod_perl";
    }

t/TEST.PL  view on Meta::CPAN

    for my $file ( $conf_file, $skip_file )
    {
        if ( -f $file )
        {
            unlink $file
                or die "Cannot unlink $file: $!";
        }
    }

    $self->SUPER::configure(@_);

    if ( $self->{test_config}{server}{rev} >= 2 )
    {
        my $apreq2 = $self->{test_config}->find_apache_module('mod_apreq2.so');

        if ($apreq2)
        {
            $self->_write_apreq_conf( "LoadModule apreq_module $apreq2" );
        }
        else