view release on metacpan or  search on metacpan

inc/InlineBuild.pm  view on Meta::CPAN

=cut

sub process_pm_files {
  my $self = shift;

  # find & copy lib tree into blib/lib
  my $cfiles = $self->rscan_dir('lib', qr{\.c(pp)?$});

  foreach my $file (@$cfiles) {
    $self->copy_if_modified(from => $file, to => 'blib/'.$file, verbose => 1);
  }

  # now the .pm files
  my $pmfiles = $self->rscan_dir('lib', qr{\.pm$});
  foreach my $file (@$pmfiles) {
    my $to = 'blib/' . $file;
    next if($self->up_to_date($file, $to));

    my $code = do {open(my $fh, '<', $file) or die; local $/; <$fh>;};