view release on metacpan or  search on metacpan

lib/Bundler/MultiGem/Model/Gem.pm  view on Meta::CPAN

    foreach my $line (@file_content) { print NEW_FILE $line; }
    close(NEW_FILE);

    unlink $main_module_file;
  }
}

=head2 process_single_file

Manipulates each file as follows:
  * create a backup of the original file C<.bak>
  * replace gem name reference with gem vname (C<foo> with C<v010-foo>)
  * replace gem main_module reference with gem vmodule_name (C<Foo> with C<V010::Foo>)
  * unlink the backup C<.bak>

=cut

sub process_single_file {
  my ($self, $v, $f) = @_;

  my ($n, $vn, $mm, $vmn) = (
    $self->name, $self->vname($v), $self->main_module, $self->vmodule_name($v)
  );
  my $bkp = $f . ".bak";