Torsten Förtsch > IO-Handle-Record-0.15 > Build.PL

Download:
IO-Handle-Record-0.15.tar.gz

Annotate this POD

View/Report Bugs
Source  

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;

syntax highlighting: