use strict;
use Module::Build;
use File::Spec;
my $class = Module::Build->subclass(
class => "Module::Build::WikiDoc",
code => <<'SUBCLASS', );
sub ACTION_wikidoc {
my $self = shift;
eval "use Pod::WikiDoc";
if ( $@ eq '' ) {
my $parser = Pod::WikiDoc->new({
comment_blocks => 1,
keywords => { VERSION => $self->dist_version },
});
for my $src ( keys %{ $self->find_pm_files() } ) {
(my $tgt = $src) =~ s{\.pm$}{.pod};
$parser->filter( {
input => $src,
output => $tgt,
});
print "Creating $tgt\n";
$tgt =~ s{\\}{/}g;
$self->_add_to_manifest( 'MANIFEST', $tgt );
}
}
else {
warn "Pod::WikiDoc not available. Skipping wikidoc.\n";
}
}
sub ACTION_test {
my $self = shift;
my $missing_pod;
for my $src ( keys %{ $self->find_pm_files() } ) {
(my $tgt = $src) =~ s{\.pm$}{.pod};
$missing_pod = 1 if ! -e $tgt;
}
if ( $missing_pod ) {
$self->depends_on('wikidoc');
$self->depends_on('build');
}
$self->SUPER::ACTION_test;
}
sub ACTION_testpod {
my $self = shift;
$self->depends_on('wikidoc');
$self->SUPER::ACTION_testpod;
}
sub ACTION_distdir {
my $self = shift;
$self->depends_on('wikidoc');
$self->SUPER::ACTION_distdir;
}
SUBCLASS
$class->new(
module_name => 'File::pushd',
dist_author => 'David A Golden <dagolden@cpan.org>',
license => 'apache',
create_readme => 1,
create_makefile_pl => 'traditional',
requires => {
'perl' => 5.004,
'Cwd' => 0,
'File::Path' => 0,
'File::Spec' => 0,
'File::Temp' => 0,
'Test::More' => 0.45, # thread safe
},
)->create_build_script;
syntax highlighted by Code2HTML, v. 0.9.1