view release on metacpan or  search on metacpan

bin/metapage  view on Meta::CPAN

require 5.004;

use strict;
use Text::MetaText;
use File::Recurse;


my $NAME     = "metapage";
my $VERSION  = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);
my $HOME     = $ENV{ HOME } || (getpwuid($<))[7] || die "No HOME\n";
my $RCFILE   = $ENV{"\U${NAME}rc"} || "$HOME/.${NAME}rc";

# configuration items
my %mppath   = ();
my %mtcfg    = (); 
my %mtdef    = ();
my @cfgfiles = ();
my @casevars = qw(FILENAME FILEPATH FULLPATH FILETIME FILEMOD);

# cmd line flags