view release on metacpan or  search on metacpan

script/metafy  view on Meta::CPAN

#!perl 
use strict;
use warnings;
use Acme::MetaSyntactic;
use Getopt::Long;

my $usage = << 'EOT';
Usage: metafy [options] [from:]to [file]
Available options:
  --in-place     : force in-place edit (clobbers the old files)
  --force-random : force target words randomisation
  --help         : print this message and exit
  --version      : print version information and exit
  --themes       : print the list of themes and exit
  --verbose      : print the translations list afterwards
EOT

my %conf = (
    'force-random' => 0,
    verbose        => 0,

script/metafy  view on Meta::CPAN

=over 4

=item I<--force-random>

Compute the replacement for each word every time it's needed.
B<This will definitely break any program!>

=item I<--in-place>

Force in-place edition

=back

=head2 Informative options

The program will exit if any of these options is selected.
However, these options can be combined.

=over 4