view release on metacpan or  search on metacpan

lib/Rex/Apache/Deploy/Symlink.pm  view on Meta::CPAN

     return $1;
   }
   else {
     return "" . time;
   }
 };


=cut

sub generate_deploy_directory(&) {
  $generate_deploy_directory = shift;
}

############ helper functions #############

sub _get_extract_command {
  my ($file) = @_;

  if ( $file =~ m/\.tar\.gz$/ ) {
    return "tar xzf %s";

lib/Rex/Apache/Inject/Template.pm  view on Meta::CPAN

      $real_name_from_template ? &$real_name_from_template($file) : $file;
    open( my $fh, ">", $new_file_name ) or die($!);
    print $fh $content;
    close($fh);
  }

}

############ configuration functions #############

sub generate_real_name(&) {
  $real_name_from_template = shift;
}

sub template_file {
  $template_file = shift;
}

sub template_search_for {
  $template_pattern = shift;
}