view release on metacpan or  search on metacpan

lib/AproJo/Command/config.pm  view on Meta::CPAN

use Term::Prompt qw/prompt/;
use Getopt::Long;

has description =>
  "Write an optional configuration file for your AproJo application.\n";
has usage => "usage: $0 config\n";

sub run {

  my $self = shift;
  local @ARGV = @_;

  my $force = 0;
  GetOptions("force" => \$force);

  my $file = $self->app->config_file;

  if (-e $file and not $force) {
    die "Configuration file $file exists, use '--force' to proceed anyway.\n";
  }