view release on metacpan or  search on metacpan

lib/App/cat/v.pm  view on Meta::CPAN

    # internal use

    has flags    => default => { pairmap { $a => $b->default } %control };
    has convert  => default => {};
    has colorize => default => sub { sub { $_[0] } } ;

} no Getopt::EX::Hashed;

sub run {
    my $app = shift;
    local @ARGV = splice @_;
    $app->options->setup->doit;
    return 0;
}

sub options {
    my $app = shift;
    for (@ARGV) {
	$_ = decode 'utf8', $_ unless utf8::is_utf8($_);
    }
    use Getopt::EX::Long qw(:DEFAULT ExConfigure Configure);