Show almost every Apache2::Const having constants.

apache2-const.pl

#!/usr/bin/env perl
# ogata 2012/08/28
# Show almost every Apache2::Const having constants.

use strict;
use warnings;

use Apache2::Const -compile => qw(
    :cmd_how
    :common
    :config
    :conn_keepalive
    :context
    :filter_type
    :http
    :input_mode
    :log
    :methods
    :mpmq
    :options
    :override
    :platform
    :remotehost
    :satisfy
    :types
    :proxy
);

for my $key ( sort keys %Apache2::Const:: ) {
    print "$key => " . eval("Apache2::Const::$key") . "\n";
}