complete_build

sub complete_build

{

  my $self = shift;

  $self->verify_values ();

  $self->Create_Base_Directory ();

  $self->Check_Dir (map { "$self->{Base_Dir}/$_" } qw (lib t scripts));

  $self->print_file ('LICENSE',     $self->{LicenseParts}{LICENSETEXT});

  $self->print_file ('README',      $self->FileText_README () );

  $self->print_file ('Todo',        $self->FileText_ToDo ());

  $self->print_file ('Makefile.PL', $self->FileText_Makefile ());

  unless ($self->{CHANGES_IN_POD}) {

    $self->print_file ('Changes',   $self->FileText_Changes ());

  }

  foreach my $module ($self, @{$self->{EXTRA_MODULES}}) {

    $self->generate_pm_file ($module);

  }

  $self->print_file ('MANIFEST', join ("\n", @{$self->{MANIFEST}}));

}