#requires C::Scan 0.75+ | |
use lib qw(lib Apache-Test/lib); | |
use strict; | |
use Apache2::ParseSource (); | |
use ModPerl::ParseSource (); | |
use ModPerl::FunctionMap (); | |
use ModPerl::WrapXS (); #XXX: we should not need to require this here | |
my $p = Apache2::ParseSource->new(prefixes => ModPerl::FunctionMap->prefixes, | |
@ARGV); | |
$p->parse; | |
$p->write_constants_pm; | |
$p->write_functions_pm; | |
$p->write_structs_pm; | |
$p = ModPerl::ParseSource->new(@ARGV); | |
$p->parse; | |
$p->write_functions_pm; |