view release on metacpan or  search on metacpan

bin/mkscript  view on Meta::CPAN

This is free software, licensed under:

The GNU General Public License, Version 2, June 1991


=cut 

# -------------------------- CLI Arguments ----------------------------
sub version {
	say "Fc engine $App::FileComposer::VERSION";
}

sub reconf {
  my $home = "$ENV{\"HOME\"}/.app-filecomposer";
  mkdir $home 
    or die BRIGHT_YELLOW ,"direcotry already exists \n", RESET,"system: $!\n";

      say BRIGHT_YELLOW, "Default directory created in: ", RESET, $home;
}


#-------------------------- Create Template -----------------------------
sub withparameters {
    #receive the file from @ARGV
    my $newfile = shift;
    our $bar;
   # dies if not match extensions like:  foo.css, foo.js, foo.c, foo.py
   die "Error: Invalid parameter, you forgot to load the file extension."

bin/mkscript  view on Meta::CPAN

            $obj->write();
 

}


sub postmsg {
  my ($path, $file) = @_;
  my $file_comand = qx/file $path\/$file/;
  
        say "source sample file: ", CYAN, "$file \n", RESET,
        "Type: ", GREEN, $file_comand, RESET;

}