Makefile.PLで決める設定値をテストに渡す - 日向夏特殊応援部隊はじめに d:id:ZIGOROu:20061130:1164840144 の続きです。 komamiya氏の物をもう少し小綺麗に書き直してみました。 komamiya氏ありがトン。 testセクションに指定した環境変数を渡すMYモジュール package MY; use strict; use warnings; our @INCLUDE_ENV = (); sub test { my ( $self, %attrs ) = @_; my $env = join( " " => map { sprintf( "%s=\"%s\"" => $_, $ENV{$_} ) } grep { exists $ENV{$_} } @INCLUDE_ENV ); my $section = $self->SUPER::test(%attrs); $section =~ s|(PERL_DL_NONL
