view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/KVStore/Etcd.pm');
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings FATAL => 'all';
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/KVStore.pm');
view release on metacpan or search on metacpan
lib/AnyEvent/Multilog.pm view on Meta::CPAN
sub shutdown {
my $self = shift;
my $input = $self->run->delegate('input_handle');
confess 'already shutdown, cannot perform further operations' if $self->is_shutdown;
$input->handle->do_not_want;
}
__PACKAGE__->meta->make_immutable;
1;
view release on metacpan or search on metacpan
lib/AnyEvent/Open3/Simple.pm view on Meta::CPAN
my $cv = AnyEvent->condvar;
my $ipc = AnyEvent::Open3::Simple->new(
on_exit => sub { $cv->send },
);
$ipc->run('command_not_found');
$cv->recv;
You might be waiting forever if there is an error starting the
process (if for example you give it a bad command). To handle
this situation you might use croak on the condition variable
lib/AnyEvent/Open3/Simple.pm view on Meta::CPAN
on_error => sub {
my $error = shift;
$cv->croak($error);
},
);
$ipc->run('command_not_found');
$cv->recv;
This will cause the C<recv> to die, printing a useful diagnostic
if the exception isn't caught somewhere else.
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
lib/AnyEvent/Process.pm view on Meta::CPAN
close $dup->[0];
}
# Close other filedescriptors
if (defined $proc_args{close_all_fds_except}) {
my @not_close = map fileno($_), @{$proc_args{close_all_fds_except}};
AE::log trace => "Closing all other fds except: " . join ', ', @not_close;
push @not_close, fileno $_->[0] foreach @fh_table;
AE::log trace => "Closing all other fds except: " . join ', ', @not_close;
AnyEvent::Util::close_all_fds_except @not_close;
}
# Run the code
my $rtn = $proc_args{code}->(@{$proc_args{args} // []});
exit ($rtn eq int($rtn) ? $rtn : 1);
view release on metacpan or search on metacpan
lib/AnyEvent/REST/Server.pm view on Meta::CPAN
if ($self->can_handle("$self->{connections}{$id}{command} $self->{connections}{$id}{location}")) {
$self->read_http_header($id);
}
else {
$self->send_not_found($id);
}
}
);
}
lib/AnyEvent/REST/Server.pm view on Meta::CPAN
$response .= $body if $body;
$self->{connections}{$id}{handle}->push_write($response);
}
sub send_not_found {
shift->send(shift, 404, {}, '');
}
1;
view release on metacpan or search on metacpan
t/04-commands.t view on Meta::CPAN
}
sub t_get_non_existent_mth1 {
my $redis = shift;
my $t_reply = 'not_undef';
ev_loop(
sub {
my $cv = shift;
t/04-commands.t view on Meta::CPAN
}
sub t_get_non_existent_mth2 {
my $redis = shift;
my $t_reply = 'not_undef';
my $t_err_msg;
ev_loop(
sub {
my $cv = shift;
t/04-commands.t view on Meta::CPAN
}
sub t_mbulk_reply_undef_mth1 {
my $redis = shift;
my $t_reply = 'not_undef';
ev_loop(
sub {
my $cv = shift;
t/04-commands.t view on Meta::CPAN
}
sub t_mbulk_reply_undef_mth2 {
my $redis = shift;
my $t_reply = 'not_undef';
my $t_err_msg;
ev_loop(
sub {
my $cv = shift;
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
lib/AnyEvent/Riak.pm view on Meta::CPAN
=item pw
optional, number
=item if_not_modified
optional, boolean
=item if_none_match
view release on metacpan or search on metacpan
t/04-commands.t view on Meta::CPAN
}
sub t_get_non_existent {
my $redis = shift;
my $t_reply = 'not_undef';
my $t_err;
ev_loop(
sub {
my $cv = shift;
t/04-commands.t view on Meta::CPAN
}
sub t_mbulk_reply_undef {
my $redis = shift;
my $t_reply = 'not_undef';
my $t_err;
ev_loop(
sub {
my $cv = shift;
view release on metacpan or search on metacpan
script/google-ime-skk.pl view on Meta::CPAN
my $server_found = sub {
my $val = shift;
$hdl->push_write(SERVER_FOUND . "/$val/\n");
};
my $server_not_found = sub {
$hdl->push_write(SERVER_NOT_FOUND . "\n");
};
my $server_error = sub {
$hdl->push_write(SERVER_ERROR . "\n");
};
# ignore okuri-ari entry
if ($req =~ /([a-z])$/) {
$server_not_found->();
return;
}
if (my $val = $cache->get($req)) {
$server_found->($val);
script/google-ime-skk.pl view on Meta::CPAN
my $val = join '/', @words;
$server_found->($val);
$cache->set($req => $val, $expire);
} else {
$server_not_found->();
}
} else {
$server_error->();
}
};
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/STOMP.pm');
view release on metacpan or search on metacpan
lib/AnyEvent/Subprocess/Handle.pm view on Meta::CPAN
sub name {
my $self = shift;
return $self->{_name} || "<fd ". fileno($self->fh). ">";
}
sub do_not_want {
my $self = shift;
close $self->fh if $self->fh; # sometimes people close too soon
$self->destroy;
}
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/AnyEvent/Sway.pm');
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
example/jobserver view on Meta::CPAN
$self->stash(server => $server);
$self->render('server');
}
else
{
$self->reply->not_found;
}
});
} => 'server';
sub get_old_events
example/jobserver view on Meta::CPAN
<script src="http://code.jquery.com/jquery-latest.min.js"></script>
</head>
<body><%= content %></body>
</html>
@@ not_found.html.ep
Not found
view release on metacpan or search on metacpan
lib/AnyEvent/XMPP/Component.pm view on Meta::CPAN
=head1 EVENTS
These additional events can be registered on with C<reg_cb>:
NOTE: The event C<stream_pre_authentication> should _not_ be handled
and just ignored. Don't attach callbacks to it!
=over 4
=item session_ready
view release on metacpan or search on metacpan
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
nextchar|||
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
t/01_basic.t
t/02_options.t
t/03_html_output.t
t/04_kouetsu.t
t/09_duplication.t
t/10_control_chars_not_gaiji.t
t/20_jis_x_0208.t
xt/01_synopsis_expectation.t
META.yml
MANIFEST
view release on metacpan or search on metacpan
sub ok {
$_[0]->{t}++;
$_[0]->{buffer} .= "ok\n";
}
*not = *not_ok;
sub not_ok {
my($self, $warn) = @_;
if($warn) {
warn "[failure] $warn";
}
while(($k, $v) = each %{$self->{data}}) {
$test = "$k=$v";
if($self->{input} =~ /\[\[$test\]\]/) {
$self->ok();
} else {
$self->not_ok();
print "$test data not found\n";
}
}
}
view release on metacpan or search on metacpan
AuthCookieDBI.pm view on Meta::CPAN
#===============================================================================
# P R I V A T E F U N C T I O N S
#===============================================================================
#-------------------------------------------------------------------------------
# _log_not_set -- Log that a particular authentication variable was not set.
sub _log_not_set {
my ( $r, $variable ) = @_;
my $auth_name = $r->auth_name;
return $r->log_error(
"Apache::AuthCookieDBI: $variable not set for auth realm
$auth_name", $r->uri
AuthCookieDBI.pm view on Meta::CPAN
user information. This is required and has no default value.
=cut
unless ( $c{DBI_DSN} = _dir_config_var $r, 'DBI_DSN' ) {
_log_not_set $r, 'DBI_DSN';
return;
}
=item C<WhateverDBI_SecretKey>
AuthCookieDBI.pm view on Meta::CPAN
=cut
unless ( $c{DBI_SecretKey} = _dir_config_var $r, 'DBI_SecretKey'
or _dir_config_var $r, 'DBI_SecretKeyFile' )
{
_log_not_set $r, 'DBI_SecretKey or DBI_SecretKeyFile';
return;
}
=item C<WhatEverDBI_User>
AuthCookieDBI.pm view on Meta::CPAN
=cut
unless ( $c{DBI_secretkeyfile} = _dir_config_var $r, 'DBI_SecretKeyFile'
or _dir_config_var $r, 'DBI_SecretKey' )
{
_log_not_set $r, 'DBI_SecretKeyFile or DBI_SecretKey';
return;
}
=item C<WhatEverDBI_EncryptionType>
view release on metacpan or search on metacpan
AuthCookieDBIRadius.pm view on Meta::CPAN
#===============================================================================
# F U N C T I O N D E C L A R A T I O N S
#===============================================================================
sub _log_not_set($$);
sub _dir_config_var($$);
sub _dbi_config_vars($);
sub _now_year_month_day_hour_minute_second();
sub _percent_encode($);
sub _percent_decode($);
AuthCookieDBIRadius.pm view on Meta::CPAN
#===============================================================================
# P R I V A T E F U N C T I O N S
#===============================================================================
#-------------------------------------------------------------------------------
# _log_not_set -- Log that a particular authentication variable was not set.
sub _log_not_set($$)
{
my( $r, $variable ) = @_;
my $auth_name = $r->auth_name;
$r->log_error( "Apache::AuthCookieDBIRadius: $variable not set for auth realm
$auth_name", $r->uri );
AuthCookieDBIRadius.pm view on Meta::CPAN
#Specifies the DSN for DBI for the database you wish to connect to retrieve
#user information. This is required and has no default value.
unless ( $c{ DBI_DSN } = _dir_config_var $r, 'DBI_DSN' )
{
_log_not_set $r, 'DBI_DSN';
return undef;
}
#<WhatEverDBI_User>
#The user to log into the database as. This is not required and
AuthCookieDBIRadius.pm view on Meta::CPAN
#can change it and restart the server, (maybe daily), which will invalidate
#all prior-issued tickets.
unless ( $c{ DBI_secretkeyfile } = _dir_config_var $r, 'DBI_SecretKeyFile' )
{
_log_not_set $r, 'DBI_SecretKeyFile';
return undef;
}
#<WhatEverDBI_EncryptionType>
#What kind of encryption to use to prevent the user from looking at the fields
view release on metacpan or search on metacpan
AuthCookieLDAP.pm view on Meta::CPAN
#===============================================================================
# F U N C T I O N D E C L A R A T I O N S
#===============================================================================
sub _log_not_set($$);
sub _dir_config_var($$);
sub _dbi_config_vars($);
sub _now_year_month_day_hour_minute_second();
sub _percent_encode($);
sub _percent_decode($);
AuthCookieLDAP.pm view on Meta::CPAN
#===============================================================================
# P R I V A T E F U N C T I O N S
#===============================================================================
#-------------------------------------------------------------------------------
# _log_not_set -- Log that a particular authentication variable was not set.
sub _log_not_set($$)
{
my( $r, $variable ) = @_;
my $auth_name = $r->auth_name;
$r->log_error( "Apache::AuthCookieLDAP: $variable not set for auth realm
$auth_name", $r->uri );
AuthCookieLDAP.pm view on Meta::CPAN
user information. This is required and has no default value.
=cut
unless ( $c{ LDAP_DN } = _dir_config_var $r, 'LDAP_DN' ) {
_log_not_set $r, 'LDAP_DN';
return undef;
}
=item C<WhatEverLDAP_user>
AuthCookieLDAP.pm view on Meta::CPAN
user information. This is required and has no default value.
=cut
unless ( $c{ LDAP_user } = _dir_config_var $r, 'LDAP_user' ) {
_log_not_set $r, 'LDAP_user';
return undef;
}
=item C<WhatEverLDAP_host>
The host to connect to. This is not required and defaults to localhost.
AuthCookieLDAP.pm view on Meta::CPAN
=cut
unless (
$c{ LDAP_secretkeyfile } = _dir_config_var $r, 'LDAP_SecretKeyFile'
) {
_log_not_set $r, 'LDAP_SecretKeyFile';
return undef;
}
=item C<WhatEverLDAP_EncryptionType>
AuthCookieLDAP.pm view on Meta::CPAN
user information. This is required and has no default value.
=cut
unless ( $c{ DBI_DSN } = _dir_config_var $r, 'DBI_DSN' ) {
_log_not_set $r, 'DBI_DSN';
return undef;
}
=item C<WhatEverDBI_User>
view release on metacpan or search on metacpan
AuthCookiePAM.pm view on Meta::CPAN
#===============================================================================
# F U N C T I O N D E C L A R A T I O N S
#===============================================================================
sub _log_not_set($$);
sub _dir_config_var($$);
sub _config_vars($);
sub _now_year_month_day_hour_minute_second();
sub _percent_encode($);
sub _percent_decode($);
AuthCookiePAM.pm view on Meta::CPAN
#===============================================================================
# P R I V A T E F U N C T I O N S
#===============================================================================
#-------------------------------------------------------------------------------
# _log_not_set -- Log that a particular authentication variable was not set.
sub _log_not_set($$)
{
my( $r, $variable ) = @_;
my $auth_name; $auth_name = $r->auth_name;
$r->log_error( "Apache::AuthCookiePAM: $variable not set for auth realm
$auth_name", $r->uri );
AuthCookiePAM.pm view on Meta::CPAN
=cut
unless (
$c{ PAM_secretkeyfile } = _dir_config_var $r, 'PAM_SecretKeyFile'
) {
_log_not_set $r, 'PAM_SecretKeyFile';
return undef;
}
=item C<WhatEverPAM_SessionLifetime>
view release on metacpan or search on metacpan
Session/Session.pm view on Meta::CPAN
will then, if the user credentials check out, populate $r->notes('SESSION')
with the session identifier that the user passed back via the headers.
So, when the PerlAuthzHandler, PerlFixupHandler and
PerlHandler are run, $r->notes('SESSION') is the real session id,
as gleaned from the headers, and _not_ what was placed into it by
the user via a PerlInitHandler or whatever other mechanism one uses
to generate a session.
an alternative interface is to have any handler that wants
the current session identifier instantiate a new
view release on metacpan or search on metacpan
smb/.svn/text-base/Smb.xs.svn-base view on Meta::CPAN
#ifdef __cplusplus
}
#endif
static int
not_here(s)
char *s;
{
croak("%s not implemented on this architecture", s);
return -1;
}
smb/.svn/text-base/Smb.xs.svn-base view on Meta::CPAN
case 'N':
if (strEQ(name, "NTV_LOGON_ERROR"))
#ifdef NTV_LOGON_ERROR
return NTV_LOGON_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "NTV_NO_ERROR"))
#ifdef NTV_NO_ERROR
return NTV_NO_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "NTV_PROTOCOL_ERROR"))
#ifdef NTV_PROTOCOL_ERROR
return NTV_PROTOCOL_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "NTV_SERVER_ERROR"))
#ifdef NTV_SERVER_ERROR
return NTV_SERVER_ERROR;
#else
goto not_there;
#endif
break;
case 'O':
break;
case 'P':
smb/.svn/text-base/Smb.xs.svn-base view on Meta::CPAN
break;
}
errno = EINVAL;
return 0;
not_there:
errno = ENOENT;
return 0;
}
view release on metacpan or search on metacpan
lib/Apache/ConfigParser/Directive.pm view on Meta::CPAN
=back
=cut
sub directive_value_is_not_dev_null {
!is_dev_null($_[0]);
}
sub directive_value_is_not_dev_null_and_pipe {
if (is_dev_null($_[0])) {
return 0;
}
return $_[0] !~ /^\s*\|/;
}
sub directive_value_is_not_dev_null_and_pipe_and_syslog {
if (is_dev_null($_[0])) {
return 0;
}
return $_[0] !~ /^\s*(?:(?:\|)|(?:syslog(?::[a-zA-Z0-9]+)?))/;
lib/Apache/ConfigParser/Directive.pm view on Meta::CPAN
# position(s) that contains the file or directory path.
# string =~ /^\d+/ a single element that contains a path
# string =~ /^-\d+/ multiple elements, first is abs(\d+)
# 1 1 if the paths the directive accepts can be absolute and
# relative, 0 if they can only be absolute
# 2 a subroutine reference to directive_value_is_not_dev_null,
# directive_value_is_not_dev_null_and_pipe or
# directive_value_is_not_dev_null_and_pipe_and_syslog.
my %directive_info = (
AccessConfig => ['0',
1,
\&directive_value_is_not_dev_null],
AuthDBGroupFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBMGroupFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBMUserFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBUserFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDigestFile => ['0',
0,
\&directive_value_is_not_dev_null],
AgentLog => ['0',
0,
\&directive_value_is_not_dev_null_and_pipe],
AuthGroupFile => ['0',
1,
\&directive_value_is_not_dev_null],
AuthUserFile => ['0',
1,
\&directive_value_is_not_dev_null],
CacheRoot => ['0',
0,
\&directive_value_is_not_dev_null],
CookieLog => ['0',
1,
\&directive_value_is_not_dev_null],
CoreDumpDirectory => ['0',
0,
\&directive_value_is_not_dev_null],
CustomLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
Directory => ['0',
0,
\&directive_value_is_not_dev_null],
DocumentRoot => ['0',
0,
\&directive_value_is_not_dev_null],
ErrorLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe_and_syslog],
Include => ['0',
1,
\&directive_value_is_not_dev_null],
IncludeOptional => ['0',
1,
\&directive_value_is_not_dev_null],
LoadFile => ['-0',
1,
\&directive_value_is_not_dev_null],
LoadModule => ['1',
1,
\&directive_value_is_not_dev_null],
LockFile => ['0',
1,
\&directive_value_is_not_dev_null],
MMapFile => ['0',
0,
\&directive_value_is_not_dev_null],
MimeMagicFile => ['0',
1,
\&directive_value_is_not_dev_null],
PidFile => ['0',
1,
\&directive_value_is_not_dev_null],
RefererLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
ResourceConfig => ['0',
1,
\&directive_value_is_not_dev_null],
RewriteLock => ['0',
0,
\&directive_value_is_not_dev_null],
ScoreBoardFile => ['0',
1,
\&directive_value_is_not_dev_null],
ScriptLog => ['0',
1,
\&directive_value_is_not_dev_null],
ServerRoot => ['0',
0,
\&directive_value_is_not_dev_null],
TransferLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
TypesConfig => ['0',
1,
\&directive_value_is_not_dev_null]);
# Set up the three exported hashes using the information in
# %directive_info. Use lowercase directive names.
foreach my $key (keys %directive_info) {
my $ref = $directive_info{$key};