tags/v1_29/t/TestDirectives/Makefile.PL

package Apache::TestDirectives;
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.

BEGIN {
    use lib qw{../../lib};
}

use strict;
use Apache::src ();
use Apache::ExtUtils qw(command_table);

my $class = __PACKAGE__;

my @directives = (
   [Port => "A TCP port number"], #we'll decline this one
   [TestCmd => "Two TestCmd args"],
   [AnotherCmd => "Stuff for another command"],
   [CmdIterate => "No limit here"],
   ["<Container" => "whatever"],
   ["</Container>" => "end whatever"],
   {
       name => "YAC",
       func => "another_cmd",
       cmd_data => "info for YAC",
       errmsg => "Yet another comand",
       args_how => "TAKE2",
       req_override => "RSRC_CONF",
   },
);

my $proto_perl2c = Apache::ExtUtils->proto_perl2c;

while(my($pp,$cp) = each %$proto_perl2c) {
    next unless $pp;
    push @directives, [$cp, "Test for $cp"];
}

command_table \@directives;

WriteMakefile(
    'NAME'	=> $class,
    'VERSION_FROM' => 'TestDirectives.pm', # finds $VERSION
    'LIBS'	=> [''],   # e.g., '-lm' 
    'DEFINE'	=> '',     # e.g., '-DHAVE_SOMETHING' 
    'INC'	=> Apache::src->new->inc,
);