1

Module::Build を使用して、開発中の Perl モジュールでビルド、テスト、testpod、html、およびインストール アクションを実行しています。生成される HTML ファイルは問題ありませんが、独自の HTML フォーマッタの代わりに perltidy -html フォーマット ユーティリティを使用するように Module::Build を設定できれば、もっとうれしいです。

Module::Build に付属の HTML フォーマッタをよりきれいな perltidy HTML フォーマッタに置き換える方法を知っている人はいますか?

補遺: 上記で「置き換える」と言ったとき、それはおそらく誤解を招くものでした. Module::Build に付属する html フォーマッタを置き換えるコードを書きたくありません。Module::Build に他のHTML フォーマッタ オプションがあるかどうか知りたいですそれが生成する HTML は、非常に単純で一般的な外観です。それはとてもつまらない。perltidy の出力はとても気に入っています。

これが、私が書いたビルドスクリプトで今どのように機能するかですが、それは完全にハックです...コマンドラインperltidyスクリプトに落ちます:

use strict;
use warnings;

# get list of files in directory
my $libLocation = "lib/EDF";
opendir( DIR, $libLocation );
my @filenameArray = readdir(DIR);

# iterate over all files to find *.pm set
for my $file (@filenameArray) {
    if ( $file =~ m/      # matching regex
                      \.  # literal period character
                      pm  # the pm file extenstion
                  /x      # end of regex
       )
    {

        my $return = `perl D:/Perl/site/bin/perltidy -q --indent-columns=4 --maximum-line-length=80 -html -opath blib/libhtml2 -toc $libLocation/$file`;

        if ($return eq "") {
            print "HTMLized " . $file . "\n";
        }
        else {
            print "Error: " . $return . "\n";
        }

    }

}

しかし、Module::Build を使用して、フラグや引数などで別の HTML フォーマッタを使用するように指示する方法があることを本当に望んでいました。しかし、それは夢物語だと思います。

use strict;
use warnings;
use Module::Build;

my $build = Module::Build->resume (
  properties => {
    config_dir => '_build',
  },
);

$build->dispatch('build');
$build->dispatch('html', engine => 'perltidy');

または多分：

$build->dispatch('htmltidy');
4

2 に答える 2

1

ディスパッチで呼び出すことができる新しい Module::Build アクションを定義するのは非常に簡単です。Module::Build のドキュメントには多くの例があります。新しいステップを処理するアクションを定義します。

sub ACTION_html整理整頓
    {
    my( $self ) = @_;

    $self->depends_on( ...他のターゲット... );

    Perl::Tidy が必要です。

    ...あなたのダメージを与える...
    }

別のアクションで自分のアクションを使用する場合は、依存関係を作成できるように拡張できます。

サブ ACTION_install
    {
    my( $self ) = @_;

    $self->depends_on( 'htmltidy' );

    $self->SUPER::インストール;
    }
于 2009-05-09T19:21:37.590 に答える
1

さて、アクションはで実装されています

htmlify_pods

Module::Build::Baseで。

そのメソッドをオーバーライドできるはずです。

かなり後に ...

これが私の試みです（一度だけテストされました）：

package My::Builder;

use strict;
use warnings;

use base 'Module::Build';

sub htmlify_pods {
  my $self = shift;
  my $type = shift;
  my $htmldir = shift || File::Spec->catdir($self->blib, "${type}html");

  require Module::Build::Base;
  require Module::Build::PodParser;
  require Perl::Tidy;

  $self->add_to_cleanup('pod2htm*');

  my $pods = $self->_find_pods( 
      $self->{properties}{"${type}doc_dirs"},
      exclude => [ Module::Build::Base::file_qr('\.(?:bat|com|html)$') ] );
  return unless %$pods;  # nothing to do

  unless ( -d $htmldir ) {
    File::Path::mkpath($htmldir, 0, oct(755))
      or die "Couldn't mkdir $htmldir: $!";
  }

  my @rootdirs = ($type eq 'bin') ? qw(bin) :
      $self->installdirs eq 'core' ? qw(lib) : qw(site lib);

  my $podpath = join ':',
                map  $_->[1],
                grep -e $_->[0],
                map  [File::Spec->catdir($self->blib, $_), $_],
                qw( script lib );

  foreach my $pod ( keys %$pods ) {

    my ($name, $path) = File::Basename::fileparse($pods->{$pod},
        Module::Build::Base::file_qr('\.(?:pm|plx?|pod)$'));
    my @dirs = File::Spec->splitdir( File::Spec->canonpath( $path ) );
    pop( @dirs ) if $dirs[-1] eq File::Spec->curdir;

    my $fulldir = File::Spec->catfile($htmldir, @rootdirs, @dirs);
    my $outfile = File::Spec->catfile($fulldir, "${name}.html");
    my $infile  = File::Spec->abs2rel($pod);

    next if $self->up_to_date($infile, $outfile);

    unless ( -d $fulldir ){
      File::Path::mkpath($fulldir, 0, oct(755))
        or die "Couldn't mkdir $fulldir: $!";
    }

    my $path2root = join( '/', ('..') x (@rootdirs+@dirs) );
    my $htmlroot = join( '/',
             ($path2root,
              $self->installdirs eq 'core' ? () : qw(site) ) );

    my $fh = IO::File->new($infile) or die "Can't read $infile: $!";
    my $abstract = Module::Build::PodParser->new(fh => $fh)->get_abstract();

    my $title = join( '::', (@dirs, $name) );
    $title .= " - $abstract" if $abstract;

    my %opts = (
        argv => join(" ", 
            qw( -html --podflush ),
            "--title=$title",
            '--podroot='.$self->blib,
            "--htmlroot=$htmlroot",
            "--podpath=$podpath",
        ),
        source => $infile,
        destination => $outfile,
    );

    if ( eval{Pod::Html->VERSION(1.03)} ) {
      $opts{argv} .= ' --podheader';
      $opts{argv} .= ' --backlink=Back to Top';
      if ( $self->html_css ) {
          $opts{argv} .= " --css=$path2root/" . $self->html_css;
      }
    }

    $self->log_info("HTMLifying $infile -> $outfile\n");
    $self->log_verbose("perltidy %opts\n");
    Perl::Tidy::perltidy(%opts);    # or warn "pod2html @opts failed: $!";
  }
}
1;

** 使用するには.. **

#!/usr/bin/perl

use strict;
use warnings;

use My::Builder;

my $builder = My::Builder->new(
    module_name => 'My::Test',
    license     => 'perl',
);

$builder->create_build_script;
于 2009-05-07T16:27:09.283 に答える