INSTALLATION

perl Makefile.PL
make test
make install

or

perl Build.PL
./Build test
./Build install

DEPENDENCIES

XXX print \$out \$_; } close \$out;

if ( eval {require Pod::Readme; 1} ) {
  \$I->log_info("Creating README using Pod::Readme\n");

  my \$parser = Pod::Readme->new;
  \$parser->parse_from_file('README.pod', 'README');

} elsif ( eval {require Pod::Text; 1} ) {
  \$I->log_info("Creating README using Pod::Text\n");

  Pod::Text->new()->parse_from_file( 'README.pod', 'README' );
} else {
  \$I->log_warn("Can't load Pod::Readme or Pod::Text to create README\n");
  return;
}

\$I->_add_to_manifest('MANIFEST', 'README');

return \$I->SUPER::ACTION_distdir(\@_);
}

sub ACTION_rpm { my \$version=\$_[0]->dist_version; open my \$out, '>', 'perl-IO-Handle-Record.spec.tmp' or die "ERROR: Cannot open perl-IO-Handle-Record.spec.tmp: \$!\\n"; open my \$in, '<', 'perl-IO-Handle-Record.spec' or die "ERROR: Cannot open perl-IO-Handle-Record.spec: \$!\\n"; local \$_; while( defined( \$_=<\$in> ) ) { s/^(Version:\\s*).*/\${1}\$version/i; print \$out \$_; } rename 'perl-IO-Handle-Record.spec.tmp', 'perl-IO-Handle-Record.spec'; system 'rpmbuild -ba perl-IO-Handle-Record.spec'; } EOF

my $builder = Module::Build->subclass ( code => $code, )->new ( module_name => (sub {local @ARGV=($pm); while(<>){/package\s*(.*?)\s*;/ and return $1}})->(), license => 'perl', dist_author => 'Torsten Foertsch <torsten.foertsch@gmx.net>', dist_version_from => $pm, xs_files => {'Record.xs'=>'lib/IO/Handle/Record.xs'}, requires => {@requires}, );

$builder->create_build_script;